当前位置: 代码迷 >> VFP >> VFP怎样读和写文本文件?该怎么处理
  详细解决方案

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

热度:3815   发布时间:2013-02-26 00:00:00.0
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)