- Windows Script Host - VBScript - Sistema de archivos - Escribir en archivo de texto -
Analogicamente a los metodos de lectura, existen metodos correspondientes de escritura:
- Write("Texto")
- WriteLine("Texto")
- WriteBlankLine(cantidad de líneas en blanco)
Es posible escribir un archivo carácter a carácter ("Write( )") o línea a línea ("WriteLine( )"). Lo que
no hay, es un metodo explicito para guardar el contenido completo de un archivo con solo una llamada. "WriteBlankLines( )" escribe cualquier
cantidad de líneas vacias.
El siguiente script escribe las letras del abecedario (minisculas y mayusculas), en una línea de un archivo de textos. De sustituirse "Write( )"
por "WriteLine( )", cada letra representará una línea.
El script escribe en un archivo con el metodo "Write( )". El archivo se abrirá con "OpenTextFile( )" y se entregará al
parametro "ForWriting", el cual permite la escritura en el archivo abierto. En un bucle "For" se escribirán las letras minusculas
y mayusculas del alfabeto carácter a carácter. Al final se cerrará el archivo con el metodo "Close( )".
' escribirarchivo.vbs
' ================================================
Option Explicit
' declaracion de variables
Dim FSO, contenidoarchivo, contador
' declaracion constante
Const ForWriting = 2
Const nombrearchivo="ejemplo.txt"
' crear objeto
Set FSO = CreateObject("Scripting.FileSystemObject")
Set contenidoarchivo = FSO.OpenTextFile(nombrearchivo, ForWriting)
' escribir todos las letras del alfabeto
For contador = 1 To 26
' las letras minusculas comientan el la posición 97
contenidoarchivo.Write Chr(96 + contador)
' mayusculas comienzan en la posicion 65
contenidoarchivo.Write Chr(64 + contador)
Next
' cerrar archivo
contenidoarchivo.Close
