Version imprimable
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.
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.
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 :
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.Code:
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;
Lisogane,
Tu ne donnes pas signe de vie.
Est-ce que ce que j'ai publié te convient ?
Mercure
Merci, votre proposition me convient. excuse moi j'étais en congé
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.