| |
|
|
| |
-
Windows Script Host - VBScript - Sistema de archivos - Buscar en el contenido de un archivo
-
El siguiente script busca, en los archivos de una estructura, una cadena de caracteres.
En este caso, durante el recorrido del listado "Files( )", se abrirán los archivos en modo de textos. El metodo "ReadAll( )"
lee su contenido en una variable. La función "InStr( )" de Visual Basic, compara el String buscado con el contenido del archivo. De
devolverse un valor mayor que 0, significa que se ha encontrado una congruencia, lo que editará el nombre del archivo y su path.
' buscarenarchivo.vbs
' ================================================
Option Explicit
' declaracion de variables
Dim directorio, subdirectorio
Dim texto, FSO
' leer texto en la linea de comandos
texto = WScript.Arguments(0)
' crear objecto
Set FSO = CreateObject("Scripting.FileSystemObject")
' leer el directorio a buscar de la linea de comandos
Set directorio = FSO.GetFolder(WScript.Arguments(1))
' llamada de la funcion de busqueda
WScript.Echo "El texto " & texto & " fue encontrado en: "
busqueda directorio,texto
funtion busqueda(directorio,textos)
Dim archivos,textostream,contenidoarchivo
For Each archivos In directorio.Files
Set textostream = FSO.OpenTextFile(archivos.Path,1)
contenidoarchivo = textostream.ReadAll
If InStr(1, contenidoarchivo, textos, 1) Then
WScript.Echo archivos.Path
End If
Textostream.Close
Next
' buscar en los subdirectorios
For Each subdirectio In directorio.SubFolders
busqueda subdirectorio,texto
Next
End Function
 |
|
Ultima actualisación: Tue, 24 ▪ May ▪ 2011
|
|
|
|
