删除文本文件中的空行

文本(文件)数据问题 | 2015-04-09 00:49:37 | 阅读 866 次 | 评论(0)

方法一(VFP方法)

Clear 
cStr=Strtran(Filetostr("demon.txt"),0h0d0a,"|")
Do While "||"$cStr
   cStr=Strtran(cStr,"||","|")
Enddo
=Strtofile(Strtran(Substr(cStr,2),"|",0h0d0a),"demon1.txt")



方法二(正则表达式方法)

clear
local Reg, cStr
Reg = CreateObject("VBScript.RegExp")
cStr=Filetostr("demon.txt")
Reg.Global = .T.
Reg.MultiLine = .T.
Reg.Pattern = "^\s*\n\r"
cStr=Reg.Replace(cStr,"")
Release Reg
Reg=Null
=StrToFile(cStr,"demon1.txt")


文章评论,共0条
游客请输入验证码
浏览234011次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...