如何将行添加到文本文件的顶部？

Question

我需要在文本文件的顶部插入一行。如果我使用 WriteLine() 方法，它只会将该行附加到文件末尾。

顺便说一句，我在 QTP (UFT) 中使用 VBScript。

Answer 1

将文本文件的内容附加到您的第一行，用以下字符串覆盖文本文件：

Option Explicit

Const csFSpec = "31144630.txt"
Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject")
Dim sAll : sAll     = "top line " & Now & vbCrLf
If goFS.FileExists(csFSpec) Then sAll = sAll & goFS.OpenTextFile(csFSpec).ReadAll()
goFS.CreateTextFile(csFSpec).Write sAll

输出：

cscript 31144630.vbs

type 31144630.txt
top line 6/30/2015 7:57:07 PM

cscript 31144630.vbs

type 31144630.txt
top line 6/30/2015 7:57:25 PM
top line 6/30/2015 7:57:07 PM

如何将行添加到文本文件的顶部？

How to add line to TOP of text file?

vbscript

qtp

text-files

hp-uft