Discussion :

[Michel38]

Bonjour,
Petite question toute bête (et pourtant), je cherche à avoir la taille d'une chaîne de caractère....
Pfff ça fait longtemps que je ne faisais plus de Cobol....
J'ai bien vu qu'il existait l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

inspect toto tallying

mais je ne trouve pas d'exemple pour simplement compter les caractères de la chaîne...
J'ai vu pour compter des occurences, pour faire des remplacements....
Quelqu'un a une idée ?
Merci...

[Luc Orient]

C'est un peu le problème avec le COBOL ... Le langage a plutôt tendance à gérer les chaînes de caractères en format fixe ...
A la limite la taille d'une chaîne de caractères c'est la taille de la clause PICTURE la décrivant ...

Maintenant si on accepte de dire que la chaîne de caractères s'arrête au premier blanc rencontré, un code comme ce qui suit devrait vous aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    1 LA-CHAINE PIC X(100) VALUE '1234567890'.
    1 NB-CAR PIC 999
...
    MOVE ZERO TO NB-CAR
    INSPECT LA-CHAINE TALLYING NB-CAR
            FOR CHARACTERS BEFORE SPACE
    DISPLAY 'NB-CAR=' NB-CAR

Et ça donne 10 ...
Attention à bien initialiser le compteur ...

[Michel38]

Ah oui, en effet.....
Quand on vient de faire du java, c'est d'autant plus dur de se remettre au Cobol.....
Argh !
Pourtant, à priori quoi de plus simple que connaître la longueur d'une chaîne !
En tout cas merci beaucoup...