Obtener las lineas de un Text Box

[~~]

Hola atod@s:

Vereis este es mi problema:

Código [Seleccionar] Expandir

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:

Código [Seleccionar] Expandir

A-4254
A-57456
H-9

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

[ReViJa]

Con esto creo que te apañaras.

Código [Seleccionar] Expandir

Print  Left(Text1.Text, 1) & "-" & Mid(Text1.Text, 2, Len(Text1.Text))


[~~]

Hola

Muxas gracias por tu ayuda, ahora ya se como seleccionar solo una letra dos o las que sea de un text box, pero no hay alguna manera de seleccionar una linea entera sin saber el número de letras q tiene, simplemente q guarde la linea entera??? 

De nuevo gracias
1S4ludo

[Hans el Topo]

Hola

Muxas gracias por tu ayuda, ahora ya se como seleccionar solo una letra dos o las que sea de un text box, pero no hay alguna manera de seleccionar una linea entera sin saber el número de letras q tiene, simplemente q guarde la linea entera??? 

De nuevo gracias
1S4ludo

ir recorriendo hasta encontrar el caracter de salto de linea vbnewline

[~~]

Hola

ir recorriendo hasta encontrar el caracter de salto de linea vbnewline

Podrias explicarlo un poco mejor??

[NekroByte]

Es con SendMessage y EM_GETLINE pero por muchas razones no puedo pensar porque ando bloqueado de los sentidos pero en la recopilación de enlaces hay uno que lo explica, busca uno que la url es www16.brinkster.com, buscas la forma de ir al índice (puse el link al capítulo 1 y no puedo cambiarlo) y luego busca la lección donde se habla de SendMessage.

Ciao, osea, Hilsen.

[~~]

Hola

Por fin lo encontre!!! Lo dejo aki como usarlo por si le interesa a alguien:

Código [Seleccionar] Expandir

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_GETLINE = &HC4

Private Sub Command1_Click()

Dim Respuesta As Long
Dim Texto As String

Texto = Space$(10)
Respuesta = SendMessage(Text1.hwnd, EM_GETLINE, 1, ByVal Texto)

MsgBox Texto

End Sub

El numero q hay despues de EM_GETLINE indica la linea, o --> Linea 1 ; 1 --> Linea 2 ....

Gracias por vuestra ayuda
1S4ludo