Question

vfp表单 去空格

thisform.text2.value = len(allt(thisform.text1.value))
thisform.refresh
我要统计text1中的出去空格的字符数。。按上面的写的话就只有前后空格掉了。。。那么中间的怎么去？或者怎么编写代码？
比如：“ab s d"要统计为4个字符

Answer 1

strvalue=allt(thisform.text1.value)
thisform.text2.value = len(strvalue)-OCCURS(' ',strvalue)

************************************************************
OCCURS(cSearchExpression, cExpressionSearched)
返回一个字符表达式在另一个字符表达式中出现的次数。

参数
cSearchExpression
指定字符表达式，OCCURS( ) 在 cExpressionSearched 中查找该表达式。
cExpressionSearched
指定一字符表达式，OCCURS( ) 在其中查找 cSearchExpression 字符表达式。
返回值
数值型

说明
如果没有在 cExpressionSearched 中找到 cSearchExpression，OCCURS( ) 返回 0。

示例
STORE 'abracadabra' TO gcstring
CLEAR
? OCCURS('a', gcstring) && Displays 5
? OCCURS('b', gcstring) && Displays 2
? OCCURS('c', gcstring) && Displays 1
? OCCURS('e', gcstring) && Displays 0