1
Haga clic derecho en el escritorio y seleccionar "Nuevo". Seleccione "Archivo de texto " en la lista desplegable. Windows creará un nuevo archivo de texto y mostrar su icono en el escritorio
2
Agregue el siguiente código al documento : .
Dim objFSObject , strFile , strFileContents , strCurrentLine , arrLineCollection
CONST ForReading = 1
'Crear el sistema de archivos de objetos
Establecer objFSObject = CreateObject ( " Scripting.FileSystemObject " )
Las dos primeras líneas crean variables. La tercera línea crea un objeto de sistema de archivos
3
Añadir este código debajo del código en el paso 2 : .
StrFile = "C : \\ somefolder \\ archivo.txt "
Sustituir " C: \\ somefolder \\ somefile " con la ruta de acceso a un archivo de texto en su disco duro . Por ejemplo, para utilizar un archivo llamado " test.txt " ubicado en la carpeta " temp" en la unidad "C ", añada la siguiente línea :
strFile = "C : \\ temp \\ test.txt "
4
Añadir este código debajo del código en el paso 3 .
strFileContents = objFSObject.OpenTextFile ( strFile , ForReading ) ReadAll
arrLineCollection = split ( strFileContents , vbCrLf )
la primera línea lee el archivo y lo almacena en " strFileContents . " La segunda línea crea una colección (array ) y almacena cada línea del archivo como un elemento en el array. Por ejemplo , si el archivo de entrada tiene tres líneas , la matriz tendrá tres elementos
5
Añada el código siguiente al código del paso 4 : .
For Each strCurrentLine en arrLineCollection
wScript.Echo " Corriente de línea =" & strCurrentLine
Siguiente
objFSObject.Close
Este código bucles de bloque a través de la matriz y muestra cada línea .
6
Haga clic en " archivo" y seleccione " Guardar como" para abrir la ventana " Guardar como" ventana.
7
Type " vbReadTest1.vbs " en el " Nombre de archivo" cuadro de texto y haga clic en " Guardar ". Bloc de notas creará un archivo VBS y guárdelo en el escritorio.
8
Busque el archivo en el escritorio y haga doble clic en él. El código VBS leerá el archivo de entrada y mostrar su contenido .