bir kısmını Popup şeklinde ekrana yansıtabilmek veya bu kısmını yine kodlamada değişken olarak kullanabilmek özellikle sistem yöneticilerine ve Coderlere esneklik sağlamaktadır. Aşağıdaki makalemizde Vbscript kodları ile bir metin balgesinde yazanları ekrana Popup şeklinde yansıtacağız.

beni_oku.txt dosyasının içerisinde ; "Tarkan Dost Tel : 0101 0101 0101 0101" metnini girdik ardından bu metin belgesindekileri Popup (Açılır pencere) şeklinde ekrana yansıtacak kodları oluşturuyoruz (Aşağıda)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("beni_oku.txt", ForReading)

Const ForReading = 1

Dim arrFileLines()
i = 0
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close

'Then you can iterate it like this

For Each strLine in arrFileLines
WScript.Echo strLine
Next

Normalde "beni_oku.txt" kısmında Konum belirtilmesi gerekir lakin aynı klasörde yanyana verildiği için buna gerek görmedik , siz farklı konumdaki bir belgede yazılanları ekrana yansıtmak istiyorsanız bu "c:\beni_oku.txt" şeklinde konum belirtmeniz gerekecektir. Tüm bunlar uygulandığında sonucu aşağıda görüyorsunuz.

Peki ama ekrana sadece Yazının beliril bir kısmını getirebilirmiyiz mesela Kişi ismi ve telefon numarası yazıyorsa sadece telefon numarasını ekrana getirmeyi deneyelim. Bu durumda Sağdan veya soldan kaç kelimeyi alacağımızı aşağıdaki kodlarla belirleyeceğiz.

Right(contents, 20) - Sağdan 20 kelimeyi görüntüle
Left(contents, 17) - Soldan 17 kelimeyi görüntüle

Üsttekileri içeren "sadece_tel_no.vbs" örneğini sayfa sonundaki indirme linkinde bulabilirsiniz çalıştırıldığında aşağıdaki çıktıyı verecektir.

Görüldüğü üzere Bir metin belgesinin içeriği farklı şekillerde ekrana getirilebilmektedir.

- Vbs ile Bir registry değerini okutalım Burada

- Bilgisayarınız yazdıklarınızı sesli söylesin (.vbs) Burada