如何删除txt文件中的空行

cbb1982211

文本文件中有空行
例如:
<>
asdfasdfasd
asf

asdfasdf
<>
请问如何删除空行

原因：

vbs中 函数【AtEndOfLine】结束条件是遇到空行

如何采用VBS脚本命令去掉文件中的空行

cbb1982211

请大侠们帮帮解答一下

rcpp

这种代码遍地是，搜一下就有
http://topic.csdn.net/t/20060519/21/4765108.html

cbb1982211

谢谢楼上的
我把代码贴出来

cbb1982211

srcFile   =   "c:\delLine1.htm"     '需要替换的文本文件   
  desFile   =   "c:\delLine2.htm"     '替换后的文本文件   
  pattern   =   "\n[\s|   ]*\r"             '匹配空行的正则表达式,   包括含有\v\t\f等   
   
  s   =   ReadFile(srcFile)   
  Set   regEx   =   New   RegExp      
  regEx.Pattern   =   pattern   
  regEx.IgnoreCase   =   True     
  regEx.Global   =   True     
         
  s1   =   regEx.replace(s,"")   
  wscript.echo   s1   
   
  call   writeToFile(desFile,s1)   
   
   
  Sub   WriteToFile(strFile,str)   
        Dim   fso,   f   
        Set   fso   =   CreateObject("Scripting.FileSystemObject")   
        Set   f   =   fso.OpenTextFile(strfile,   2,   True)   
        f.Write   str   
        set   f=   nothing   
        set   fso=nothing   
  End   Sub   
   
  Function   ReadFile(strFile)   
        Dim   fso,   f   
        Dim   readFile1   
        Set   fso   =   CreateObject("Scripting.FileSystemObject")   
        Set   f   =   fso.OpenTextFile(strFile,1)   
        ReadFile1   =       f.ReadAll   
        set   f=nothing   
        Set   fso=nothing   
  ReadFile=ReadFile1   
  End   Function

rcpp

AtEndOfLine是行尾，跟空行有什么关系？

cbb1982211

可它判断的就是遇到空行就return

cbb1982211

刚才我用了另一个函数，可以从文本中一行一行的读取全部数据

Do until  theFile.AtEndOfStream
      retstring = theFile.Readline

谢谢 美女猪【rcpp】

rcpp

假装不在

他不是美女。