cbb1982211 发表于 2008-9-22 17:10:54

如何删除txt文件中的空行

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

asdfasdf
<>
请问如何删除空行

原因：

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

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

cbb1982211 发表于 2008-9-22 17:25:53

请大侠们帮帮解答一下

rcpp 发表于 2008-9-22 17:33:44

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

cbb1982211 发表于 2008-9-22 17:35:54

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

cbb1982211 发表于 2008-9-22 17:36:00

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 发表于 2008-9-22 17:36:30

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

cbb1982211 发表于 2008-9-22 17:47:54

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

cbb1982211 发表于 2008-9-22 17:52:27

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

Do untiltheFile.AtEndOfStream
      retstring = theFile.Readline

谢谢 美女猪【rcpp】
:lol

rcpp 发表于 2008-9-22 17:55:24

:L

假装不在 发表于 2008-9-22 18:07:25

他不是美女。
页: [1]
查看完整版本: 如何删除txt文件中的空行