Discussion :

[reuqnas]

Bonjour,

J'ai un petit souci en faite j'ai un champs toto qui contient des éléments comme : DD10000, FE45001 ..., j'aimerai en récupérer seulement les 4 derniers caractères, je procède alors de la façon suivante :

en calculant d'abord la taille de ma chaîne de caractère : taille1 := length(<req."toto">);

ensuite je récupère grâce a un copy mes 5 derniers caractères : c := copy(<req."toto">,taille1-4,5);

cependant j'aimerai au cas ou dans mon champs on aurait cela : DDDDDDD, FESAFECE ... alors j'aimerai que si il vois que les 5 dernières caractères ne sont pas des chiffres alors par défaut il affiche 00000

Merci de votre aide

[sgmsg]

J'ai un petit souci en faite j'ai un champs toto qui contient des éléments comme : DD10000, FE45001 ..., j'aimerai en récupérer seulement les 4 derniers caractères, je procède alors de la façon suivante :

en calculant d'abord la taille de ma chaîne de caractère : taille1 := length(<req."toto">);

ensuite je récupère grâce a un copy mes 5 derniers caractères : c := copy(<req."toto">,taille1-4,5);

cependant j'aimerai au cas ou dans mon champs on aurait cela : DDDDDDD, FESAFECE ... alors j'aimerai que si il vois que les 5 dernières caractères ne sont pas des chiffres alors par défaut il affiche 00000

Est-ce que tu récupères les cinq ou les quatre derniers caractères?
...

En supposant CINQ

Donc on récupère les cinq derniers caractères:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function extraction(ZeChamp:string):string;
var 
    entier:word;// ou integer, 
    erreur:word;
    taille:word;
    c:string
begin
    taille1 := length(ZeChamp);
    c := copy(ZeChamp,taille1-4,5);
    val(c,entier,erreur);//si la convertion échoue erreur est plus grand que 0
    If erreur>0 then c='00000';
    result:=c;
end;

[reuqnas]

c'est bien les 5 caractères que je récupère, erreur de frappe de ma part. Concernant ton code tu initialise pas entier dans ta fonction val ?
result n'est pas déclaré non plus, c'est un string du coup

[sgmsg]

c'est bien les 5 caractères que je récupère, erreur de frappe de ma part.

Ok pour 5

Concernant ton code tu initialise pas entier dans ta fonction val ?

Oui c'est la fonction eval qui l'initialise

Je ne sais pas comment ça s'appelle. Moi j'appelle ça une variable creuse. Elle sert à appeler une fonction pour utiliser un traitement habituellement accessoire qui s'avère principale dans un cas spécifique.

result n'est pas déclaré non plus, c'est un string du coup

result est le résultat par défaut pour toute fonction en Delphi

à la place de :
result:=c;

extraction:=c;

aurait été tout aussi bon.