[Componente] TextBox Multilinea y saltos de línea

[Begoguay]

Hola amigos foreros.

Tengo el siguiente problema: En un TextBox Multiline, pido un texto grande. Luego ese texto lo quiero llevar a una variable de PIC X(200). Al introducir el texto, si pulso 'ENTER', me pasa a la siguiente línea del TextBox, (que es lo que yo quiero), pero cuando el contenido del control lo paso a la variable, me junta las dos lineas y no me deja ningún espacio entre lo escrito en una línea y la otra.
¿Habría forma de que en la variable X(200), al juntar las dos líneas, me las separe con un espacio, un guión, o algo?

Un saludo.

[Kuk]

❞ me junta las dos lineas

Esto no es posible. El salto de línea en Windows es de 2 bytes y el valor es X"0D0A", ese valor no es visible. Si lo visualizas en un control "mono-línea", simplemente no lo muestra y es por eso que lo ves todo junto, pero el valor sigue ahí cuando haces el MOVE desde el TextBox hacía la variable WORKING.

Haz un INSPECT o un bucle sobre tu variable WORKING reemplazando el valor X"0D0A" por lo que quieras.

Ya nos dirás si se ha resuelto tu problema

[Begoguay]

❞ Esto no es posible. El salto de línea en Windows es de 2 bytes y el valor es X"0D0A", ese valor no es visible. Si lo visualizas en un control "mono-línea", simplemente no lo muestra y es por eso que lo ves todo junto, pero el valor sigue ahí cuando haces el MOVE desde el TextBox hacía la variable WORKING. Haz un INSPECT o un bucle sobre tu variable WORKING reemplazando el valor X"0D0A" por lo que quieras. Ya nos dirás si se ha resuelto tu problema

Hola Kuk.
Yo quisiera sustituir el valor X"0D0A" por un guión.
Pongo esta instrucción

        INSPECT TEXTO REPLACING LEADING X"0D0A" BY "-"

y me da error:

For a REPLACING phrase in an INSPECT statement, the lengths of the replacing character and replaced character must be equal

He intentado buscar el ASCII del guión ¿(X"2D")? y me pone el mismo error.

No se me ocurren mas soluciones para sustituir el salto de línea por un guión (-).

[Kuk]

Begoguay, el INSPECT no permite sustituciones de cadenas de caracteres de diferentes tamaños. Es decir, la longitud del texto a reemplazar debe coincidir con la longitud del texto nuevo. En este caso si haces

     INSPECT TEXTO REPLACING
         ALL X"0D0A" BY "- "

Te va a funcionar.

Si no quieres 2 caracteres, ya debes hacer un bucle:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  IDX-1       PIC 9(4) COMP-5. 
 01  WS-CAMPO    PIC X(8192).
 PROCEDURE       DIVISION.
     
     MOVE "Text" OF CmText1 TO WS-CAMPO
     
     MOVE 1 TO IDX-1
     
     PERFORM UNTIL (IDX-1 + 2) > LENGTH OF WS-CAMPO
         IF  WS-CAMPO(IDX-1:2) = X"0D0A"
             MOVE SPACES               TO WS-CAMPO(IDX-1:1)             
             MOVE WS-CAMPO(IDX-1 + 2:) TO WS-CAMPO(IDX-1 + 1:)
         END-IF
         
         ADD 1 TO IDX-1
     END-PERFORM
     
     MOVE WS-CAMPO TO ...