balayer une variable de gauche à droite [Résolu]

[a_karim_fr]

Bonjour,

J’ai une variable ID-MLE PIC X (32).

Un chiffre entier peut-être stocké en alphanumériques dans la variable
ID-MLE

Comment je peux balayer la variable ID-MLE de gauche à droite pour trouver la position du chiffre entier qui correspondra au premier chiffre ‘1’, ‘2’, ‘3’, ‘4’, ‘5’, ‘6’, ‘7’, ‘8’ou ‘9’.
Il faut ensuite déterminer la longueur de cette entier en balayant la variable ID-MLE de droite à gauche et en déterminant la position du premier chiffre ‘0’, ‘1’, ‘2’, ‘3’, ‘4’, ‘5’, ‘6’, ‘7’, ‘8’ou ‘9’.

Merci

[el_slapper]

par exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
77 Position pic 9(2).
77 Position1 pic 9(2).
77 Position2 pic 9(2).
77 Position3 pic 9(2).
77 Longueur pic 9(2).
77 destination-finale pic X(18).
(.../...)

move zero to position1 position2
perform varying position from 1 by 1
   until position > length of ID-MLE
   if ID-MLE (position : 1) is numeric
      move position to position2
      if position1 = zero
         move position to position1
      end-if
   end-if
end-perform
move zeroes to destination-finale
compute longueur = position2 - position1 + 1
compute position3 = length of destination-finale - longueur + 1 
move ID-MLE ( position1 : longueur ) to destination-finale ( position3 : longueur)
.

j'ai pas le temps de tester, et il y a sans doute moyen de faire mieux.

EDIT : et ça manque de contrôles pour tester les erreurs.

[ekans]

Bonjour,

Il suffit d'utiliser un tableau de caractères et de parcourir ensuite ce tableau par une boucle ou alors utiliser un SEARCH.

EDIT : je suis trop lent...

[Hédhili Jaïdane]

Bonjour.

Tu as un exemple utilisant les tableaux dans cette discussion :
[Débutant] Extraire une sous-chaîne de caractères

[el_slapper]

Envoyé par ekans

Bonjour,

Il suffit d'utiliser un tableau de caractères et de parcourir ensuite ce tableau par une boucle ou alors utiliser un SEARCH.

EDIT : je suis trop lent...

Désolé pour le grillage. Tu as raison : il est sans doute plus propre de découper la chaine de caractères en entrée dans un tableau de caractères plutôt que de d'utiliser le découpage d'un champ unique par des "reference modifiers" comme je l'ai fait. J'ai juste été au plus rapide.

Certains sites interdisent d'ailleurs explicitement les "reference modifiers".

[a_karim_fr]

Bonjour,

J'ai testé le code de el_slapper est le résultat est correct

Merci beaucoup.