如何在 VFP中删除文本文件的空行

来源：百度知道 编辑：UC知道 时间：2024/05/15 14:57:31
我有一个专业程序，需要在文本文件中读取几组数据，因此我编写一个VFP程序来生成这几组数据，在输出每一组程序中有这样一条语句：
=strtofile(chr(13)+chr(10),'pipei.txt',.t.)，
用来进行回车换行，但会在不产生数据的程序组里面，写进文本文件一个空行。如何在 VFP中删除文本文件的空行？

你可以试试用FSEEK(),FREAD(),FWRITE(),FSIZE,FOPEN(),FCLOSE,FCREATE(),FGETS()等函数对文本文件进行操作,方法很多:
1.整个取出存在EDIT1控件中,再去空行,再存回去.
AA=fopen(CFILENAME,0)
***AA是打开的文件具杆
cc=fseek(aa,0,2)
***CC是文件尾的字节数
DD=FSEEK(AA,0,0)
***DD是回到文件头
THISFORM.EDIT2.VALUE=FREAD(AA,CC)
***THISFORM.EDIT2.VALUE是把文件全存去EDIT2中去了

***去空行程序自己编吧

2.一行一行,空行不要,存在EDIT1控件中,再存回去
略

给你提供两种方法，你根据情况自己挑吧：
一：
= STRTOFILE("Your Input String" + CHR(13) + CHR(10),"PIPEI.TXT", .T.)

二：
cYourStr = FILETOSTR("PIPEI.TXT")
cYourStr = STRTRAN(cYourStr, CHR(13) + CHR(10) + CHR(13) + CHR(10), CHR(13) + CHR(10))
= STRTOFILE(cYourStr, "PIPEI.TXT")