如何在TOP文本文件中添加行？

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