'=================================================================
set arg=WScript.Arguments
ha arg.count=0, akkor
msgbox "Usage:"&vbcrlf&vbcrlf&" Ne futtasd közvetlenül ezt a szkriptet, csak húzd el egy vagy több fájlt, amit stringekkel kell helyettesíteni, erre a scriptfájlra.
wscript.quit
vége ha
set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox ("Kérjük, írja meg a sor előtt hozzáadott karaktert:")
csinál
fw.writeline(data&fr.readline)
Loop egészen a fr.atendofstreamig
fr.zár
fw.zár
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
csinál
fw.writeline(fr.readline)
Loop egészen a fr.atendofstreamig
fr.zár
fw.zár
fso.deletefile("temp.txt")
'====================================================
Másold le a fenti tartalmat, és mentsd VBS fájlba, húzd a módosítani kívánt dokumentumot ebbe a VBS fájlba, beírhatod a hozzáadni kívánt karaktereket, a belépés után megerősítheted, megnyitod a dokumentumot, és azt látod, hogy minden sorod hozzáadta az imént beírt adatokat. |
Közzétéve 2015. 02. 04. 13:25:21
|
|
|
