manque de savoir-faire sur une regexp

Bonjour,

Peu habitué aux relations régulières, j'essaie de vérifier la bonne syntaxe de mesures de poids par ex: 100G ou 1,5L ou 5KG... en me basant sur le tuto de Cafeine (merci)

j'ai donc écris

Code:

---

reg.Pattern = "([0-9]|\,|G|KG|L|CL|ML)"

---

cela fonctionne mais si il y a une erreur de saisie, par ex 5G9 , elle n'est pas détectée et renvoie 5G9.

j'ai essayé avec les symboles ^ en début et $ à la fin mais...

D'avance merci

Euh... et quel est le rapport avec Excel ou VBA Excel ?

Bonjour Menhir,

en VBA excel (forum macros et VBA excel)

re
c'est normal ton pattern est faux
"([0-9]|\,|G|KG|L|CL|ML)"

la tu demande 1 chiffre je dit bien 1 et un caractere tu rajoute derriere toutes les possibilité de caractere

sauf que le premier "OU"representé par"|" suit le nombre autrement dit il pourrais presque te sortir toutes les combinaison il
toute les combi contenant un chiffre et au moins 1 lettre ou un autre caractre (,.: etc....)

1.5L= 1chiffre 1caractere 1chiffre,1caractere
5K=1chiffre 1caractere

je srait toi puisqu' apparement il te faudrait 2 patern je ferait autrement avec un simple split
a mediter

re

un truc plus simple du genre

Code:

---

1 2 3 4 5 6 7

Sub test() maVar = "j'ai acheté 5Kg de bannanes pour mon singe et 2.5L litres de lait pour mon chat et 100K de salade ma tortue adore ca" tabl = Split(maVar, " ") For i = 1 To UBound(tabl) If Val(tabl(i)) > 0 Then Debug.Print tabl(i) Next End Sub

---

Merci de ta réponse:

Ok pour le split (c'était déjà fait)mais ce que je voudrais c'est vérifier la bonne syntaxe par ex saisie:1,5L correct 1L,5 incorrect-->#valeur

concernant ta remarque: "la tu demande 1 chiffre je dit bien 1 " ma bidouille fonctionne avec plusieurs chiffres par ex 105K fonctionne

oui ta bidouille fonctionne peu etre mais pas avec un decimal c'est ce que j'essayais de te dire
il te faut 2 pattern
d'ailleur je me demande bien comment elle fonctionne car chez moi les matchs sont les memes nombre que le len complet

pour verifier c'est simple tu a la fonction right

regarde

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub test() maVar = "j'ai acheté 5Kg de bannanes pour mon singe et 2L,5 litres de lait pour mon chat et 100K de salade ma tortue adore ca puis 3,4L litre de bierre pour moi" tabl = Split(maVar, " ") For i = 1 To UBound(tabl) If Val(tabl(i)) > 0 Then n = tabl(i) If n Like "*,*" Then If IsNumeric(Split(n, ",")(0)) Then Debug.Print n Else Debug.Print n & " " & "faux" Else If Val(n) > 0 Then Debug.Print n   End If End If Next End Sub

---

et maintenant la totale

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test() 'unité_autorisée = "KG,K, G,L,K,Ml,CL" maVar = "j'ai acheté 43steres de bois pour mon hivers et 5Kg de bannanes pour mon singe et 2L,5 litres de lait pour mon chat et 100K de salade ma tortue adore ca puis 3,4L litre de bierre pour moi" tabl = Split(maVar, " ") For i = 0 To UBound(tabl) If Val(tabl(i)) > 0 Then n = LCase(tabl(i)) If n Like "*,*" Then If IsNumeric(Split(n, ",")(0)) Then Debug.Print n & " bon" Else Debug.Print n & " " & "mauvais orthographe" Else If Val(n) > 0 Then crit = n Like "*kg" Or n Like "*k" Or n Like "*g" Or n Like "*l" Or n Like "*ml" Or n Like "*cl" If crit = True Then Debug.Print tabl(i) & " bon" Else Debug.Print tabl(i) & " " & "unité de mesure non acceptée" End If End If End If Next End Sub

---

regarde dans le debug;)

