如何用VF读取字符串数大于254的文本
用VF读取文本的最大字符数为254,但我的字符串字符大于254,在500-1000个字符,中间没有分段,如何一次考读出来,请各位高手指教.谢谢了!
CLEAR
skh=" "
@ 10,20 say "请输入要检索的内容" get skh
READ
skh=ALLTRIM(skh)
handle=fopen("d:\cc\zzz.txt")
IF handle<0
@ 15,20 say "没有找到文件!"
CLOSE ALL
RETURN
ENDIF
=fseek(handle,0,0)
DO WHILE NOT FEOF(handle)
cdata=FGETS(handle)if skh $ cdata
len=LEN(cdata)
@ 20,20 say "文件字数为:" get len
@ 22,20 get cdata
endif
ENDDO
IF EOF()=.t.
@ 16,20 say "没有找到符合条件的记录!"
endif
=FCLOSE(handle)
retu
[此贴子已经被作者于2006-2-3 21:55:08编辑过]