'=================================================================
set arg=WScript.Argumenter
Hvis arg.count=0 så
msgbox "Usage:"&vbcrlf&vbcrlf&" Kør ikke dette script direkte, træk bare og slip en eller flere filer, der skal erstattes med strenge, over på denne scriptfil.
wscript.quit
slut hvis
set FSO=Wscript.CreateObject("Scripting.FileSystemObject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputboks("Indtast venligst det tegn, du tilføjede før linjen:")
gøre
fw.writeline(data&fr.readline)
Loop indtil fr.atendofstream
fr.luk
FW.LUKK
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
gøre
fw.writeline(fr.readline)
Loop indtil fr.atendofstream
fr.luk
FW.LUKK
fso.deletefile("temp.txt")
'====================================================
Kopier ovenstående indhold og gem det som en VBS-fil, træk det dokument, du vil ændre, til denne VBS-fil, du kan indtaste de tegn, du vil tilføje, bekræft efter indtastning, åbn dit dokument, og du vil opdage, at hver linje i dit har tilføjet de data, du lige har indtastet. |
Opslået på 04/02/2015 13.25.21
|
|
|
