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:
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
Con esto creo que te apañaras.
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??? :huh: :huh: :huh:
De nuevo gracias
1S4ludo
Cita de: E0N 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
ir recorriendo hasta encontrar el caracter de salto de linea vbnewline
Hola
Citarir recorriendo hasta encontrar el caracter de salto de linea vbnewline
Podrias explicarlo un poco mejor??
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:
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