test_dowhile_if.prg

来自「刚才那个的补充」· PRG 代码 · 共 14 行

******程序功能：统计由ASCII码字符组成的字符串中包含字母的个数
CLEAR
cString="The United States of America is abbreviated to U.S.A.."
nResult=0
DO WHILE LEN(cString)>0
	c=LEFT(cString,1)
	IF	BETWEEN(c,"a","z") or BETWEEN(c,"A","B")
		nResult=nResult+1
	ENDIF
	cString=SUBSTR(cString,2)
ENDDO
? "包含"+ALLT(STR(nResult))+"个英文字母"