Question

vfp题：输入一个字符串，统计其中字母、数字、空格和其他字符的个数。

Answer 1

* vfp题：输入一个字符串，统计其中字母、数字、空格和其他字符的个数。
SET TALK OFF
CLEAR
ACCEPT "请输入一个字符串：" TO _cstring
STORE 0 TO _nzm,_nsz,_nkg,_nqt
FOR _i=1 TO LEN(_cstring)
_css=SUBSTR(_cstring,_i,1)
DO CASE
CASE ISALPHA(_css)
_nzm=_nzm+1
CASE ISDIGIT(_css)
_nsz=_nsz+1
CASE _css=" "
_nkg=_nkg+1
OTHERWISE
_nqt=_nqt+1
ENDCASE
ENDFOR
?"经统计：字符串“"+_cstring+"”中有"
?"　　　　"+LTRIM(STR(_nzm))+"个字母；"+LTRIM(STR(_nsz))+"个数字；"+LTRIM(STR(_nkg))+"个空格；"+LTRIM(STR(_nzm))+"个其他字符。"
SET TALK ON
RETURN