Question

求高手帮忙做Visual FoxPro作业！！急！！

在文本框中输入一串字符串，点击“去除空格”按钮，可以除掉字符串中所有空格，并把除掉空格的字符串在标签中显示。

Answer 1

这可以用GetWordCount和GetWordNum函数实现。
我写了个函数供参考：
FUNCTION DeleteSpace
LPARAMETERS strInput &&传入参数
strOut=""
FOR i=1 TO GETWORDCOUNT(strInput,' ')
strOut=strOut+GETWORDNUM(strInput,i,' ')
ENDFOR
RETURN strOut &&输出参数
ENDFUNC
你在“去除空格”按钮事件代码中稍作修改即可。
如下：
strInput=Textbox1.Value
FOR i=1 TO GETWORDCOUNT(strInput,' ')
strOut=strOut+GETWORDNUM(strInput,i,' ')
ENDFOR
Label1.Caption=strOut

Answer 2

这个主要用到这个函数：

CHRTRAN(cSearchedExpression,cSearchExpression,cReplacementExpression)
在一个字符表达式中，把与第二个表达式字符相匹配的字符替换为第三个表达式中相应字符

具体这样：
? CHRTRAN(字符串, ' ', '') && 第一个引号是个空格，第二个直接是两个引号没有空格