Abre un archivo especificado y devuelve un objeto TextStream que se puede utilizar para leer, escribir o agregar en el archivo.
objeto.OpenAsTextStream([modoES, [formato]])
El argumento modoES puede tener cualquiera de los siguientes valores:
Constante | Valor | Descripción |
---|---|---|
ForReading | 1 | Abrir un archivo sólo para lectura. No puede escribir en este archivo. |
ForWriting | 2 | Abrir un archivo para escritura. Si existe un archivo con el mismo nombre, se sobreescribe su contenido anterior. |
ForAppending | 8 | Abrir un archivo y escribir al final del archivo. |
El argumento format puede tener alguno de los siguientes valores:
Constante | Valor | Descripción |
---|---|---|
TristateUseDefault | -2 | Abre el archivo utilizando el valor predeterminado del sistema. |
TristateTrue | -1 | Abre el archivo como Unicode. |
TristateFalse | 0 | Abre el archivo como ASCII. |
El método OpenAsTextStream proporciona la misma funcionalidad que el método OpenTextFile de FileSystemObject. Además, el método OpenAsTextStream se puede utilizar para escribir en un archivo.
El siguiente código muestra el uso del método OpenAsTextStream:
[JScript] function ProbarTextStream( ) { var fso, f, ts, s; var ForReading = 1, ForWriting = 2, ForAppending = 8; var TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0; fso = new ActiveXObject("Scripting.FileSystemObject"); fso.CreateTextFile( "prueba1.txt" ); // Crear un archivo. f = fso.GetFile("prueba1.txt"); ts =f.OpenAsTextStream(
ForWriting,
TristateUseDefault)
; ts.Write( "Hola mundo" ); ts.Close( ); ts =f.OpenAsTextStream(
ForReading,
TristateUseDefault)
; s = ts.ReadLine( ); ts.Close( ); return(s); } [VBScript] Function PruebaDeTextStream Const ParaLectura = 1, ParaEscritura = 2, ParaAnexar = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fso, f, ts Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateTextFile "prueba1.txt" ' Crea un archivo. Set f = fso.GetFile("prueba1.txt") Set ts =f.OpenAsTextStream(
ParaEscritura,
TristateUseDefault)
ts.Write "¡Hola mundo" ts.Close Set ts =f.OpenAsTextStream(
ParaLectura,
TristateUseDefault)
PruebaDeTextStream = ts.ReadLine ts.Close End Function
Método Copy | Método CreateTextFile | Método Delete | Método Move | Método OpenTextFile
Se aplica a: Objeto File
Ayuda de Javascript y Vbscript para Javascripts.astalaweb.com. |