Extraire (ou garder) uniquement valeur numérique d'une chaine [Résolu]
Zacaoa
- Messages postés
- 48
- Date d'inscription
- mardi 19 janvier 2010
- Dernière intervention
- 20 avril 2012
- Messages postés
- 48
- Date d'inscription
- mardi 19 janvier 2010
- Dernière intervention
- 20 avril 2012
A voir également:
- Extraire (ou garder) uniquement valeur numérique d'une chaine
- Convertir une valeur numérique en lettre 19=dix-neuf - Codes sources - Visual Basic / VB.NET (Modules)
- Un tedit qui n'accepte que des valeurs numériques - Codes sources - Delphi / Pascal (Texte)
- Tri a bulle sur des valeurs numériques - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Récupérer une valeur numérique maximale dans une chaine de caractères - Codes sources - Visual Basic / VB.NET (Divers)
- Saisie de valeurs numériques dans un tedit - Codes sources - Delphi / Pascal (Divers)
7 réponses
Meilleure réponse
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour,
Tu as le choix entre :
1) simple : utiliser la fonction Replace (à lire dans ton aide VB6). Valable uniquement si les caractères à supprimer sont toujours les mêmes
ou
2) moins simple, mais également facile : parcourir en boucle les caractères de la chaîne (boucle à l'aide de la fonction Mid) et ne garder que ceux qui sont numériques (Isnumeric)
A bûcher donc (ton aide VB6 sur ta machine) :
Replace
For ... to ... next
Mid
Len
Mets-toi à ce petit travail. Reviens avec ton code d'essai si encore en difficulté.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Tu as le choix entre :
1) simple : utiliser la fonction Replace (à lire dans ton aide VB6). Valable uniquement si les caractères à supprimer sont toujours les mêmes
ou
2) moins simple, mais également facile : parcourir en boucle les caractères de la chaîne (boucle à l'aide de la fonction Mid) et ne garder que ceux qui sont numériques (Isnumeric)
A bûcher donc (ton aide VB6 sur ta machine) :
Replace
For ... to ... next
Mid
Len
Mets-toi à ce petit travail. Reviens avec ton code d'essai si encore en difficulté.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bien en ce qui concerne la boucle, mais plus orthodoxe (avec cette méthode) en écrivant :
If isnumeric(CarLecture) Then
au lieu de
If CarLecture >= "0" And CarLecture <= "9" Then
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
If isnumeric(CarLecture) Then
au lieu de
If CarLecture >= "0" And CarLecture <= "9" Then
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
Bonjour,
Une troisième méthode:
1) prendre la chaîne caractère du numéro
2) Fractionner le numéro avec la fonction Split()
3) parcourir le tableau obtenu avec la fonction et concaténer les différentes valeurs
Une quatrième méthode
Utiliser les expressions régulières...
Mais bon, ce sont des remèdes de cheval et probablement pas les plus efficaces. (À moins que Renfield ne vienne me contredire )
Fini le cabotinage pour ce soir...
Une troisième méthode:
1) prendre la chaîne caractère du numéro
2) Fractionner le numéro avec la fonction Split()
3) parcourir le tableau obtenu avec la fonction et concaténer les différentes valeurs
Une quatrième méthode
Utiliser les expressions régulières...
Mais bon, ce sont des remèdes de cheval et probablement pas les plus efficaces. (À moins que Renfield ne vienne me contredire )
Fini le cabotinage pour ce soir...
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour, cmarcotte,
La plus efficace/rapide ? ===>> je l'ai tue car il n'en est qu'à ses débuts ===>> utilisation de strconv , isnumeric et join. Celle-là permettrait même l'extraction des chiffres dans une chaine contenant des chiffres et d'autres choses (même si différentes entre elles).
Regarde ==>>
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
La plus efficace/rapide ? ===>> je l'ai tue car il n'en est qu'à ses débuts ===>> utilisation de strconv , isnumeric et join. Celle-là permettrait même l'extraction des chiffres dans une chaine contenant des chiffres et d'autres choses (même si différentes entre elles).
Regarde ==>>
toto = "03/86.0\2-20#33" titi = Split(StrConv(toto, vbUnicode), Chr(0)) For i = 0 To UBound(titi) If Not IsNumeric(titi(i)) Then titi(i) = "" Next MsgBox Join(titi, "")
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Je viens de l'essayer en boucle === >>> 100 000 chaînes traitées en moins de 1 seconde.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
- Messages postés
- 48
- Date d'inscription
- mardi 19 janvier 2010
- Dernière intervention
- 20 avril 2012
Merci à vous pour vos réponse, je m'en suis sorti en faisant comme ceci
For i = 1 To Len(CharTemp)
CarLecture = Mid(CharTemp, i, 1)
If CarLecture >= "0" And CarLecture <= "9" Then
Data(iLigne, 11) = Data(iLigne, 11) & CarLecture
End If
Next
Je ne sais pas si c'est le plus fonctionnel, mais j'ai voulu faire le plus simple possible.
Encore merci à vous
++
For i = 1 To Len(CharTemp)
CarLecture = Mid(CharTemp, i, 1)
If CarLecture >= "0" And CarLecture <= "9" Then
Data(iLigne, 11) = Data(iLigne, 11) & CarLecture
End If
Next
Je ne sais pas si c'est le plus fonctionnel, mais j'ai voulu faire le plus simple possible.
Encore merci à vous
++
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.