Simplifier ChaîneOccurrence

Le
René Elex
Bonjour a tous

//Ce code permet de compter le nombre de decimale Dans champ
RUB_Avec_decimale " 10.12546 "
resResultat est un entier
Res1,Res2,Res3,Res4,Res5,Res6,Res7,Res8,Res9,Res0 sont des entier
LOC_sRes est une chaîne=ExtraitChaîne("10.12546" ,1,".",DepuisFin)
Res1 = ChaîneOccurrence(LOC_sRes, "1")
Res2 = ChaîneOccurrence(LOC_sRes, "2")
Res3 = ChaîneOccurrence(LOC_sRes, "3")
Res4 = ChaîneOccurrence(LOC_sRes, "4")
Res5 = ChaîneOccurrence(LOC_sRes, "5")
Res6 = ChaîneOccurrence(LOC_sRes, "6")
Res7 = ChaîneOccurrence(LOC_sRes, "7")
Res8 = ChaîneOccurrence(LOC_sRes, "8")
Res9 = ChaîneOccurrence(LOC_sRes, "9")
Res0 = ChaîneOccurrence(LOC_sRes, "0")
resResultat =Res1+Res2+Res3+Res4+Res5+Res6+Res7+Res8+Res9+Res0
//resResultat = 5

Existe t'il un moyen pour simplifier ce code
Merci pour votre aide

R. ELEX
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Eric Laurent
Le #17923151
2 lignes, ça ira ?

gsChaineDecimale est une chaîne="10.12546"
gnResultat est un
entier=Taille(gsChaineDecimale)-Position(gsChaineDecimale,".")

Cordialement,

Eric

--
Eric Laurent

(enlever nospam.)
Firetox
Le #17923141
Bonjour,

nbdecimal est un entier = taille(extraitchaine(LOC_sRes,2,"."))
devrait donner le nombre de decimal apres le .

test avec Taille(ExtraitChaîne("10.12546",2,"."))
donne 5

Bon dev
@+

"René Elex" 4927c229$0$5890$
Bonjour a tous

//Ce code permet de compter le nombre de decimale Dans champ
RUB_Avec_decimale " 10.12546 "
resResultat est un entier
Res1,Res2,Res3,Res4,Res5,Res6,Res7,Res8,Res9,Res0 sont des entier
LOC_sRes est une chaîne=ExtraitChaîne("10.12546" ,1,".",DepuisFin)
Res1 = ChaîneOccurrence(LOC_sRes, "1")
Res2 = ChaîneOccurrence(LOC_sRes, "2")
Res3 = ChaîneOccurrence(LOC_sRes, "3")
Res4 = ChaîneOccurrence(LOC_sRes, "4")
Res5 = ChaîneOccurrence(LOC_sRes, "5")
Res6 = ChaîneOccurrence(LOC_sRes, "6")
Res7 = ChaîneOccurrence(LOC_sRes, "7")
Res8 = ChaîneOccurrence(LOC_sRes, "8")
Res9 = ChaîneOccurrence(LOC_sRes, "9")
Res0 = ChaîneOccurrence(LOC_sRes, "0")
resResultat =Res1+Res2+Res3+Res4+Res5+Res6+Res7+Res8+Res9+Res0
//resResultat = 5

Existe t'il un moyen pour simplifier ce code
Merci pour votre aide

R. ELEX





René Elex
Le #17926991
Merci

"René Elex" 4927c229$0$5890$
Bonjour a tous

//Ce code permet de compter le nombre de decimale Dans champ
RUB_Avec_decimale " 10.12546 "
resResultat est un entier
Res1,Res2,Res3,Res4,Res5,Res6,Res7,Res8,Res9,Res0 sont des entier
LOC_sRes est une chaîne=ExtraitChaîne("10.12546" ,1,".",DepuisFin)
Res1 = ChaîneOccurrence(LOC_sRes, "1")
Res2 = ChaîneOccurrence(LOC_sRes, "2")
Res3 = ChaîneOccurrence(LOC_sRes, "3")
Res4 = ChaîneOccurrence(LOC_sRes, "4")
Res5 = ChaîneOccurrence(LOC_sRes, "5")
Res6 = ChaîneOccurrence(LOC_sRes, "6")
Res7 = ChaîneOccurrence(LOC_sRes, "7")
Res8 = ChaîneOccurrence(LOC_sRes, "8")
Res9 = ChaîneOccurrence(LOC_sRes, "9")
Res0 = ChaîneOccurrence(LOC_sRes, "0")
resResultat =Res1+Res2+Res3+Res4+Res5+Res6+Res7+Res8+Res9+Res0
//resResultat = 5

Existe t'il un moyen pour simplifier ce code
Merci pour votre aide

R. ELEX






Publicité
Poster une réponse
Anonyme