vbs查找行插入文本行(zz)

vbs查找行插入文本行

VBS对文本文件编辑只有使用FileSystemObject的OpenTextFile方法。然而OpenTextfile只有读和写还有追加的功能，而且每种功能只能单独使用，太无语！

我便写了个脚本。主要功能是实现对读取每一行然后与关键字符串进行对比，最后在与关键字符串相符的行后面输入自己想输入的字符串行。

代码如下：

Option Explicit

Private Function SpecifyToWrite(FilePath,SearchString,IntoString)

Const ForReading=1,ForWriting=2

Dim fso,f,Msg

Dim WriteString,ReadString

Set fso=CreateObject("Scripting.FileSystemObject") '创建FileSystemObject对象并赋值给fso

Set f=fso.OpenTextFile(Filepath,ForReading) '使用OpenTextfile的方法并赋值f

'修改段 begin

Do Until f.AtEndOfStream '检查是不是到文件末尾

ReadString=f.ReadLine ‘读取一行

If Trim(ReadString)=SearchString Then '去掉读取字符串

ReadString=ReadString+vbCrlf+IntoString

End If

WriteString=WriteString+ReadString+vbCrlf

Loop

'修改段 End

f.Close

Set f=Nothing

Set f=fso.OpenTextFile(FilePath,ForWriting)

f.Write(WriteString)

Msg=MsgBox ("ok")

End Function

Private Function Main()

Dim WriteFilePath

WriteFilePath="D:\软件\testfile.txt"

Call SpecifyToWrite(WriteFilePath,"3","4")

End Function

Call Main()