'=================================================================
set arg=WScript. Argumendid
kui arg.count=0, siis
msgbox "Usage:"&vbcrlf&vbcrlf&" Ära käivita seda skripti otse, lihtsalt lohista üks või mitu faili, mis tuleb asendada stringidega, sellele skriptifailile.
wscript.quit
lõpp kui
Set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Palun sisesta enne rida lisatud märk:")
tegema
fw.writeline(data&fr.readline)
loop kuni fr.atendofstreamini
fr.sulge
Fw.Close
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
tegema
fw.writeline(fr.readline)
loop kuni fr.atendofstreamini
fr.sulge
Fw.Close
fso.deletefile("temp.txt")
'====================================================
Kopeeri ülaltoodud sisu ja salvesta see VBS-failina, lohista dokument, mida soovid muuta, sellesse VBS-faili, saad sisestada märgid, mida soovid lisada, kinnitada pärast sisestamist, ava oma dokument ja leiad, et iga rida on lisanud just sisestatud andmed. |
Postitatud 04.02.2015 13:25:21
|
|
|
