VBScript ile bir metin dosyasının içeriği nasıl okunur

Bir metin dosyasını açmak ve okumak için VBScript kullanın.

1. Adım

Not Defteri'ni çalıştırın ve bir metin dosyası oluşturun. Metin dosyasına aşağıdaki mesajı yazın:

Bu iletiyi alırsanız, bu görev zamanlamasını başarıyla tamamladınız.

2. Adım

Az önce oluşturduğunuz dosyayı sabit sürücünüzdeki "C: \ Temp" klasörüne kaydedin ve "TextToRead.txt" adını girin.

3. adım

Not Defteri'nde ikinci yeni bir metin belgesi oluşturun.

4. Adım

Aşağıdaki kodu, önceki adımda oluşturduğunuz dosyaya kopyalayıp yapıştırın:

Seçenek Açık

Const conForReading = 1

'Değişkenleri ifade et Dim objFSO, objReadFile, content

Nesneleri Ayarla objFSO = CreateObject ("Scripting.FileSystemObject")) Set objReadFile = objFSO.OpenTextFile ("C: \ Temp \ TextToRead.txt", 1, False)

'Dosya içeriğini oku content = objReadFile.ReadAll

'Kapat dosyası objReadFile.close

'Ekran sonuçları wscript.echo içeriği

'Temizleme nesneleri Set objFSO = Hiçbir şey Set objReadFile = Nothing

'Bırak komut dosyası WScript.Quit ()

Adım 5

Not Defteri araç çubuğundaki "Dosya" üzerine tıklayın ve içerik menüsünde "Kaydet" i seçin. Dosyayı VBScript kodunuzda "C: \ Temp \ ReadTextFile.vbs" olarak kaydedin ve Not Defteri'nden çıkın.

6. Adım

VBScript'inizi, sabit sürücünüzdeki "C: \ Temp" klasörüne erişerek ve "ReadTextFile.vbs" dosyasına çift tıklayarak çalıştırın. 1. adımdaki metin dosyasına yazdığınız mesaj, VBScript programınızın dosyayı açmayı ve okumayı başardığını doğrulayan küçük bir açılır pencerede görünecektir. "Tamam" a tıklayın.