Question

vfp输入任意一串ASCII字符,找出其中的数字并输出,如F5U&y94jm输出594,程序怎么写啊

Answer 1

accept "please input string" to a
FOR i=1 TO LEN(a)
IF ASC(SUBSTR(a,i,1))>=ASC("0") AND ASC(SUBSTR(a,i,1))<=ASC("9") THEN
??SUBSTR(a,i,1)
endif
endfor

追问

亲，非常谢谢你！这是vfp语言编写的clik事件么，怎么和我们学的不太像哎。。

追答

加两个文本框，一个按钮，在按钮程序写：
a=thisform.Text1.value
FOR i=1 TO LEN(a)
IF ASC(SUBSTR(a,i,1))>=ASC("0") AND ASC(SUBSTR(a,i,1))<=ASC("9") THEN
thisform.text2.value=thisform.text2.value+SUBSTR(a,i,1)
endif
endfor