Prefijo de archivo de texto de script VB

Question

¿Alguien sabe cómo anteponer rápidamente (agregar dos nuevas líneas de texto) al inicio de un archivo de texto existente usando VB Script o un archivo Bat? La solución más elegante consigue el tic.

Answer 1

¿Qué tal esto?

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("test.txt", 1)
ReadAllTextFile =   f.ReadAll
Set f = fso.OpenTextFile("test.txt", 2, True)
f.WriteLine("Blaaa")
f.WriteLine("Blaaaa some more...")
f.Write(ReadAllTextFile)

Fuente: Consejos Tek

Answer 2

Verifique Jos & # 233; Basilios responde por código y referencia al FSO. Lo usarás.

PERO : no iría a la ruta ReadAllTextFile = f.ReadAll , ya que podrían ser unos pocos Gigabytes (¿quién sabe?).

EN LUGAR :

1. abrir un nuevo archivo
2. escribir líneas antepuestas
3. leer línea por línea del archivo antiguo, escribir en el archivo nuevo
4. (cierra ambos archivos)
5. eliminar archivo antiguo
6. renombrar nuevo archivo - > archivo antiguo