vfp 写命令从键盘输入一个字符串（要求任意长度）,然后删除其中的非数字字符,最后输出.

clea
accept "输入字符串：" to Ch
NL=len(Ch)
Cnh=""
for i=1 to NL
Ca=substr(Ch,i,1)
if asc(ca)>=48 and asc(ca)