analise bien la ligne crit on appelle ca si je ne me trope pas une addition logique
demande toi pourquoi je met pas un"*" apres les unité acceptées dans le crit
si tu comprends pas demande ;)

et je peux meme te dire qu'il y a encore une faille dans cet exemple je te laisse deviner la quelle si tu trouve pas je te la dirais
alors un seul pattern walouh walouh c'est pluto 2 voir 3 :mouarf:

pour finir je te donne la totale avec la faille corrigée comme ca je passe a autre chose
dans mavar tu a tout les exemple qu'il faut et qu'il faut pas ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub test() 'unité_autorisée = "KG,K, G,L,K,Ml,CL" maVar = "j'ai acheté 52,6quartiers de pommes puis 50,7ML d'eau de rose puis 43KG,4 de fritte surgelée puis 43steres de bois pour mon hivers et 5Kg de bannanes pour mon singe et 2L,5 litres de lait pour mon chat et 100K de salade ma tortue adore ca puis 3,4L litre de bierre pour moi" tabl = Split(maVar, " ") For i = 0 To UBound(tabl) If Val(tabl(i)) > 0 Then n = LCase(tabl(i)) crit = n Like "*kg" Or n Like "*k" Or n Like "*g" Or n Like "*l" Or n Like "*ml" Or n Like "*cl" If n Like "*,*" Then If IsNumeric(Split(n, ",")(0)) Then If crit = True Then Debug.Print tabl(i) & " bon" Else Debug.Print tabl(i) & " unité de mesure non acceptée" Else: Debug.Print tabl(i) & " " & "mauvais orthographe" End If Else If Val(n) > 0 Then If crit = True Then Debug.Print tabl(i) & " bon" Else Debug.Print tabl(i) & " unité de mesure non acceptée" End If End If End If Next End Sub

---

Pièce jointe 351161

Bonjour,

Excuses moi, j'étais absent hier pm.

je me suis mal exprimé car le but que je poursuis est de me perfectionner sur les regexp... mais ta solution est intéressante et je la garde sous le coude.

donc, on va clore cette discussion.

Merci pour le temps que tu m'as consacré.

cordialement

Salut, toujours utile : Les Expressions Rationnelles appliquées en VBA Access

re
OK mais n'oublie pas avec un seul pattern je pense pas que tu puisse y arriver
d'une part

1. les longeurs de segment différente( pas trop un soucis avec des segment dans le patern du genre exemple (\d{1,5}) un nombre de 1 a 5 chiffres)
2. les segments pas au meme endroit(rédibitoire pour un seul pattern tu ne peux pas utiliser "ou(|)" a cause justement de cette virgule)
3. ne pas oublier les cas que tu n'a pas encore eu a traiter

dans mon exemple je traite tout les cas dans les conditions que tu a demandé a savoir un nombre avec decimale ou entier avec pour extention une unité de mesure
et que cette extention doit etre la fin du segment
et merci pour le moins 1 ca fait toujours plaisir ;)

je pense avoir trouvé ton pattern qui fait les deux
en fait il faut deux pattern mais que l'on peut mixer dans un OU(|) et je ne parle pas de ou dans un segment je parle bien de OU dans le patternn
en gros

pattern=pattern1 ou pattern2 tu saisis la nuance tandis que toi tu cherchais a mettre un OU dans un segment au niveau de la virgule

alors pattern1 pour les decimales ecrite correctement

Code:

---

pattern="(\d{1,5})+([^\w]+[(\d{1,5})+[KG|G|L|ML|CL]+\s"

---

pour ce qui n'ont pas de decimale il est plus simple

Code:

---

