'=================================================================
set arg=WScript. Argumentit
jos arg.count=0, niin
msgbox "Usage:"&vbcrlf&vbcrlf&" Älä aja tätä skriptiä suoraan, vaan vedä ja pudota yksi tai useampi tiedosto, jotka pitää korvata merkkijonoilla, tälle skriptitiedostolle.
wscript.quit
päättyy jos
aseta fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Syötä merkintä, jonka lisäsit ennen riviä:")
tehdä
fw.writeline(data&fr.readline)
Loop kunnes fr.atendofstream
fr.sulje
fw.close
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
tehdä
fw.writeline (fr.readline)
Loop kunnes fr.atendofstream
fr.sulje
fw.close
fso.deletefile("temp.txt")
'====================================================
Kopioi yllä oleva sisältö ja tallenna se VBS-tiedostona, raahaa muokattava dokumentti tähän VBS-tiedostoon, voit syöttää haluamasi merkit, vahvistaa syöttämisen jälkeen, avata asiakirjasi, ja huomaat, että jokainen rivi on lisännyt juuri syöttämäsi tiedot. |
Julkaistu 4.2.2015 13.25.21
|
|
|
