visual foxpro中编程:“输入一行字符,分别统计其中英文字母,数字,空格,和其他字符

visual foxpro中编程:“输入一行字符,分别统计其中英文字母,数字,空格,和其他字符个数

这个通过判断该字符的ascii码值来判断
48-57 是数字

65-90, 97-122 分别是大写字母,小写字母
32 是空格

判断ascii值用函数 asc()

示例代码:
clear
c='35mdid2@#%$DD'
n1=0 &&数字个数
n2=0 &&字母个数
n3=0 &&空格
n4=0 &&其他

for i=1 to len(c)
a=asc(substr(c,i,1))
do case
case between(a,48,57)
n1=n1+1
case between(a,65,90) or between(a,97,122)
n2=n2+1
case a=32
n3=n3+1
otherwise
n4=n4+1
endcase
endfor

?'字符串 '+c+' 包含的各项字符如下:'
?'数字:',n1
?'字母:',n2
?'空格:',n3
?'其他:',n4

我。。知。。道 加。。我。。私。。聊