Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement WinDev Simplifier ChaîneOccurrence

Simplifier ChaîneOccurrence

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Eric Laurent
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.)
Avatar
Firetox
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" a écrit dans le message de news:
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





Avatar
René Elex
Merci

"René Elex" a écrit dans le message de news:
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