lorsque VAL() ne veut pas convertir une valeur alphanumérique composée en numérique

@

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Tu ne sais pas surement que cette astuce va me permettre de lancer ce soir même une petite application de gestion des ventes/Achat de pneu.

Je t'explique:

J'ai eu une liste de produits (Pneumatique) sur excel d'un de mes clients.

Est je n'avais pas le temps de penser à un algorithme pour filtrer les mesures des pneus à partir de leurs désignations qui se présentent comme ça:

​

​

Merci beaucoup.

Je vais pouvoir me pencher sur ceci maintenant.

 

Voici le code de cette procédure

Code (Text):

PROCÉDURE ChaineVersNumerique(sChaineAConvertir est une chaîne, sSepDecimal est une chaîne=",", valDef=0) : numérique
// Publié il y a 4 days ago par Carnet windev
// https://carnetwindev.blogspot.com.br/2018/05/windev-webdev-procedure-tout-terrain.html
// Merci à Germanicus pour l'info

sResultat est une chaîne
bDecimalTrouvé est un booléen = Faux
// astuce pour récupérer simplement la décimale utilisée par windev dans une chaine
sDecimaleDuSystème est une chaîne = Milieu(""+0.5,2,1)
POUR i = 1 _À_ Taille(sChaineAConvertir)
    // selon la valeur du caractère en cours
    SELON sChaineAConvertir[i]
        CAS "0" À "9"
        // on le garde si c'est un chiffre
        sResultat+=sChaineAConvertir[i]
        CAS sSepDecimal
    // si c'est notre décimale, on la garde, uniquement si on l'à pas encore fait
        SI PAS bDecimalTrouvé ALORS
            sResultat+=sDecimaleDuSystème
             bDecimalTrouvé = Vrai  
         FIN
    CAS "+", "-"
        // si on a pas encore récupéré de chiffre, alors on met le signe s'il est précisé avant
        SI sResultat ="" ALORS sResultat = sChaineAConvertir[i]
    AUTRE CAS
        // on ne garde rien d'autre
    FIN
FIN
// si on a rien extrait d'intéressant, on renvoie la valeur précisée par défaut
SI sResultat = "" ALORS
    RENVOYER valDef
SINON
    // on peut utiliser Val() en toute tranquillité maintenant
    RENVOYER Val(sResultat)
FIN

Merci à @

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

pour l'info.

Profitez de la coloration syntaxique (Bravo Faki )

 

ThankS @

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

On peut également utiliser la fonction VérifieExpressionRégulière()

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

ou

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

F1 :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

ThankS @

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

On peut également utiliser la fonction VérifieExpressionRégulière()

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

ou

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

F1 :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Cliquez pour agrandir...