Discussion :

[casgr1]

Bonjour,

est-il possible de faire un
UNSTRING ... DELIMITED BY SPACES
tout en comptant le nombre d'espaces qui séparait chacun des mots?

par exemple

Code :

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

1
2
'JE  SUIS UN     NEWBIE'

->

Code :

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

1
2
3
4
'JE', 'SUIS', 'UN', 'NEWBIE' 
et 
2, 1, 5

merci

[Luc Orient]

Moi je m'orienterai sur un boucle d'UNSTRING avec peut être l'option WITH POINTER ...
Mais là je n'ai pas accès à mon compilateur COBOL habituel ni à ma documentation ...
C'est très urgent votre problème ?

[casgr1]

L'option WITH POINTER ne semble pas trop fonctionner (ou bien je m'y prends mal).
J'ai finalement opté pour cette méthode :

Code :

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

1
2
   UNSTRING w-str DELIMITED BY SPACE INTO w-tabword(i)

Comme prévu, chaque mot est stocké dans le tableau, ainsi que chaque espace (en réalité, chaque espace - 1)

on aurait par exemple le résultat suivant :

tabword(1) = 'JE'
tabword(2) = ' '
tabword(3) = 'SUIS'
tabword(4) = 'UN '
tabword(5) = ' '
tabword(6) = ' '
tabword(7) = ' '
tabword(8) = ' '
tabword(9) = ' NEWBIE'

donc il suffit de compter tout les mots (+1) commencants par un espace entre chacun des mots

Voila, et merci quand même pour votre aide