Cómo buscar datos en un archivo con VB Script

Aprender a buscar datos en un archivo usando VB Script puede hacer que las secuencias de comandos aplicación más dinámica. VB Script es muy similar a Visual Basic, por lo tanto si usted tiene alguna experiencia en VB que no tendrá un problema trabajar con VB Script. En VB Script se puede manipular archivos similares a otros lenguajes de programación tales como crear, añadir, eliminar los datos y la lectura de archivos. Para leer y buscar los datos en un archivo que puede utilizar el "Scripting.FileSystemObject." Una vez que lea los datos a continuación, puede buscar cualquier cosa usando los datos en la memoria.

Instrucciones

1 Poner en marcha el Bloc de notas y escriba "Se trata de datos en mi archivo" y presionar "Enter". Tipo "1" y presionar "Enter". Tipo "2" y presionar "Enter". Tipo "3" y presionar "Enter". Tipo " 4 "y presionar" Enter ". Tipo" 5 "y presionar" Enter ". Pulse la tecla" Ctrl "y" S "para guardar el archivo. Guardarlo en "C: \ Temp" ". ReadFile.txt" como cierre el archivo.

2 Lanzamiento Bloc de notas y escriba lo siguiente para definir la "FileSystemObject" variable y abra el archivo que ha creado el primer paso para la lectura:

Establecer fsoObj = CreateObject ( "Scripting.FileSystemObject")
Establecer rdFile = fsoObj.OpenTextFile ( "C: \ Temp \ readFile.txt", ForReading)

3 Crear las variables que va a utilizar para buscar el archivo:

Const ForReading = 1
lineNum Dim
Dim myLineArray ()

4 Bucle a través de los datos del archivo y llenar la matriz con sus datos:

i = 0
Hacer hasta rdFile.AtEndOfStream
Preservar redim myLineArray (i)
myLineArray (i) = rdFile.ReadLine
i = i + 1
Lazo
rdFile.Close

5 Añadir el siguiente "bucle For ..." para buscar los datos en la matriz de número "4" y muestra un mensaje cuando su encontrados:

lineNum = 0
Para cada strLine en myLineArray
Si (strLine = "4") a continuación,

WScript.Echo "You have found " & strLine & " in line " & lineNum & "."

Terminara si
lineNum = 1 + lineNum
Siguiente

6 Pulse la tecla "Ctrl" y "S" para poner en marcha el "Guardar como" ventana de diálogo. Tipo "vbScriptFile.vbs" junto a "Nombre de archivo." Guardar en "C: \ Temp" y cierre el archivo. Vaya a "C: \ Temp" y haga doble clic en "vbScriptFile.vbs" para ejecutar el programa.