'=================================================================
set arg=WScript.Argumenty
ak arg.count=0 potom
msgbox "Použitie:"&vbcrlf&vbcrlf&" Nespúšťaj tento skript priamo, len pretiahni jeden alebo viac súborov, ktoré treba nahradiť reťazcami, na tento skriptový súbor.
wscript.quit
koniec ak
Set fso=wscript.createobject("scripting.filesystemobject")
Set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Prosím, zadajte znak, ktorý ste pridali pred riadok:")
robiť
fw.writeline(data&fr.readline)
Slučka až do fr.atendofstream
fr.close
fw.close
Set fr=fso.opentextfile("temp.txt",1)
Set fw=fso.createtextfile(arg(0),2)
robiť
fw.writeline(fr.readline)
Slučka až do fr.atendofstream
fr.close
fw.close
fso.deletefile("temp.txt")
'====================================================
Skopírujte vyššie uvedený obsah a uložte ho ako VBS súbor, potiahnite dokument, ktorý chcete upraviť, do tohto VBS súboru, môžete zadať znaky, ktoré chcete pridať, potvrdiť po zadaní, otvoriť svoj dokument a zistíte, že každý riadok pridal práve zadané údaje. |
Zverejnené 4. 2. 2015 13:25:21
|
|
|
