用vbs實現對文本文件中的項計數

2019-10-26 17:59:38

字體：大中小

來源：轉載

供稿：網友

問：
嗨，腳本專家！如何向文本文件的頂部添加行？

-- FT

答：
您好，FT。您知道，在亞瑟·柯南·道爾爵士生涯的某一時刻，他實際上將夏洛克·福爾摩斯寫死了，他認為他已寫完了有關這個大偵探所有能寫的一切。公眾的疾呼很快改變了他的想法，他迅速地使夏洛克·福爾摩斯起死回生。（按照所有肥皂劇的那種基本情節主線一路創作下來。）

我們腳本專家對亞瑟·柯南·道爾爵士深感同情。畢竟，我們會周期性地想，“好了，到這里吧；我們已編寫了有關文本文件所有能編寫的一切?！蔽覀儎傆写讼敕?，就立刻收到有關文本文件的一堆問題，其中包括三個人所問的同一問題：如何向文件文件的頂部添加行？

很簡單，我親愛的華生（啊，我親愛的 FT）。所有您需要做的只是使用類似下面的腳本：

復制代碼代碼如下:

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:/Scripts/Test.txt", ForReading)

strContents = objFile.ReadAll
objFile.Close

strFirstLine = "This is the new first line in the text file."
strNewContents = strFirstLine & vbCrLf & strContents

Set objFile = objFSO.OpenTextFile("C:/Scripts/Test.txt", ForWriting)
objFile.WriteLine strNewContents

objFile.Close

注意。很有趣的是，在原本小說中夏洛克·福爾摩斯從沒有說“很簡單，我親愛的華生”。我們不知道為什么他不那么說；他就是不那么說。

好了，現在游戲已經開始了，不是嗎？我們首先創建一對常量 - ForReading 和 ForWriting，我們將在處理文本文件時使用這兩個常量。我們創建一個 FileSystemObject 實例，然后使用 OpenTextFile 方法打開文件 C:/Scripts/Test.txt 以讀取以下內容：

Set objFile = objFSO.OpenTextFile("C:/Scripts/Test.txt", ForReading)

現在文件已打開，我們使用 ReadAll 方法讀取該文件的全部內容并將這些內容存儲在稱作 strContents 的變量中。然后我們立即關閉文件 Test.txt。為什么？是這樣，通過 FileSystemObject 可打開文件進行讀取或寫入，但不能同時進行這兩種操作。為向文件頂部添加新的一行，我們將必須對該文件進行寫入；這意味著我們必須重新打開它，但這次是為了寫入。

接下來我們需要為該文件構造新內容。我們不能直接向文本文件的頂部添加行；FileSystemObject 只允許向文本文件的末尾添加新行。因此，我們需要做的是在內存中創建一個全新的文件，然后用此新文件替換現有 Test.txt 的內容。新文件將由三部分組成：新的第一行；回車-換行；及該文件的現有內容。為構造此文件，我們首先使用下面的代碼在稱為 strFirstLine 的變量中存儲新的第一行：

上一篇：病毒專殺VBS模塊

下一篇：windows腳本調試howto的方法