Cum se citește conținutul unui fișier text cu VBScript

Utilizați VBScript pentru a deschide și a citi un fișier text.

Pasul 1

Rulați Notepad și creați un fișier text. Scrieți următorul mesaj în fișierul text:

Dacă primiți acest mesaj, ați finalizat cu succes acest program de sarcini.

Pasul 2

Salvați fișierul pe care tocmai l-ați creat în directorul "C: \ Temp" de pe hard disk și puneți numele "TextToRead.txt".

Pasul 3

Creați un al doilea document text nou în Notepad.

Pasul 4

Copiați și inserați următorul cod în fișierul pe care l-ați creat în etapa anterioară:

Opțiune explicită

Const conForReading = 1

'Declarați variabilele Dim objFSO, objReadFile, conținutul

'Setați Obiecte Setați objFSO = CreateObject ("Scripting.FileSystemObject") Setați objReadFile = objFSO.OpenTextFile ("C: \ Temp \ TextToRead.txt", 1, False)

'Citiți conținutul fișierului contents = objReadFile.ReadAll

"Închideți fișierul objReadFile.close

'Afișați rezultatele conținutului wscript.echo

'Obiecte de curățare Set objFSO = Nimic Set objReadFile = Nimic

'Opriți scriptul WScript.Quit ()

Pasul 5

Faceți clic pe "Fișier" din bara de instrumente Notepad și selectați "Salvare" din meniul contextual. Salvați fișierul cu codul dvs. VBScript drept "C: \ Temp \ ReadTextFile.vbs" și apoi ieșiți din Notepad.

Pasul 6

Rulați VBScript accesând folderul "C: \ Temp" de pe hard disk și făcând dublu clic pe fișierul "ReadTextFile.vbs". Mesajul pe care l-ați scris în fișierul text din pasul 1 va apărea într-o fereastră pop-up mică, confirmând că programul dvs. VBScript a reușit să deschidă și să citească fișierul. Faceți clic pe "OK".