pattern2="(\d{1,5})+([KG|G|L|ML|CL]+\s"

---

maintenant le mix des deux dans un seul pattern

Code:

---

pattern="(\d{1,5})+([^\w]+[(\d{1,5})+[KG|G|L|ML|CL]+\s)|(\d{1,5})+([KG|G|L|ML|CL]+\s)"

---

tu remarquera et c'est important que j'englobe le 2d segment des deux pattern entre prentheze pour qu'il ne soit pas melangé et interprété comm un segment a part entiere

code test

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test3() Dim maVar As String, matchs maVar = "j'ai acheté 37,8KG de pommes et 5KG de bannanes pour mon singe et 2L,5 litres de lait pour mon chat et 100K de salade ma tortue adore ca puis 3,4CL litre de bierre pour moi" With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True: .Pattern = "(\d{1,5})+([^\w]+[(\d{1,5})+[KG|G|L|ML|CL]+\s)|(\d{1,5})+([KG|G|L|ML|CL]+\s)" Set matchs = .Execute(maVar) Debug.Print "occurences " & matchs.Count If matchs.Count > 0 Then For i = 0 To matchs.Count - 1 Debug.Print matchs(i) Next End If End With End Sub

---

resultat
Pièce jointe 351467
voila
il n'est pas forcer que la condition OU soit qu' un choix de motif dans un segment elle peut etre un choix de pattern
on pourrais parler de motif global successif dans une condition OU, je sais pas si ca se dit
j'aurais apris quelque chose aujourd'hui j'ai quand meme ramé hein je dis pas


ET pour verifier mes dires j'ai englobé chaque pattern entre parentheze carrément et ca fonctionne
"((\d{1,5})+([^\w]+[(\d{1,5})+[KG|G|L|ML|CL]+\s)) | ((\d{1,5})+([KG|G|L|ML|CL]+\s))"

on a donc bien la possibilité de passer d'un pattern a l'autre dans un meme pattern
donc la prochaine fois que tu a un exercice comme celui la pense au DOUBLE PATTERN DANS UNE CONDITION "OU"
;)

Re,

JE ne t'ai pas mis de -1 !!! au conttaire
Merci pour ta dernière contribution: j'essaie dès que possible et je te mets sans + attenfdre un +1 ;)

re

RE
selon ton concept de segment j'ai trouvé un pattern
chaine utilisée=

Citation:

---

maVar = "j'ai acheté 2KG,5 de pomme de terre 100CL d'eau de rose et 80,2ML de d'huile 37,8KG de pommes et 5KG de bannanes pour mon singe et 2L,5 litres de lait pour mon chat et 100K de salade ma tortue adore ca puis 3,4CL litre de bierre pour moi"

---

"\s(\d{1,5})+([^\w]|)+([0-9]|)+[KG$|G|L$|ML$|CL$]+\s"

rouge = 1espace
bleu=1 nombre de 1 a 5 chiffre
vert un caractere particulier(;:,. etc...) OU RIEN !!!
rose un nombrea un ou plusieur chiffre OU RIEN !!!
marron tes unité de mesuredans un OU GLOBAL SEGMENT le dollard precise que c'est la fin de la chaine
rouge 1 espace

resultat
occurences 6
100CL
80,2ML
37,8KG
5KG
100K
3,4CL

Bonjour,

Merci pour tes 2 dernières propositions, surtout que j'imagine le boulot que ça a représenté !

mais pour les 2...

Dans le cas où la contenance est exprimée en fin de texte, pas de réponse

par ex:
Eau de source 1,5L
Café carte noire 250G

toutefois, mon projet est l'apprentissage des regexp donc, je vais essayer de comprendre tes 2 propositions.

Merci pour ton dévouement

re
bonjour Michel pour le probleme de la donnée en fin il ne la recupere pas parce que je demande un espace devant et apres dans le pattern
alors solution on met le motif espace dans un OU tout simplement
cela peut s'ecrire de deux facon ici en gras et rouge
on remplace donc "+\s" par [\s|] ou bien sous une autre forme ((\s)|)
les deux veullent dire "un espace ou rien"
ton dual pattern

