[Ayuda]Buscar en un TXT

[SKL®]

Nesesito buscar en un TXT XXX palabra y si es posible que te diga en que Linea Está.


Saludos

[aristotelisco]

Pudes usar un StreamReader que se encuentra en el Namespace System.IO

No recuerdo los metodos, pero estoy seguro de que tiene un read para lineas y un read para todo el documento.

Lo que regresan estos metodos es un String, allí puedes usar el IndexOf y le pasas la palabra a buscar, si se encuentra, te va aregresar el indice en donde comienza esa palabra, si no esta te regresa -1.

[SKL®]

:O Gracias.
Pero soy medio NOOB con esta parte de vb.net :S no podrias poner 1 codigo de ejemplo?.

Gracias y discupa las molestias

[aristotelisco]

Código:

Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
Dim x As Integer = 0
' Read and display the lines from the file until the end 
' of the file is reached.
      Do 
          x += 1
          line = sr.ReadLine()
          if line.IndexOf(vPalabraABuscar) <> -1 then
               Response.Write("El valor si se encuentra en la linea " & x.ToString) ' Response es para ASP.Net, si usas WinForms, guarda el valor en algun label o TextBox.
          end if
      Loop Until line Is Nothing
sr.Close()

El Método ReadToEnd te pone todo el contenido del archivo en un String, si el archivo no es muy grande, y no te intresa saber la linea en la que se encuentra tu palabra, puedes usar este para evitarte el ciclo Do.

[SKL®]

Muchas Gracias :D me sirvio de mucho. te eh agregado al MSN porque nesesito que me respondas algunas preguntas si no es molestia. porque estoy en un proyecto...

Saludos y gracias

[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()

[aristotelisco]

Me gusta lo del while, el código Do While lo saqué directamente del MSDN.

[SKL®]

OK, la cosa en realidad es asi.
Nesesito sobreescribir un Archivo txt. pero esta es la dificultad. lo qeu tengo que sobreescribir nose lo que es y esta en medio de un txt intocable.

Osea que solo tengo que Modificar la parte que nesesito.

Les Envio un ejemplo.

Descargar

Ahi estan todos los archivos que tengo que reemplazar.

Los que dicen "127.0.0.1" son las IP qeu tengo que poner (reemplazar)
y donde dice "Reemplazar!" tengo que Agragar Texto.

Saludos espero que me ayuden a resolver este embrollo :S

Aclaracion Todo esto es para Visual Basic.NET