Jak odczytać zawartość pliku tekstowego za pomocą VBScript
Krok 1
Uruchom Notatnik i utwórz plik tekstowy. Napisz następującą wiadomość w pliku tekstowym:
Jeśli otrzymasz tę wiadomość, pomyślnie zakończyłeś planowanie zadań.
Krok 2
Zapisz plik, który właśnie utworzyłeś w folderze "C: \ Temp" na dysku twardym i umieść nazwę "TextToRead.txt".
Krok 3
Utwórz drugi nowy dokument tekstowy w Notatniku.
Krok 4
Skopiuj i wklej następujący kod do pliku utworzonego w poprzednim kroku:
Opcja Jawna
Const conForReading = 1
"Deklaruj zmienne Dim objFSO, objReadFile, contents
'Set Objects Set objFSO = CreateObject ("Scripting.FileSystemObject") Ustaw objReadFile = objFSO.OpenTextFile ("C: \ Temp \ TextToRead.txt", 1, False)
"Przeczytaj zawartość zawartości pliku = objReadFile.ReadAll
"Zamknij plik objReadFile.close
"Wyświetl wyniki wscript.echo zawartość
"Obiekty czyszczenia Ustaw objFSO = Nic Ustaw objReadFile = Nic
"Zamknij skrypt WScript.Quit ()
Krok 5
Kliknij "Plik" na pasku narzędzi Notatnika i wybierz "Zapisz" w menu kontekstowym. Zapisz plik z kodem VBScript jako "C: \ Temp \ ReadTextFile.vbs", a następnie zamknij Notatnik.
Krok 6
Uruchom swój VBScript, przechodząc do folderu "C: \ Temp" na dysku twardym i dwukrotnie klikając plik "ReadTextFile.vbs". Wiadomość napisana w pliku tekstowym w kroku 1 pojawi się w małym wyskakującym oknie potwierdzającym, że programowi VBScript udało się otworzyć i odczytać plik. Kliknij "OK".