Code:

---

"((\d{1,5})+([^\w]+[(\d{1,5})+[KG|G|L|ML|CL]+[\s|]))|((\d{1,5})+([KG|G|L|ML|CL$])+((\s)|))"

---

voila;)
attention le regex ne resout pas tout dans cette configuration tu risque de chopper des execptions
et mal'heureusement tu n'y peux rien
comme dans cet exemple de phrase

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test12() Dim maVar As String, matchs maVar = "j'ai acheté 1L de jus d'orange et 2,5KGde pomme de terre 100CL d'eau de rose et 80,2ML de d'huile 37,8KG de pommes et 5KG de bannanes pour mon singe et 2L,5 litres de lait pour mon chat et 100KG de salade ma tortue adore ca puis 3,4CL litre de bierre pour moi et un paquet de Café carte noire 250G" With CreateObject("VBScript.RegExp"): '.Global = True: .IgnoreCase = True: .Pattern = "(\d{1,5})+([^\w]|)+([0-9]|)(KG|ML|CL|L|K)" .Global = True: .IgnoreCase = True: .Pattern = "((\d{1,5})+([^\w]+[(\d{1,5})+[KG|G|L|ML|CL]+[\s|]))|((\d{1,5})+([KG|G|L|ML|CL$])+((\s)|))" '.Global = True: .IgnoreCase = True: .Pattern = "\s(\d{1,5})+([^\w]|)+([0-9]|)+[KG$|G|$L$|ML$|CL$]" Set matchs = .Execute(maVar) Debug.Print "occurences " & matchs.Count If matchs.Count > 0 Then For i = 0 To matchs.Count - 1 Debug.Print matchs(i) Next End If End With End Sub

---

on a le resultat et on voit le "2L" revenir alors q'il ne devrait pas y etre seulement comme on demande aussi!!! maintenant un nombre + l'extention et sans espace!!!! il te le sort et c'est normal on atteint la la limite intuitive de la machine tu comprends
on peut pas reprocher au regex de te sortir 2L c'est ce que tu lui demande a savoir un nombre et une de tes extentions et celle la en fait partie elle est donc correcte pour lui et dans le fond il a raison

Citation:

---

occurences 10
1L
2,5KG
100CL
80,2ML
37,8KG
5KG
2L
5 l
100KG
3,4CL

---

c'est pour ca que je t'ai proposé mon autre solution ( qui m'a value une prune;))mais qui procede autrement tout simplement en ayant decoupé par les espaces et testé segments par segment c'est imparable

pour finir histoiore de filer les boules a celui qui m'a mis une prune
ma proposition en post#10 tient toujopurs la route avec la phrase complete en fin en debut au milieu en travers bref dans tout les sens que tu veux
et si tu veux la correction comme dans cet exemple "2,5KGde" fait le moi savoir si tu decide d'utiliser cette methode je te la donnerais
Pièce jointe 351673

Re,

Pour l'instant, j'essaie de comprendre tes patterns et ça chauffe dans ma tite t^te...

et si tu veux la correction comme dans cet exemple "2,5KGde" fait le moi savoir si tu decide d'utiliser cette methode je te la donnerais

OK, merci d'avance

pour

oui ca chauffe la tete par ce que tu commence par la tete du dragon

si tu aprenais ametriser les outils qui sont a dispo (et toutes les astuces et manipulations que l'on peut faire avec dans VBA) avant tu comprendrais mieux le regex

mid
int
left
right
strreverse
instrrev
val
etc etc....

si tu metrisais a fond ses fonctions et( quelques unes de leur possibilité ) la tu serais en mesure de te faire une maquette pour ton regex (je parle pas de la syntaxe de code pattern ) je parle juste de raisonnement
a mediter ;)