ayuda con un registro

[erbuson]

Hola:

Creo que no te funciona porque estás leyendo un solo registro y debes tener un bucle que los lea todos.

Copio tu código y te indico para que lo veas mas facilmente:

Private Sub Command1_Click()
Open "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt" For Input As 1
Open "C:\Users\Documents\TAREAS\VISUAL BASIC\pasadatos.txt" For Append As 2
If Not EOF(1) Then
While Not EOF(1)
Input #1, nombrecogido
Input #1, dircogido
Input #1, telcogido
Input #1, correocogido
Input #1, sexocogido
If nombrecogido = Text6.Text Then
Text1.Text = nombrecogido
Text2.Text = dircogido
Text3.Text = telcogido
Text4.Text = correocogido
Text5.Text = sexocogido
Else
Write #2, nombrecogido
Write #2, dircogido
Write #2, telcogido
Write #2, correocogido
Write #2, sexocogido
End If
WEND
End If
Close #1
Close #2
Kill "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt"
Name "C:\Users\Documents\TAREAS\VISUAL BASIC\pasadatos.txt" As "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt"
End Sub

Debes sustituir tus sentencias que te marco en rojo por las que te pongo en azul, esto significa que debe leer el fichero hasta que sea fin del mismo.


Saludos