Bazen bir .txt dosyasına tutulan log ların bir tıkla ekrana getirilmesi faydalı olmaktadır , işte herhangi bir .txt dosyasındaki yazıyı bir .vbs scripti ile okutup ekrana getirebilirsiniz bunun için aşağıdaki
kodları kullanmanız yeterli olacaktır bu kodları bir notepad e yapıştırıp ve Dosya - Farklı Kaydet... seçeneğine tıklayın
Açılan pencerede herhangi bir isim verin (dosya ismi ve uzantısı kısmını isteğinize göre düzenleyin) ve .vbs olarak kaydedip çalıştırın
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\deneme.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
kod c:\deneme.txt dosyasında yazanı ekrana getirmektedir siz ihtiyaca göre bu kısmı düzenleyiniz.
Kastettiği mesela uzun bir konuyu forumda açacaksın ve 100.000 kelime bunu 50 - 50 bölüp , ilk 50 ile başlığı açıp , sonra buna cevaben ikinci 50 yi yollandı , yorumda rahatsızlık olmaz , nezaketin için sağolasın
"çık uzun yazıları başlığa yanıt şeklinde altına açabilirsiniz" demişiniz ama bu ifadeyi pek anlayamadım.Yani bu ifade;
1.Başka bir makale var onu bul onun altına bu mesajı at mı? diyorsunuz.
2.Forumda bir konu açıp tekrar aynı soruyu sormamı istiyorsunuz
Bilemedim doğrusu....Eğer sizi meşgul ediyorsam sessizliğe de bürünebilirim.Rahatsızlık vermemek için....
hayır , kodlamanın yeniden ona göre düzenlenmesi gerekir. çık uzun yazıları başlığa yanıt şeklinde altına açabilirsin ,selamlar
Peki bu script'e her hangi bir text dosyasındaki boşluklar dahil olmak üzere karakter saydırabilir miyiz ? (aslında bunu kendim için istemekteyim nedeni sordum/foruma makale hazırlarken hep karşıma 60000 karakter barajı çıkmakta olduğundan dolayı...)