Lägg till tecken i bulk före varje rad i en txt-textfil

Admin · Publicerad på 2015-02-04 13:25:21

'=================================================================
set arg=WScript.Argument.
om arg.count=0 så
msgbox "Usage:"&vbcrlf&vbcrlf&" Kör inte detta skript direkt, dra bara och släpp en eller flera filer som behöver ersättas med strängar på denna skriptfil.
wscript.quit
slut om
set FSO=Wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Vänligen ange det tecken du lade till före raden:")
göra
fw.writeline(data&fr.readline)
Slinga till fr.atendofstream
fr.close
FW.CLOSE
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
göra
fw.writeline(fr.readline)
Slinga till fr.atendofstream
fr.close
FW.CLOSE
fso.deletefile("temp.txt")
'====================================================
Kopiera innehållet ovan och spara det som en VBS-fil, dra dokumentet du vill ändra till denna VBS-fil, du kan ange de tecken du vill lägga till, bekräfta efter inmatning, öppna ditt dokument, och du kommer att se att varje rad i din har lagt till den data du just matat in.

Lägg till tecken i bulk före varje rad i en txt-textfil

Relaterade inlägg

Avsnitt som ses