Visual Basic - NOVATO!! NECESITO AYUDA POR FAVOR

Buenos días a todos, soy nuevo en esto y estoy constantemente con los manuales y en los foros, pero soy incapaz de entender todo lo que leo,

Tengo 5 cajas de texto y el contenido lo guardo en un fichero de texto, cada caja de texto en una línea con CommonDialog.

Pero al abrirlo soy incapaz que carga cada línea de texto en su textBox correspondiente.

Si pudierais ayudarme....
MUCHAS GRACIAS

Lo que puedes hacer es guardar los datos de las cajas de texto por un orden determinado y con una separacion fija... por ejemplo.

dato4;dato1;dato2;dato5;dato3;

Cada dato es corresponde a una caja de texto y lo guardas en el fichero con un punto y coma al final.

Luego para recuperar y poner los datos en cada caja solo tienes k buscar el ;
y sabes que el dato4 corresponde a la caja de texto 4, el dato 1 a la caja 1 y seguido...

O simplemente si lo tienes separado por enters buscar cada enter.
dato4
dato1
dato2
dato5
dato3

Buscas el enter con chr(13) o como veas y sabiendo k el primero corresponde al 4 el segundo al 1....
por ejemplo si tienes mas datos, es decir hay dos datos para la caja 1 , 2 para la caja 2.. los puedes separar por otro signo.

Todo es buscar una forma de ir tomando cada dato del txt meterlo en una variable y luego a su caja correspondiente.
Creo que es una opción bastante aceptable :D

muchas gracias por tu ayuda...

ya he conseguido guardarlos separados por ;

el problema que me surge ahora, es que no se cómo recuperarlos.

he conseguido pasar el dato1 a la caja1, pero los siguientes datos los coloca todos en la caja2

Espero no causarte mucha molestia

muchas gracias

Bueno... Atento a esto :D puede ser complicado el codigo pero esta hecho a medida :P.

Te explico primero:
- El formulario tiene 5 cajas de texto (textbox) creadas como matrices de 1 a 5.
Para crear matrices solo compias el textbox y lo pegas hasta que te ponga el index a 5 y luego borras el textbox k pone 0 de index.
- Tienes dos botones uno para mandar los datos al txt y otro para recoger los datos y ponerlos cada uno en cada caja.
- Y por ultimo tienes un CommondDialog llamado CD.

Y aqui tienes el codigo :D no te asustes :P

'Con esto guardas el archivo de las 5 cajas de texto en un TXT
Private Sub Command1_Click()
Dim Texto
Dim Ban As Boolean
Dim i, J As Integer
CD.Filter = "Archivo de Texto (*.txt)|*.TXT"
CD.ShowSave
If CD.FileName <> "" Then
If Dir(CD.FileName) <> "" Then 'Si Existe el Archivo
Kill CD.FileName 'Lo Eliminamos
End If
Open CD.FileName For Output As #1
Texto = Text1(1).Text & ";" & Text1(2).Text & ";" & Text1(3).Text & ";" & Text1(4).Text & ";" & Text1(5).Text & ";"
Print #1, Texto 'Esto es como un Enter. Un salto de carro
Close #1
End If
End Sub

'Con esto coges el archivo y pones cada dato en cada caja
Private Sub Command2_Click()
Dim a As String
Dim i As Integer
Dim x As Integer
x = 1
CD.Filter = "Archivo de Texto (*.txt)|*.TXT"
CD.ShowOpen
If CD.FileName <> "" Then
Open CD.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, a 'Leer
Loop
Close #1
End If
For i = 1 To Len(a)
If Mid(a, i, 1) <> ";" Then
If x < 6 Then
Me.Text1(x).Text = Me.Text1(x).Text + Mid(a, i, 1)
End If
Else
x = x + 1
End If
Next
End Sub

Ales :D buena suerte (*^_^*)

MUCHÍSIMAS GRACIAS,

Para mi es compicadillo, pero más o menos entiendo lo que me has hecho a medida.

Muchas gracias de verdad.


César Martín de la Torre Martínez
Dpto. Producción Vegetal. Fitotecnia
Escuela Técnica Superior de Ingenieros Agrónomos
Universidad Politécnica de Madrid
Av Complutense s/n
28040 Madrid (España)