Título: Obtener las lineas de un Text Box Publicado por: ~~ en 15 Agosto 2006, 12:14 pm Hola atod@s:
Vereis este es mi problema: Código: 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: 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 Título: Re: Obtener las lineas de un Text Box Publicado por: ReViJa en 15 Agosto 2006, 13:10 pm Con esto creo que te apañaras.
Código: Print Left(Text1.Text, 1) & "-" & Mid(Text1.Text, 2, Len(Text1.Text)) Título: Re: Obtener las lineas de un Text Box Publicado por: ~~ en 15 Agosto 2006, 17:19 pm 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??? :huh: :huh: :huh: De nuevo gracias 1S4ludo Título: Re: Obtener las lineas de un Text Box Publicado por: Hans el Topo en 16 Agosto 2006, 01:37 am Hola ir recorriendo hasta encontrar el caracter de salto de linea vbnewline 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??? :huh: :huh: :huh: De nuevo gracias 1S4ludo Título: Re: Obtener las lineas de un Text Box Publicado por: ~~ en 16 Agosto 2006, 01:44 am Hola
Citar ir recorriendo hasta encontrar el caracter de salto de linea vbnewline Podrias explicarlo un poco mejor?? Título: Re: Obtener las lineas de un Text Box Publicado por: NekroByte en 16 Agosto 2006, 07:52 am 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. Título: Re: Obtener las lineas de un Text Box Publicado por: ~~ en 16 Agosto 2006, 11:56 am Hola
Por fin lo encontre!!! Lo dejo aki como usarlo por si le interesa a alguien: Código: 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 |