Aggiungi i caratteri in blocco prima di ogni riga in un file di testo txt

Admin · Pubblicato su 04/02/2015 13:25:21

'=================================================================
set arg=WScript.Arguments
se arg.count=0 allora
msgbox "Usage:"&vbcrlf&vbcrlf&" Non eseguire direttamente questo script, basta trascinare e rilasciare uno o più file che devono essere sostituiti con stringhe su questo file script.
wscript.quit
fine se
Set FSO=Wscript.CreateObject("Scripting.fileSystemObject")
Set fr=fso.opentextfile(arg(0),1)
Set FW=FSO.createTextFile("temp.txt",2)
data=inputbox("Per favore inserisci il carattere che hai aggiunto prima della riga:")
fare
fw.writeline(data&fr.readline)
Loop fino a fr.atendofstream
fr.close
fw.close
Set FR=FSO.OpenTextFile("temp.txt",1)
Set fw=fso.createtextfile(arg(0),2)
fare
fw.writeline(fr.readline)
Loop fino a fr.atendofstream
fr.close
fw.close
fso.deletefile("temp.txt")
'====================================================
Copia il contenuto sopra e salvalo come file VBS, trascina il documento che vuoi modificare in questo file VBS, puoi inserire i caratteri che vuoi aggiungere, confermare dopo aver inserito, aprire il tuo documento e scoprirai che ogni riga ha aggiunto i dati appena inseriti.

Aggiungi i caratteri in blocco prima di ogni riga in un file di testo txt

Post correlati

Sezioni visualizzate