Hola atod@s:
Vereis este es mi problema:
Private Sub Buscar_Click()
Dim archivo As String
Open "C:\mi-carpeta\" & txtA & ".txt" For Binary As #1
archivo = Space(LOF(1))
Get #1, , archivo
Close #1
txtSalida.text = archivo
End Sub
Private Sub guardar_Click()
Open "C:\mi-carpeta\" & txtA & ".txt" For Output As #1
Print #1, txtA.text
Print #1, txtB.text
Print #1, txtC.text
Close #1
End Sub
txtA, txtB y txtC son 3 campos a rellenar, y txtSalida es donde
se imprimen cuando los buscamos (tiene propiedad multiline = true)
Mi duda es la siguiente, como podria hacer para meter en variables distintas cada una de las lineas del txtSalida???
Es decir, el txtSalida quedaria asi:
Pues lo que quiero es meter A-4254 en una variable, y asi con el resto, no se si me explico.
Otra cosa, una vez alla obtenido la variable, como leo su primera letra nada mas???
Muxas gracias por adelantado
1S4ludo
Mostrar Mensajes
)