使用VBScript无法在文本文件顶部插入行

Question

我必须用新的标题值替换标题，并且需要删除页脚。

输入：

Header
Value1||Value2|Value3|Value4
Value7|Value3||Value1|Value1
Value1|Value9|Value1||Value1
Value1||Value1|Value1|Value1
Value1||Value1|Value1|Value6
Footer

我需要如下所示：

NewHeader
Value1||Value2|Value3|Value4
Value7|Value3||Value1|Value1
Value1|Value9|Value1||Value1
Value1||Value1|Value1|Value1
Value1||Value1|Value1|Value6

我正在尝试的方式是：

Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFile = oFso.OpenTextFile(filePath, 1, True)
strContents = Split(oFile.ReadAll, vbCrLf)
For i=0 To UBound(strContents)
   strContents(0) 'I get header and replace with my new header
Next

但是strContents(0)从文本文件返回整个值。 该如何处理？

Answer 1

尝试此代码。希望您能得到结果。

filePath="C:\Users\admin\Desktop\Qtpfile.txt"
strModifytest=""
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFile = oFso.OpenTextFile(filePath, 1, True)
strContents = Split(oFile.ReadAll, vbCrLf)
strModifytest=Replace(strContents(0), "Header","NewHeader") & vbCrLf
For i=1 To UBound(strContents)-1
 strModifytest=strModifytest & strContents(i) & vbCrLf 

Next

MsgBox strModifytest

Set oFso1 = CreateObject("Scripting.FileSystemObject")
Set oFile1 = oFso1.OpenTextFile(filePath, 2, True)
oFile1.Write(strModifytest)

请让我知道是否可行。