如何在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