'=================================================================
set arg=WScript.Argumenti
če arg.count=0, potem
msgbox "Usage:"&vbcrlf&vbcrlf&" Ne zaženi te skripte neposredno, ampak preprosto povleci in spusti eno ali več datotek, ki jih je treba zamenjati z nizi, na to skriptno datoteko.
wscript.quit
konec če
Set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Prosimo, vnesite znak, ki ste ga dodali pred vrstico:")
delati
fw.writeline(data&fr.readline)
Zanka do fr.atendofstream
fr.close
fw.close
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
delati
fw.writeline(fr.readline)
Zanka do fr.atendofstream
fr.close
fw.close
fso.deletefile("temp.txt")
'====================================================
Kopirajte zgornjo vsebino in jo shranite kot VBS datoteko, povlecite dokument, ki ga želite spremeniti, v to VBS datoteko, lahko vnesete znake, ki jih želite dodati, potrdite po vnosu, odprete dokument in ugotovili boste, da je vsaka vrstica dodala podatke, ki ste jih pravkar vnesli. |
Objavljeno na 4. 02. 2015 13:25:21
|
|
|
