24/04/2004, 15:49
|
| | | Fecha de Ingreso: diciembre-2003 Ubicación: Ibiza
Mensajes: 8
Antigüedad: 21 años Puntos: 0 | |
| Tienes que abrir el archivo con...
Open "C:\Prueba.txt" for input as #1
Luego tienes que leerlo con...
Dim Linea as String, Total as String
do until eof(1)
line input #1, Linea
Total=Total + Linea + vbcrlf
loop
close #1
Entonces en la variable Total tienes todas las líneas del archivo de texto y para buscar en ellas utiliza el método InStr().
InStr (0, Total, "Prueba")
0=Posición donde empezar a buscar.
Total=Buscar en la variable Total
Prueba=Texto a buscar |