VBScript: empezando a trabajar con fi...

VBScript: empezando a trabajar con ficheros (I)

Si para ejecutar otros programas usábamos un objeto de tipo WScript.shell, para acceder al sistema de ficheros usamos un objeto de tipo FileSystemObject.

Podemos abrir ficheros con uno de sus métodos:
OpenTextFile
OpenAsTextStream

Para abrir un fichero de texto abretxt.vbs:

dim fso dim fich set fso=createobject("Scripting.FileSystemObject") set fich=fso.OpenTextFile("c:\altas.txt")

Los ficheros se pueden abrir:
ForReading    1
ForWriting    2
ForAppending    8


Un fichero además se puede abrir con la codificación UTF, ASCII o la codificación por defecto, eso lo controlamos mediante las constantes:
UTF: TristateTrue -1
ASCII: TristateFalse -2
Default: TristateUseDefault 0

Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 Const TristateUseDefault = -2 Const TristateTrue = -1 Const TristateFalse = 0 Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile("D:\data\log.txt", ForWriting, True, TristateFalse)

Ahora vamos a ir leyendo una a una las líneas de un fichero d:\altas.txt:

Const ForReading = 1 Const TristateFalse = 0 Set fs = CreateObject("Scripting.FileSystemObject") Set fich = fs.OpenTextFile("D:\\altas.txt", ForReading, "True") Do While fich.atEndOfStream <> True   linea=fich.ReadLine ' Ahora mostramos la línea leída   wscript.echo linea Loop fich.close