[转]Scripts to manage Text Files

具体用法：新建一个txt文档，将脚本保存在其中，然后将文件类型保存为.VBS，点击运行。

Checking theSize of a File Before Reading It

Demonstration scrīpt that uses theFileSystemObject to ensure that a text file is not empty beforeattempting to read it. scrīpt must be run on the localcomputer.

Set ōbjFSO = CreateObject("scrīpting.FileSystemObject")Set ōbjFile = objFSO.GetFile("C:\Windows\Netlogon.log")If objFile.Size > 0 Then    Set ōbjReadFile = objFSO.OpenTextFile("C:\Windows\Netlogon.log", 1)    strContents = objReadFile.ReadAll    Wscrīpt.Echo strContents    objReadFile.CloseElse    Wscrīpt.Echo "The file is empty."End If

 

Creatingand Naming a Text File

Demonstration scrīpt that uses theFileSystemObject's GetTempName method to generate a file name, andthen creates a file by that name.

Set ōbjFSO = CreateObject("scrīpting.FileSystemObject")strPath = "C:\FSO"strFileName = objFSO.GetTempNamestrFullName = objFSO.BuildPath(strPath, strFileName)Set ōbjFile = objFSO.CreateTextFile(strFullName)objFile.CloseobjFSO.DeleteFile(strFullName)

 

Creating aText File

Demonstration scrīpt that creates a new,empty text file. scrīpt must be run on the localcomputer.

Set ōbjFSO = CreateObject("scrīpting.FileSystemObject")Set ōbjFile = objFSO.CreateTextFile("C:\FSO\scrīptLog.txt")

 

Generating aFile Name

Demonstration scrīpt that uses theFileSystemObject's GetTempName method to generate random filenames. scrīpt must be run on the local computer.

Set ōbjFSO = CreateObject("scrīpting.FileSystemObject")For i = 1 to 10    strTempFile = objFSO.GetTempName    Wscrīpt.Echo strTempFileNext

 

Reading a TextFile Character by Character

Demonstration scrīpt that uses theFileSystemObject to read a text file character-by-character, andindividually echo those characters to the screen. scrīpt must berun on the local computer.

Set ōbjFSO = CreateObject("scrīpting.FileSystemObject")Set ōbjFile = objFSO.OpenTextFile("C:\FSO\New Text Document.txt", 1)Do Until objFile.AtEndOfStream    strCharacters = objFile.Read(1)    Wscrīpt.Echo strCharactersLoop

 

Reading a Text File into an Array

Demonstration scrīpt that uses the VBscrīptSplit command to read a line from a commas-separated values file,and then place the individual items in that line into anarray.

Const ForReading = 1Set ōbjFSO = CreateObject("scrīpting.FileSystemObject")Set ōbjTextFile = objFSO.OpenTextFile _    ("c:\scrīpts\servers and services.txt", ForReading)Do Until objTextFile.AtEndOfStream    strNextLine = objTextFile.Readline    arrServiceList = Split(strNextLine , ",")    Wscrīpt.Echo "Server name: " & arrServiceList(0)    For i = 1 to Ubound(arrServiceList)        Wscrīpt.Echo "Service: " & arrServiceList(i)    NextLoop

 

Reading a Text File from the BottomUp

Demonstration scrīpt that uses theFileSystemObject to read a text file, and then to echo the textfile in inverse order (that is, beginning with the last line in thetext file and ending with the first line).

Dim arrFileLines()i = 0Set ōbjFSO = CreateObject("scrīpting.FileSystemObject")Set ōbjFile = objFSO.OpenTextFile("C:\FSO\scrīptLog.txt", 1)Do Until objFile.AtEndOfStream     Redim Preserve arrFileLines(i)     arrFileLines(i) = objFile.ReadLine     i = i + 1LoopobjFile.CloseFor l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1    Wscrīpt.Echo arrFileLines(l)Next

 

Writing Datato a Text File

Demonstration scrīpt that retrieves thestatus for all the services installed on a computer, and then savesthe service name and status to a text file.

Const ForAppending = 8Set ōbjFSO = CreateObject("scrīpting.FileSystemObject")Set ōbjTextFile = objFSO.OpenTextFile _    ("c:\scrīpts\service_status.txt", ForAppending, True)Set colServices =  GetObject("winmgmts:").ExecQuery _    ("Select * from Win32_Service")For Each objService in colServices        objTextFile.WriteLine(objService.DisplayName & vbTab & _        objService.State)NextobjTextFile.Close