51Testing软件测试论坛

标题: 如何删除txt文件中的空行 [打印本页]

作者: cbb1982211 时间: 2008-9-22 17:10
标题: 如何删除txt文件中的空行
文本文件中有空行
例如:
<>
asdfasdfasd
asf

asdfasdf
<>
请问如何删除空行

原因：

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

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

作者: cbb1982211 时间: 2008-9-22 17:25
请大侠们帮帮解答一下

作者: rcpp 时间: 2008-9-22 17:33
这种代码遍地是，搜一下就有
http://topic.csdn.net/t/20060519/21/4765108.html

作者: cbb1982211 时间: 2008-9-22 17:35
谢谢楼上的
我把代码贴出来

作者: cbb1982211 时间: 2008-9-22 17:36
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
AtEndOfLine是行尾，跟空行有什么关系？

作者: cbb1982211 时间: 2008-9-22 17:47
可它判断的就是遇到空行就return

作者: cbb1982211 时间: 2008-9-22 17:52
刚才我用了另一个函数，可以从文本中一行一行的读取全部数据

Do until theFile.AtEndOfStream
retstring = theFile.Readline

谢谢美女猪【rcpp】

作者: rcpp 时间: 2008-9-22 17:55

作者: 假装不在 时间: 2008-9-22 18:07
他不是美女。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)