Voeg tekens in bulk toe vóór elke regel in een txt-tekstbestand

admin · Geplaatst op 04-02-2015 13:25:21

'=================================================================
set arg=WScript.Argumenten
als arg.count=0 dan
msgbox "Usage:"&vbcrlf&vbcrlf&" Voer dit script niet direct uit, sleep gewoon één of meer bestanden die vervangen moeten worden door strings op dit scriptbestand.
wscript.quit
einde als
set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Voer het teken in dat je vóór de regel hebt toegevoegd:")
doen
fw.writeline(data&fr.readline)
Lus tot fr.atendofstream
fr.sluit
FW.CLOSE
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
doen
fw.writeline(fr.readline)
Lus tot fr.atendofstream
fr.sluit
FW.CLOSE
fso.deletefile("temp.txt")
'====================================================
Kopieer bovenstaande inhoud en sla het op als een VBS-bestand, sleep het document dat je wilt aanpassen naar dit VBS-bestand, je kunt de tekens invoeren die je wilt toevoegen, bevestigen na het invoeren, open je document, en je zult zien dat elke regel van je document de data heeft toegevoegd die je net hebt ingevoerd.

Voeg tekens in bulk toe vóór elke regel in een txt-tekstbestand

Gerelateerde berichten

Secties bekeken