VBScript 文件操作代碼小結

　　復制代碼 代碼如下:

　　Const ForReading = 1

　　Set objFSO = CreateObject("Scripting.FileSystemObject")

　　Set objTextFile = objFSO.OpenTextFile ("c:\scripts\servers.txt", ForReading)

　　Do Until objTextFile.AtEndOfStream

　　strComputer = objTextFile.ReadLine

　　Wscript.Echo strComputer

　　Loop

　　objTextFile.Close

　　追加文本文件一行內容

　　復制代碼 代碼如下:

　　Const ForAppending = 8

　　Set objFSO = CreateObject("Scripting.FileSystemObject")

　　Set objTextFile = objFSO.OpenTextFile ("C:\Scripts\Service_Status.txt", ForAppending, True)

　　objTextFile.WriteLine("追加的內容")

　　objTextFile.Close

　　有用的幾個函數：

　　替換：將Jim替換成James。

　　復制代碼 代碼如下:

　　strNewText = Replace(strText, "Jim ", "James ")

　　用逗號分隔字符串：

　　復制代碼 代碼如下:

　　arrpath=split(strDN,",")

　　wscript.echo arrpath(0)

　　幾個實例：

　　讀取文本文件指定的行內容(讀第四行內容存到strLine變量中)

　　復制代碼 代碼如下:

　　Const ForReading = 1

　　Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("mylogfile.log", ForReading)

　　For i = 1 to 3 objTextFile.ReadLine Next

　　strLine = objTextFile.ReadLine Wscript.Echo strLine

　　objTextFile.Close

文章來源于領測軟件測試網 http://www.kjueaiud.com/