[Ayuda]Buscar en un TXT

[RootK]

Solo una sugerencia.. recomendaría hacer un while en vez de un Do while para evitar problemas con archivos vaciós.

yo haría el code así:

Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
Dim x As Integer = 0
while sr.Peek <> -1
x += 1
line = sr.ReadLine()
if line.IndexOf(vPalabraABuscar) <> -1 then
Response.Write("El valor si se encuentra en la linea " & x.ToString)
End If
End While

sr.Close()