填空题
完善下列程序,其功能是统计一个文本文件(内容为英文文章)中大小写英文字母的个数。
CLEAR
cFile=GETFILE('TXT','文件名')
cc=fileToMem(cFile)
STORE 0 TO i,j
DO WHILE LEN(cc)>0
c=LEFT(cc,1)
1(18) 2
CASE ASC(c)>96 AND ASC(c)<123
j=j+1
CASE ASC(c)>64 AND ASC(e)<91
i=i+1
ENDCASE
cc=SUBSTR( 3(19) 4)
ENDDO
?'大写、小写英文字母个数分别为', 5(20) 6
FUNCTION fileToMem &&该函数的功能是将文件内容读到内存变量中
PARAMETER cFileName
fhandle=FOPEN(cFileName)
cText=SPACE(0)
IF fhandle>0
nSize=FSEEK(fhandle,0,2)
=FSEEK(fhandle,0)
eText=FREAD(fhandle,nSize)
=FCLOSE(fhandle)
ENDIF
RETURN cText