Ver originales (Francés)

Eliminación de espacios en COBOL

benidrar -  
blux Mensajes publicados 2051 Fecha de registro   Estado Moderador Última intervención   -
Hola

¿Cómo eliminar los espacios a la derecha en una cadena de caracteres con COBOL?
por ejemplo 'abcd ' se convertiría en 'abcd'

Gracias.

7 respuestas

  1.
    blux Mensajes publicados 2051 Fecha de registro   Estado Moderador Última intervención   3 455
     
    Hola,

    UNSTRING ... DELIMITED BY ALL SPACES INTO ...

    Debería funcionar...

    ¡Hasta luego, Blux! 
     "Los imbéciles se atreven a todo. Es incluso por eso que los reconocemos"
    1
  2. benidrar
     
    Gracias, he intentado
    pero aparentemente no funciona!
    Siempre hay espacios
    que quiero eliminar solo a la derecha
    por ejemplo:
    'DE SEVRES '
    no eliminar el espacio entre 'de' y 'sevres'
    Hasta luego
    0
  3. blux Mensajes publicados 2051 Fecha de registro   Estado Moderador Última intervención   3 455
     
    Ok, así que en este caso, la única solución es redefinir tu zona de entrada en tabla:

    05 toto ocurre 200.
    10 str pic x.

    mueve tavariable a toto.

    Y luego haces un bucle que decremente i de 200 a 1 y pruebas x(i) hasta que x(i) sea diferente de espacio. Tan pronto como tu condición sea verdadera, copias la secuencia en otra variable (con 'string').

    --
    A+ Blux 
     "Los tontos se atreven a todo. Es incluso por eso que los reconocemos"
    0
  4. KAIDI
     
    Hola
    Si a priori no sabes dónde poner los espacios, parece difícil!!
    'DE SEVRES " ¿Cómo saber que hay que dejar el espacio entre DE y
    SEVRES???
    Una vez resuelto este problema, el resto está resuelto...
    KAIDI
    0
    1. blux Mensajes publicados 2051 Fecha de registro   Estado Moderador Última intervención   3 455
       
      Euh bien sí, dijo 'eliminar los espacios a la derecha'... ;-)

      --
      A+ Blux 
       "Los idiotas, se atreven a todo. Es precisamente por eso que los reconocemos"
      0
  6. KAIDI
     
    Non, "DE SEVRES" ne doit pas devenir "DESEVRES".
    0
    1. blux Mensajes publicados 2051 Fecha de registro   Estado Moderador Última intervención   3 455
       
      No, solo quiere eliminar los espacios a la derecha...

      --
      A+ Blux 
       "Los idiotas se atreven a todo. Es incluso por eso que los reconocemos"
      0
  7. KAIDI
     
    solo puede hacerlo si conoce de antemano las palabras (o las longitudes) de las que debe eliminar los espacios.
    0
  8. benidrar
     
    Hola,

    ¡les agradezco a todos por su ayuda tan valiosa!
    0
    1. claudius51 Mensajes publicados 1 Estado Miembro
       
      hola

      creo que hay que usar un occurs y probar el valor carácter por carácter

      pero no hacer la supresión si val (I) = espacios y val (i + 1) no = espacios

      cordialmente
      0
      1. blux Mensajes publicados 2051 Fecha de registro   Estado Moderador Última intervención   3 455 > claudius51 Mensajes publicados 1 Estado Miembro
         
        Hace 3 años que el problema está resuelto...

        --

        A+ Blux 
         "Los idiotas osan todo. Es incluso por eso que se les reconoce"
        0