Ver originales (Francés)

Eliminación de espacios en COBOL

benidrar -  
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 Moderador
    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
    1. 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
      1. blux Moderador
        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
        1. 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 Moderador
            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
        3. KAIDI
          Non, "DE SEVRES" ne doit pas devenir "DESEVRES".
          0
          1. blux Moderador
            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
        4. KAIDI
          solo puede hacerlo si conoce de antemano las palabras (o las longitudes) de las que debe eliminar los espacios.
          0
          1. benidrar
            Hola,

            ¡les agradezco a todos por su ayuda tan valiosa!
            0
            1. claudius51
              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
            2. blux Moderador
              @claudius51Hace 3 años que el problema está resuelto...

              --

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