clear
str1="ABc中Defg国12nd3"
n_str2=""
c_str2=""
chinese_str2=""
n=len(str1)
for i=1 to n
if substr(str1,i,1)>="0" and substr(str1,i,1)<="9"
n_str2=n_str2+substr(str1,i,1)
endif
endfor
?n_str2
for i=1 to n
if substr(str1,i,1)>="A" and substr(str1,i,1)<="z"
c_str2=c_str2+substr(str1,i,1)
endif
endfor
?c_str2
for i=1 to n
if substr(str1,i,1)>="z"
chinese_str2=chinese_str2+substr(str1,i,1)
endif
endfor
?chinese_str2
*这个程序只能输出数字和字母,而且第14行代码还不严格,只能帮你到这里了
*西楚打柴人