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

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