IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    septembre 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : septembre 2019
    Messages : 5
    Points : 6
    Points
    6
    Par défaut Calcul de Longueur d’une donnée et prise en compte sans espace de fin
    Bonjour,

    J’ai des petits doutes sur un développement en cours sur lequel je travaille pour m’entrainer.

    J’ai une donnée de type ‘/123..//ABC:1234..//DEF:Je tente d’apprendre le COBOL ‘

    Il y a des espaces à la fin de la donnée après le mot COBOL (qui ne sont pas visibles après mise en forme du message par le forum) Je souhaiterais calculer la longueur du champs sans les espaces de fin de la donnée. Il faut cependant bien garder les autres espaces de la donnée. Sauriez vous quelles seraient les instructions à utiliser?

    De plus, je souhaiterais également reporter la donnée sans les espaces de fin dans une variable dédiée qui sera reprise dans un traitement par la suite. Une solution?

    Merci à vous pour votre aide précieuse. N’hésitez pas s’il vous manque des éléments.

    Bien à vous,
    Elo.

  2. #2
    Membre expert
    Homme Profil pro
    Ingénieur Exploitation Mainframe
    Inscrit en
    octobre 2005
    Messages
    1 441
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Ingénieur Exploitation Mainframe
    Secteur : Finance

    Informations forums :
    Inscription : octobre 2005
    Messages : 1 441
    Points : 3 164
    Points
    3 164
    Par défaut
    Une proposition ... c'est du vite codé ...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
           IDENTIFICATION DIVISION.
          *
           PROGRAM-ID. ********.
           ENVIRONMENT DIVISION.
           DATA DIVISION.
           WORKING-STORAGE SECTION.
           1   A PIC X(70) VALUE
               "/123..//ABC:1234..//DEF:JE TENTE D'APPRENDRE LE COBOL".
           1   B PIC S9(4) BINARY.
           1   C PIC S9(4) BINARY.
           1   D PIC X(48).
           PROCEDURE DIVISION.
           DEBUT.
               DISPLAY "<" A ">"
          *
               INSPECT A TALLYING C FOR CHARACTERS BEFORE 'COBOL'
               ADD 5 TO C
               DISPLAY "C=" C
          *
               UNSTRING A DELIMITED BY 'COBOL'
                          INTO D
               DISPLAY "<" D ">"
               GOBACK
               .

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    mai 2006
    Messages
    20
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mai 2006
    Messages : 20
    Points : 23
    Points
    23
    Par défaut
    Solution qui fonctionne quelque soit le contenu de TEXTE

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
           IDENTIFICATION DIVISION.
           PROGRAM-ID. PGMTEXTE.
           
           ENVIRONMENT DIVISION.
    
           DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 TEXTE          PIC X(70) VALUE
               '/123..//ABC:1234..//DEF:JE TENTE D''APPRENDRE LE COBOL'.
           01 LONGUEUR-TEXTE PIC S9(4) COMP.
           01 I              PIC S9(4) COMP.
    
           PROCEDURE DIVISION.
    
           		MOVE LENGTH OF TEXTE TO LONGUEUR-TEXTE.
    
           		PERFORM VARYING I FROM LONGUEUR-TEXTE BY -1
           		  UNTIL I < 1
           		     OR TEXTE(I:1) NOT = SPACE
           		END-PERFORM.
    
           		IF I > 0
              		DISPLAY 'TEXTE AVEC ESPACE : <' TEXTE '>'
              		DISPLAY 'TEXTE SANS ESPACE : <' TEXTE(1:I) '>'
           		ELSE
           			DISPLAY 'TEXTE NE CONTIENT QUE DES ESPACES'
           		END-IF.
    
           STOP RUN.
    Résultat :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    TEXTE AVEC ESPACE : </123..//ABC:1234..//DEF:JE TENTE D'APPRENDRE LE COBOL                 >
    TEXTE SANS ESPACE : </123..//ABC:1234..//DEF:JE TENTE D'APPRENDRE LE COBOL>

Discussions similaires

  1. Réponses: 3
    Dernier message: 04/10/2006, 15h15
  2. Réponses: 5
    Dernier message: 31/07/2006, 15h42
  3. Calculer la longueur d'une variable de type entier
    Par juliendeparis dans le forum C
    Réponses: 13
    Dernier message: 08/06/2006, 13h44
  4. PB recuperation dune donnée situé dans un bean
    Par Kpone dans le forum Servlets/JSP
    Réponses: 1
    Dernier message: 04/04/2006, 05h46
  5. Réponses: 2
    Dernier message: 03/10/2005, 10h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo