partie numérique d'une chaine

[Lisogane]

Bonjour
Je voudrais extraire la partie numérique d'une chaine de caractère alpha numérique de longueur variable soit:
en CL
en rpg ile
soit en SQL
quelqu'un peut m'aider?
exemple1 dans AT10356 je voudrais seulement recupérer 10356
exemple2 dans q55AB5689 je voudrais recuperer seulement 5689.

[FORMULARY]

La question n'est pas très claire :
- La position et la longueur de la partie numérique sont-elles connues d'avance ?
- Si non, peut-il y avoir plus d'une chaine numérique ? (Cas de l'exemple 2)
- Le résultat doit-il être numérique ou alpha ?

En CLP :
CHGVAR &ALPHA %SST(&VARIABLE Pos Long) permet de récupérer la partie numérique dans une chaine de caractères.
CHGVAR &NUM &ALPHA permet de convertir la zone alpha en zone numérique.

[Mercure]

Fais une boucle en partant de la fin de la chaîne à analyser et arrête-la au premier caractère < 0.
Je ferais le traitement en RPG IV car plus simple qu'en CL :

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
25
26
27
       /free

     d InLen           s             10i 0 inz
     d i               s             10i 0 inz
     d j               s                   like(i)
     d InputParm       s             15a
     d Output          s                   like(InputParm)

     c     *entry        plist
     c                   parm                    InputParm

     c                   eval      *inlr = '1'

      /free
        InLen = %len(%trim(InputParm));
        Output = *ALL'0';
        j = %len(Output);
        for i = InLen DownTo 1;
         if %subst(InputParm : i : 1) < '0';
            leave;
         endif;
         %subst(Output : j : 1) = %subst(InputParm : i : 1);
         j -= 1;
        endfor;
        dsply Output;
        return;

J'ai considéré que la zone à analyser (Input) se termine toujours par un ou plusieurs caractères numériques et j'ai limité volontairement la longueur des zones input et output à 15 caractères. A toi d'ajuster ces longueurs selon tes besoins.

[Mercure]

Lisogane,

Tu ne donnes pas signe de vie.

Est-ce que ce que j'ai publié te convient ?

[Lisogane]

Mercure
Merci, votre proposition me convient. excuse moi j'étais en congé

[m4k-Hurrican]

Autre solution, plus "simple" qu'une boucle, utiliser %checkR pour trouver la position du 1er caractère non numérique en partant de la fin.