vfp表单设计 输入任意ascii字符串，判断数字，并输出数字 急 ！！

Question

如题所述

Answer 1

新建一个表单，向表单添加两个文本框text1(用来输入ascii字符串)、text2（用来输出输出数字）和一个命令按钮，点击命令按钮，向click事件添加以下代码
a1=ALLTRIM(thisform.text1.Value)
a2=""
FOR iii=1 to LEN(a1)
a3=SUBSTR(a1,iii,1)
IF a3>="0" and a3<="9"
a2=a2+a3
ENDIF
ENDFOR
thisform.text2.Value=a2

表单运行后，向text1输入asii字符串，点击命令按钮，则数字串就显示到text2。如果显示数字，程序的最后一行调整为thisform.text2.Value=val(a2) 。
程序已测试通过，楼主把代码复制过去就可以了。

Answer 2

用VAL(cExpression)这个函数就可以了，cExpression：指定字符表达式，该表达式最多由 16 位数字组成，若超过 16 位，则对其圆整。
返回值类型：数值型
VAL( ) 函数从左到右返回字符表达式中的数字，直至遇到非数值型字符（忽略前面的空格）时为止。若字符表达式的第一个字符不是数字，也不是加、减号，则 VAL( ) 函数返回 0。
VAL( )函数可以将 Visual FoxPro 的 SYS( ) 函数返回的字符串转换为数值。