Cita:
Iniciado por MaxExtreme Pues no le veo el problema... Este código funciona:
Código:
Option Explicit
Private Sub Command1_Click()
Open "C:\prueba.txt" For Append As 1
Write #1, Text1.Text
Write #1, Text2.Text
Close #1
End Sub
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
Disculpame amigo, pero por ahi no me expresé bien, el tema con la carga de datos no tengo problemas, despues de la carga agregué un boton de busqueda para que me
muestre en un textbox uno debajo deotro solo las personas cargadas en el archivo que sean de una determinada provincia (tengo un campo de provincia) te puse el codigo de carga de datos porque vos me pedistes, a continuacion pongo de nuevo el codigo de busqueda, a lo mejor no puede mostrarme como yo quiero uno debajo de otro en un textbox y tengo que usar un label no?
Open "C:\medios.dat" For Input As 1
Do While Not EOF(1)
Input #1, medio
Input #1, capint
Input #1, prov
Input #1, tmedio
Input #1, repre
Input #1, dire
Input #1, ejec
Input #1, teldto
Input #1, celu
Input #1, email
ProgressBar1.Value = 0
Timer1.Enabled = True
If prov = Text12.Text Then
Text11.Text = medio + Chr(10) + Chr(13)
Else
MsgBox "No hay medios de esta provincia"
End If
Loop
Close #1
Desde ya muchas gracias por tu amabilidad
El negrito