Suppression des blancs avec COBOL

benidrar -  
blux Messages postés 2051 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour

Comment supprimer les blancs à droite dans une chaîne de caractères avec COBOL
par exemple 'abcd ' deviendrait 'abcd'

Merci.

7 réponses

  1. blux Messages postés 2051 Date d'inscription   Statut Modérateur Dernière intervention   3 455
     
    Salut,

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

    Ca devrait le faire...

    A+ Blux
     "Les cons, ça ose tout.
    C'est même à ça qu'on les reconnait"
    1
  2. benidrar
     
    Merci, j'ai essayé
    mais apparemment cela ne fonctionne pas!
    Il y a toujours les blancs
    de je veux éliminer uniquement les blancs à droite
    par exemple:
    'DE SEVRES '
    ne pas supprimer l'espace entre 'de' et 'sevres'
    A plus
    0
  3. blux Messages postés 2051 Date d'inscription   Statut Modérateur Dernière intervention   3 455
     
    Ok, donc dans ce cas, la seule solution est de redéfinir ta zone de saisie en tableau :

    05 toto occurs 200.
    10 str pic x.

    move tavariable to toto.

    Et ensuite tu fais une boucle qui décrémente i de 200 à 1 et tu testes x(i) jusqu'à ce que x(i) soit différent d'espace. Dès que ta condition est vraie tu recopies la suite dans une autre variable (avec 'string').
    0
  4. KAIDI
     
    Bonjour
    Si à priori, tu ne sais pas ou mettre les blancs, ça parait difficile!!
    'DE SEVRES " Comment savoir qu'il faut laisser le blanc entre DE et
    SEVRES ???
    Une fois déterminé ce problème, le reste est résolu...
    KAIDI
    0
    1. blux Messages postés 2051 Date d'inscription   Statut Modérateur Dernière intervention   3 455
       
      Euh ben si, il a dit 'supprimer les blancs à droite'... ;-)
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. KAIDI
     
    dois-tu supprimer tous les blancs ou pas?
    'DE SEVRES" doit-il devenir "DESEVRES" ?
    0
    1. blux Messages postés 2051 Date d'inscription   Statut Modérateur Dernière intervention   3 455
       
      Non, il ne veut que supprimer les blancs à droite...
      0
  7. KAIDI
     
    il ne peut le faire que s'il connait par avance les mots (ou les longueurs) dont il doit supprimer les blancs!!
    0
  8. benidrar
     
    Bonjour,

    je vous remercie tous pour votre aide très précieuse!
    0
    1. claudius51 Messages postés 1 Statut Membre
       
      bonjour

      il faut je pense utiliser un occurs et tester la valeur caracteres par caracteres

      mais ne pas faire la sup si val (I) = spaces et val (i + 1) not = spaces

      cordialement
      0
      1. blux Messages postés 2051 Date d'inscription   Statut Modérateur Dernière intervention   3 455 > claudius51 Messages postés 1 Statut Membre
         
        Ca fait 3 ans que le problème est résolu...
        0