Cita:
Iniciado por MaxExtreme Te estoy repitiendo que el código que puse está bien. Fíjate un poquito. La primera parte guarda 2 cadenas de texto:
Código:
Private Sub Command1_Click()
Open "C:\prueba.txt" For Append As 1
Write #1, Text1.Text
Write #1, Text2.Text
Close #1
End Sub
Y ésta es la de búsqueda
Código:
Private Sub Command2_Click()
Dim Uno As String
Dim Dos As String
Open "C:\prueba.txt" For Input As 1
Do While Not EOF(1)
Input #1, Uno
Input #1, Dos
If Dos = Text3.Text Then
MsgBox "Encontrado " & Dos
End If
Loop
Close #1
End Sub
Te repito: El código que te he escrito ahí funciona. Amplíalo con los demás campos que uses si quieres.
Para mostrar una lista de cosas, o usas un TextBox con MultiLine en ON, o un ListBox mejor.
Disculpame, amigo, en tu codigo vos pusistes que el resultado de la busqueda lo muestre en un msgbox, yo reemplacé eso por un textbox con el multiline en True, con el siguiente codigo
If repre = Text12.Text Then
Text11.Text = Text11.Text + medio + Chr(10) + Chr(13)
Exit Sub
End If
y me lo muestra uno a continuacion del otro medio, y no uno debajo del otro como quisiera, yo agregue el comando chr(13) porque encontre que eso haria bajar el siguiente dato, estoy errado en algo? gracias de nuevo y disculpa que sea tan pesado.
El negrito
