1

我必须用我的新页眉值替换页眉,并且需要删除页脚。

输入:

标题
值1||值2|值3|值4
值 7|值 3||值 1|值 1
值 1|值 9|值 1||值 1
值 1||值 1|值 1|值 1
值 1||值 1|值 1|值 6
页脚

我需要如下:

新标题
值1||值2|值3|值4
值 7|值 3||值 1|值 1
值 1|值 9|值 1||值 1
值 1||值 1|值 1|值 1
值 1||值 1|值 1|值 6

我正在尝试的方式是:

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)文本文件返回整个值。如何处理?

4

1 回答 1

0

试试这个代码。希望你能得到你的结果。

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)

请让我知道这是否有效。

于 2019-01-22T17:52:00.837 回答