Legg til tegn i bulk før hver linje i en txt-tekstfil

Admin · Publisert på 04.02.2015 13:25:21

'=================================================================
set arg=WScript.Argumenter
hvis arg.count=0 så
msgbox "Usage:"&vbcrlf&vbcrlf&" Ikke kjør dette skriptet direkte, bare dra og slipp én eller flere filer som må erstattes med strenger på denne skriptfilen.
wscript.quit
Slutt hvis
set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputboks("Vennligst skriv inn tegnet du la til før linjen:")
gjøre
fw.writeline(data&fr.readline)
Sløyfe til fr.atendofstream
fr.lukk
FW.CLOSE
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
gjøre
fw.writeline(fr.readline)
Sløyfe til fr.atendofstream
fr.lukk
FW.CLOSE
fso.deletefile("temp.txt")
'====================================================
Kopier innholdet ovenfor og lagre det som en VBS-fil, dra dokumentet du vil endre til denne VBS-filen, du kan skrive inn tegnene du vil legge til, bekreft etter inntasting, åpne dokumentet, og du vil oppdage at hver linje i din har lagt til dataene du nettopp har lagt inn.

Legg til tegn i bulk før hver linje i en txt-tekstfil

Relaterte innlegg

Seksjoner sett