Bir txt metin dosyasında her satırdan önce karakterleri toplu olarak ekleyin

Admin · Yayınlandı 4.02.2015 13:25:21

'=================================================================
set arg=WScript.Argümanlar
arg.count=0 ise
msgbox "Usage:"&vbcrlf&vbcrlf&" Bu betiği doğrudan çalıştırmayın, sadece bir veya daha fazla dosyayı bu script dosyasına sürükleyip bırakın.
wscript.quit
biter if
set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox ("Lütfen satırdan önce eklediğiniz karakteri girin:")
yapmak
fw.writeline(data&fr.readline)
Fr.atendofstream'e kadar döngü
fr.kap
fw.kapak
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
yapmak
fw.writeline(fr.readline)
Fr.atendofstream'e kadar döngü
fr.kap
fw.kapak
fso.deletefile("temp.txt")
'====================================================
Yukarıdaki içeriği kopyalayın ve VBS dosyası olarak kaydedin, değiştirmek istediğiniz belgeyi bu VBS dosyasına sürükleyin, eklemek istediğiniz karakterleri girebilirsiniz, girdikten sonra onaylayabilirsiniz, belgenizi açın ve her satırınızın girdiğiniz veriyi eklediğini göreceksiniz.

Bir txt metin dosyasında her satırdan önce karakterleri toplu olarak ekleyin

İlgili Yazılar

Görüntülenen bölümler