Nesesito buscar en un TXT XXX palabra y si es posible que te diga en que Linea Está.
Saludos
| ||||
Código
Código:
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. 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() |
| ||||
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 |
| ||||
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í: Cita: sr.Close() 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
__________________ Nadie roba nada ya que en la vida todo se paga . . . Exentrit - Soluciones SharePoint & Net |
| ||||
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 Última edición por SKL®; 29/09/2005 a las 10:52 |