读书人

VFP怎样读和写文本文件?该怎么处理

发布时间: 2012-03-05 11:54:01 作者: rapoo

VFP怎样读和写文本文件?
不是导入文本格式数据库,而是指读和写一般意义上的文本文件!

[解决办法]
示例:
handtxt = fopen( '23.TXT ',12)
HH=FCREATE( "GG.TXT ")
?handtxt
STORE FSEEK(handtxt, 0, 2) TO gnEnd && Move pointer to EOF
STORE FSEEK(handtxt, 0) TO gnTop &&
DO WHILE !FEOF(HANDTXT)
IF FEOF(handtxt)
EXIT
ENDIF
LCSTR = FGETS(HANDTXT,GNEND)
FPUTS(HH ,LCSTR+ "123 "+CHR(13))
ENDDO
=FCLOSE(handtxt)
=FCLOSE(HH)

读书人网 >VFP

热点推荐