Вставить строку вверху в текстовом файле не работает с использованием VBScript

Question

Я должен заменить заголовок моим новым значением заголовка, и нижний колонтитул должен быть удален.

Входные данные :

заголовок
VALUE1||Value2|Value3|Value4
Value7|Value3|| Значение1 | Значение1
Значение1|Value9| Значение1 || Значение1
VALUE1 || Значение1 | Значение1 | Значение1
VALUE1 || Значение1 | Значение1|Value6
нижний колонтитул

Мне нужно как ниже:

Новый заголовок
VALUE1||Value2|Value3|Value4
Value7|Value3|| Значение1 | Значение1
Значение1|Value9| Значение1 || Значение1
VALUE1 || Значение1 | Значение1 | Значение1
VALUE1 || Значение1 | Значение1|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)

Пожалуйста, дайте мне знать, если это работает.