SoloCodigo

hola

miren tengo esta funcin que la uso para separar un texbox multilinea y guardar cada linea por separado que baje de una pagina(no recuerdo cual)

Public Function ImprimirXLinea(qControl As TextBox) As String
    ' Este procedimiento tomará cada línea de un textbox multiline  (23/Ene/00)
    ' y lo imprimirá en la impresora predeterminada
    '
    ' El parámetro qControl, será el TextBox a usar, en este caso no es necesario
    ' ya que sólo tenemos un TextBox, pero si se usaran varios...
    ' sería un procedimiento de uso genérico...
    '
    Dim i As Long, k As Long
    Dim L1 As Long, L2 As Long
    ' Constantes para usar con SendMessage
    Const EM_GETLINECOUNT = &HBA
    Const EM_LINEFROMCHAR = &HC9
    Const EM_LINELENGTH = &HC1

    ' Número de líneas del TextBox
    k = SendMessage(qControl.hWnd, EM_GETLINECOUNT, 0, 0&)

 '   Debug.Print ""
    Dim xTexto As String
    xTexto = emtpy
   
    For i = 0 To k - 1
        ' Primer carácter de la línea actual
       
        L1 = L1 + L2 + SendMessage(qControl.hWnd, EM_LINEINDEX, i, 0&) + IIf(i > 0, 0, 1)
        ' Longitud de la línea actual
        L2 = SendMessage(qControl.hWnd, EM_LINELENGTH, L1, 0&)
        ' Imprimimos el trozo de texto que representa a una línea
       xTexto = xTexto & Mid$(qControl.Text, L1, L2) & "\n"
    Next i
    ImprimirXLinea = xTexto
    ' Le indicamos que ya no hay más que imprimir
End Function

ahora, el problema es que si en el textbox le doy un enter para saltar renglon, al separarlo, hasta antes de donde le d enter sale bien, pero la linea siguiente me la corta y la deja de la longitud de la linea anterior(en la que le di enter)
y los demas caracteres de esa linea me los pone en la siguientre

bueno espero haberme explicado y ojala alguien pueda ayudarme

gracias!

ok a ver si puedo explicarlo mejor con un ejemplo

supongamos que en el textox escribo esto:

blah blah blah(enter)
bleh bleh bleh bleh bleh bleh bleh bleh bleh bleh bleh

la funcion me lo separa asi:

blah blah blah\n
bleh bleh bleh\n
bleh bleh bleh bleh bleh bleh bleh bleh

\n <--es el caracter que uso pa que en la bd separe las lineas

sip la cosa es qu no necesariamente la linea se termina con un enter, a veces(casi siempre de hecho) se delimita la linea por el tamaño del textbox

una ultima duda, ese codigo que me das, lo uso en vez de la funcion, o lo pego en alguna parte de la funcion

Hola.

Igual no se os ocurrió usar como alternativa la función Split.
Haz una prueba pasando el texto del textbox a esta función para ver cómo funciona:

...Desdee luego que la solución de ebolo es más directa en cuanto ya prepara el texto para ser grabado en la bd (sustituyendo cr + lf por '/n'), pero bueno, por tener en cuenta posibilidades...

Chao.

Hola.

Prueba con la función así:

Chao.

Hola de nuevo.
Brroz una cosilla he probado la función y, si no me he equivocado usándola, el resultado final es el mismo que con el Iif...........,¿no? o hay alguna diferencia que no haya visto, a parte de la "/".
Lo pregunto por aprender siempre cosas nuevas.

Saludos.

Verás ebolo...

En un principio yo tampoco me dí cuenta del detalle, pero el 'if' puede fallar porque en un textbox multiline, puede haber líneas que no acaben con retorno de carro y nueva línea: si escribiendo en el textbox llegas al final de la línea, automáticamente sigues escribiendo en la siguiente, y sin haber añadido un cr+lf. Osea, tienes una nueva línea que no podrías localizar ya que el texto no incluye en esa posición el correspondiente salto. De ahí que necesites enviar mensajes al control para obtener el número de líneas y donde empiezan.

Espero haberme explicado bien.

Chao.