Añade caracteres en bloque antes de cada línea en un archivo de texto txt

Admin · Publicado en 4/2/2015 13:25:21

'=================================================================
set arg=WScript.Arguments
si arg.count=0 entonces
msgbox "Usage:"&vbcrlf&vbcrlf&" No ejecutes este script directamente, simplemente arrastra y suelta uno o más archivos que necesiten ser reemplazados por cadenas en este archivo de script.
wscript.quit
fin si
set fso=wscript.createobject("scripting.filesystemobject")
Set fr=fso.opentextfile(arg(0),1)
Set fw=FSO.createTextFile("temp.txt",2)
data=inputbox("Por favor, introduce el carácter que añadiste antes de la línea :")
hacer
fw.writeline(data&fr.readline)
bucle hasta fr.atendofstream
fr.close
fw.close
Set FR=FSO.OpenTextFile("temp.txt",1)
Set fw=FSO.createTextFile(Arg(0),2)
hacer
fw.writeline(fr.readline)
bucle hasta fr.atendofstream
fr.close
fw.close
fso.deletefile("temp.txt")
'====================================================
Copia el contenido anterior y guárdalo como un archivo VBS, arrastra el documento que quieres modificar a este archivo VBS, puedes introducir los caracteres que quieras añadir, confirmar después de ingresar, abrir tu documento y verás que cada línea de tu cuenta ha añadido los datos que acabas de introducir.

Añade caracteres en bloque antes de cada línea en un archivo de texto txt

Publicaciones relacionadas

Secciones vistas