Problema al leer txt: loop infinito

[Ethiel]

Buenas.

Tengo un problema al leer el txt utilizando visual basic.net 2005. Resulta que no detecto el final del archivo, y vuelve a comenzar a leer de nuevo, siendo el bucle infinito.


Private Function estaNumeroEnTxt(ByVal numerotrabajador As Integer)

Const fic As String = "C:\Archivos de programa\CreaUsuarios\pepe2.txt"
Dim texto As String
Dim numero As String
Dim num As Integer
Dim oFile As System.IO.File
Dim oRead As System.IO.StreamReader


Dim sr As StreamReader
sr = oFile.OpenText(fic)




Dim filenumber As Integer


numero = numerotrabajador

numero = 13
Dim enc As Boolean = False




texto = sr.ReadLine
Do While Not texto Is Nothing




If Not texto Is Nothing Then
MsgBox(texto)
Else
MsgBox("encontrado " & texto)
enc = True
End If

texto = sr.ReadLine
Loop

rs.close()

¿Alguna ayudita?

[dan14_cc]

Ya probaste con el ReadAllText???

http://msdn.microsoft.com/en-us/library/system.io.file.readalltext.aspx

Saludos!!

[Ethiel]

No puedo probar así, ha de ser secuencial.
Por alguna razón, el código no se subió cuando puse el mensaje. Lo volveré a subir.

Saludos.