fonction ExtractNumber (s : corde) : nombre entier ;
variété i : nombre entier ;
commencer
si position (« = », s) > 0 puis
s : = copie (s, position (« = », s) +1, longueurs) ;
pour I : = 1 aux longueurs font
sinon (s [I] dedans [« 0 ». « 9 »]) puis
commencer
System.Delete (s, I, longueur) ;
coupure ;
extrémité ;
Résultat : = StrToIntDef (s, 0) ;
extrémité ;
|