Regexp : Récupération d'un nombre entiers avec espace séparateur de milliers

Bonjour j'ai une chaine de caractère qui pourrait être l'une de celles-ci :

Citation:

---

393 FC 18 307 VIREMENT
N° FACTURE FC 8 307 DATE

---

Je n'arrive pas écrire le filtre regexp qui pourrait me renvoyer ce qui est souligné.

Si possible sans espaces

Pouvez vous m'aider ?

Merci

Citation:

---

Envoyé par mogwai162

Bonjour j'ai une chaine de caractère qui pourrait être l'une de celles-ci :
Je n'arrive pas écrire le filtre regexp qui pourrait me renvoyer ce qui est souligné.

---

:salut:
je ne vois pas le souligné :koi:

ah zut j'avais édité le message entre temps et oublié de remettre les soulignements. désolé.

bonjour;
les termes VIREMENT et DATE sont littéraux ou sont des "variables" ?

variables j'en ai peur mais ce seront les plus fréquents

Seul le FC est vraiment constant

donc le seul point commun à toutes ces données, c'est qu'elles sont précédées par " FC " ?

c'est tout a fait ça

Le nombre d'espace séparant FC du montant est variable également

oki

Code:

---

1 2 3 4 5 6 7 8

Set regEx = New RegExp regEx.Pattern = " FC +([\d| ]+)" regEx.IgnoreCase = False regEx.Global = True Set Matches = regEx.Execute("393 FC 18 307 VIREMENT" & vbCrLf & "N° FACTURE FC 8 307 DATE") For Each Match in Matches 'Itère la collection Matches. MsgBox(Replace(regEx.Replace(Match.Value,"$1")," ","")) Next

---

Je te remercie beaucoup

c'est un bon début, deux reproches :

Premièrement j'ai les espaces.

Deuxièmement, quand j'ai en entrée la chaine "N° FACTURE FC 8 307 15.20", il me renvoie le 15 en plus.

Merci

Citation:

---

Premièrement j'ai les espaces

---

bin pas moi...
si je fais

Code:

---

1 2	Result=Replace(regEx.Replace(Match.Value,"$1")," ","") Msgbox Result & " " & Len(Result)

---

j'ai bien la longueur des données chiffrées sans espace superflu :aie:

Citation:

---

Deuxièmement, quand j'ai en entrée la chaine "N° FACTURE FC 8 307 15 200", il me renvoie le 15 en plus.

---

ça c'était prévu, tu n'a pas été assez précis sur les contraintes :mrgreen:
si les données recherchées sont : 2 groupes numériques séparés par un espace unique immédiatement précédés par la chaine FC et un nb d'espaces indéterminés alors :

Code:

---

1 2 3 4 5 6 7 8 9 10

Set regEx = New RegExp 'regEx.Pattern = " FC +([\d| ]+)" regEx.Pattern = " FC +(\d+ \d+)" regEx.IgnoreCase = False regEx.Global = True Set Matches = regEx.Execute("393 FC 18 307 22 VIREMENT" & vbCrLf & "N° FACTURE FC 8 307 88 DATE") For Each Match in Matches 'Itère la collection Matches. Result=Replace(regEx.Replace(Match.Value,"$1")," ","") MsgBox Result & " " & Len(Result) Next

---

edit : parenthèses superflues

C'est tout comme je l'avais imaginé.

La prochaine fois que je voudrai un mouton je reviendrai vers toi :lol:

Merci beaucoup

Citation:

---

La prochaine fois que je voudrai un mouton je reviendrai vers toi

---

ça tombe bien, je dessine aussi à l'occasion... :mouarf:
http://www.flickr.com/photos/79315618@N02/7267585578

Salut tout le monde !

Ben me revoilà déjà :

j'en ai fait d'autres depuis mais je bute sur celui là :

Citation:

---

"Facture N° : 20 589"
"Avoir N° : 45 120 589"

---

le montant sera séparé par des espaces compris entre 1000 et 999 999 999
les mots seront séparés par un nombre d'espaces variables (sauf pour montant)
la présence du : sera optionnelle

et bien sur je ne veux que le montant..

par contre il est possible d'utiliser plusieurs filtres différents. au cas ou...
Et je préférerais que l'on recherche aussi facture et avoir

Merci d'avance

hé bin, un tuto sur les bonnes pratiques des expressions régulières ne serait pas de trop... :roll:

avant d'entrer dans le vif du sujet, j'en profite pour simplifier l'exemple précédent :

Code:

---

1 2 3 4 5 6 7 8 9

Set regEx = New RegExp regEx.Pattern = " FC +(\d+) (\d+)" regEx.IgnoreCase = False regEx.Global = True Set Matches = regEx.Execute("393 FC 18 307 22 VIREMENT" & vbCrLf & "N° FACTURE FC 8 307 88 DATE") For Each Match in Matches 'Itère la collection Matches. Result=regEx.Replace(Match.Value,"$1$2") MsgBox Result & " " & Len(Result) Next

---

et pour le problème de ce soir :

Code:

---

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

Set regEx = New RegExp regEx.Pattern = "(Facture|Avoir) +N°( *: +| +)((\d+) (\d+) (\d+)|(\d+) (\d+))" regEx.IgnoreCase = False regEx.Global = True Set Matches = regEx.Execute("Facture N° : 20 589" & vbCrLf & "Avoir N° 45 120 589") For Each Match in Matches 'Itère la collection Matches. Result=regEx.Replace(Match.Value,"$4$5$6$7$8") Select Case regEx.Replace(Match.Value,"$1") Case "Facture" MsgBox "Montant de la facture : " & Result & " " & Len(Result) Case "Avoir" MsgBox "Montant de l'avoir : " & Result & " " & Len(Result) End Select Next

---

bonne nuit :zzz:
edit : pour éviter de surcharger le pattern, je n'ai pas créé de parenthèses non-capturantes

Ouais... Nickel comme d'habitude.

J'étais si loin et si près à la fois...

Enfin je te remercie beaucoup...

Je n'ose pas te dire a bientôt mais j'ai peur d'être obligé d'y revenir, j'en n'ai encore tant a écrire.

Merci encore

Bonjour

Alors, en fait on m'a demandé de bosser sur autre chose :) sauf que maintenant j'aime ça alors j'y reviens.:oops:

J'ai besoin de savoir, c'est à dire aucune extraction, si une sous chaine est comprise dans une chaine.

Ma sous chaine est propre : suite de caractères ou chiffres avec ou sans tiret ou point séparateur mais sans aucun espace.

Ma chaine est une suite extraite d'un csv.

ça parait tout simple sauf qu'il ne faut surtout pas que je trouve 123 dans 01234 par exemple mais je dois le trouver dans "titi 123 toto" ou même dans "123 ", "N° 123", etc...

c'est à dire que ça doit faire un mot isolé du reste.

j'ai bien vu \b mais je vois pas comment m'en servir et ça semble incomplet.

Merci encore

Citation:

---

sauf que maintenant j'aime ça, j'y reviens

---

hmmm je vois... :sm:

Citation:

---

c'est à dire que ça doit faire un mot isolé du reste.

j'ai bien vu \b mais je vois pas comment m'en servir et ça semble incomplet.

---

ah bon et pourquoi ça ?
rechercher un motif précis sous la seule forme d'un mot entier, c'est basique il suffit de l'encadrer avec le métacaractère "limite de mot" \b
exemple pour la chaine "1542"

Code:

---

1 2 3 4 5 6 7 8 9

Set regEx = New RegExp regEx.Pattern = "\b1542\b" regEx.IgnoreCase = False regEx.Global = True Set Matches = regEx.Execute("de1542 784 7615428 edeed1542dd 1542 rt154") For Each Match in Matches 'Itère la collection Matches. Result=Match.Value MsgBox Result & " " & Len(Result) Next

---

pour ce soir, cinq coups de fouet

Que je suis con....

Dans l'exemple il n'y avait que celui de fin alors du coup j'ai cru que ça ne marchait que pour la fin du mot et non pas pour le début.

J'ai même pas essayé de le mettre au début.

Je te remercie encore.

Citation:

---

Que je suis con....

---

mais non car ça prouve que tu commences à penser en "regexp" :P
le métacaractère \b est en fait la conjugaison de deux notions effectivement distinctes :
la limite de mot "avant" - début de mot - et la limite de mot "arrière" - fin de mot -
bonne continuation

Et maintenant le pire du pire....

Je suis sûr que tu va m'envoyer balader parce que c'est infaisable mais peut être auras tu une idée ou deux qui permettraient de me faciliter la vie : c'est une sorte de concaténation de tout ce que je t'ai demandé jusqu'à présent en pire.

J'ai un ou plusieurs montants que je dois rechercher dans le texte d'origine. Cependant je ne sais pas ,dans quel format ces montant sont écris : je sais juste qu'ils ont obligatoirement deux décimales mais ne connais ni le séparateur décimal ni celui des milliers si il y en a un (donc 6 possibilités d'écritures par montant : 1 2345.50 ou 1,234.50 ou 1234.50 ou 1 234,50 ou 1.234,50 ou 1234,50)

Et ce n'est pas tout malheureusement : ces montants peuvent figurer dans
la chaine d'origine à 5 euros près, c'est à dire que si je cherche 1234.50, je dois accepter tout nombre compris entre 1229.50 et 1239.50.

ça fait 6.000 recherches par montant !

Pouvez vous m'aider ?

Citation:

---

Je suis sûr que tu va m'envoyer balader parce que c'est infaisable mais peut être auras tu une idée ou deux qui permettraient de me faciliter la vie

---

bonne approche psychologique que de titiller le sens du challenge de ton interlocuteur mais je suis trop vieux pour marcher à ça. quoique... :aie:
plutôt que de te refiler d'office le pattern qui va bien, il serait bien que tu apprennes à définir tranquillement tes contraintes
tu as commencé mais il faut poursuivre l'analyse :
les six possibilités se divisent en (4 + 2) - 3 et 2 groupes de chiffres
ensuite le 1er "séparateur" ne peut prendre que 3 valeurs : espace, point ou vrigule
le 2ème "séparateur" les valeurs point ou virgule

le test de l'arrondi à 5 euros se fera ensuite à partir d'une "référence arrière"
yapluka ;)

Je reste persuadé que c'est infaisable.

j'ai tout de même réussi à écrire cela, dans le cas ou je recherche le montant 12345.67 :

Code:

---

1 2 3 4 5 6 7 8 9

Set regEx = New RegExp regEx.Pattern = ""(12)( |.|,){0,1}(345)(,|.)(67)"" regEx.IgnoreCase = False regEx.Global = True Set Matches = regEx.Execute(" 123456.78 ") For Each Match in Matches 'Itère la collection Matches. Result=Match.Value MsgBox Result & " " & Len(Result) Next

---

Cela ne me satisfait pas pleinement parce que ce que je récupére jcontrient des , des . ou même un 0 inadéquat.

Mais le but est de trouver une chaine et pas de l'extraire

Merci

De plus, si j'ai bien compris, les références arrières permettent de rechercher un élément déjà trouvé.

par exemple s'assurer que si on a ([0-9]+)XX([0-9]+) avec les 2 nombres identiques...

Et là... je ne vois vraiment pas comment ça peut m'aider ...

j'ai bien une autre solution même si elle me demande du boulot supplémentaire ensuite : elle consiste à considérer que je peux avoir n'importe quoi sur les 4 derniers chiffres donc le pattern devient

Code:

---

(12)( |.|,){0,1}(3)([0-9]{2})(,|.)([0-9]{2})

---

Ce qui me renvoie des nombres en trop par rapport à mes 5 euros de marge. a moi de tester ce qui revient

Mais bon je suis sur que tu as mieux ^^


Merci

PS : Non c'est nul comme solution 5000 - 5 = 4995 plus de 2 chiffres

Bonjour

En plus je viens de me rendre compte que "(12)( |.|,){0,1}(345)(,|.)(67)" me validait 123345.67 ce qui ne me va pas du tout donc...

Il faut que j'utilise : "(12)( |\.|,){0,1}(345)(,|\.)(67)" et là ça marche

Mais je n'ai toujours pas de solution pour mes bornes.

Pouvez vous m'aider

Merci

il y a 2 stratégies pour ce genre de problème
- soit définir un pattern générique et effectuer la recherche précise sur les membres de la collection Matches
- soit définir un pattern personnalisé directement
la 1ère solution peut être + efficace si le générique "ramène" une collection de taille raisonnable par rapport à la source des données
la 2ème impose une définition de pattern un peu...laborieuse :mrgreen:
comme tu t'orientais vers cette solution, voici la réponse...
je n'ai pas géré les arrondis des bornes, faut pas pousser quand même

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Dim alValue(5),ahValue(5) iValue=1236 hValue = iValue + 5 lValue= iValue - 5 sValue=CStr(Int(lValue)) p = 1 For i = 7 - Len(sValue) to 6 alValue(i-1)=Mid(sValue,p,1) p = p + 1 Next sValue=CStr(Int(hValue)) p = 1 For i= 7 - Len(sValue) to 6 ahValue(i-1)=Mid(sValue,p,1) p = p + 1 Next   Set regEx = New RegExp regEx.Pattern = "(" & alValue(0) & alValue(1) & alValue(2) & "|" & ahValue(0) & ahValue(1) & ahValue(2) & ")*" & "(\.|,| )?" & _ "(" & alValue(3) & alValue(4) & "[" & alValue(5) & "-9]|" & ahValue(3) & ahValue(4) & "[0-" & ahValue(5) & "])+" & "(\.|,)(\d+)"   regEx.IgnoreCase = False regEx.Global = True Set Matches = regEx.Execute("7874585 xx 102.3 az 115.4 cd 12345.90 rtft 581,234.21 ou 1.231,74 qa 1234.50 ou 1 234,50 ou 1.234,50 ou 1234,50 rper 521,24 aa 2,55") For Each Match in Matches 'Itère la collection Matches. Result=regEx.Replace(Match.Value,"$1$3") MsgBox Result Next

---

Ah j'ai honte.

Comment j'ai pu pensé a enlever 5 a un chiffre alors que je n'ai même pas envisagé de l'enlever à la partie du nombre.


Je te remercie je vais essayer ça.

Eh bien... le pire c'est que ça marche...

Je ne pensais vraiment pas çà faisable.

Je te félicite et je te remercie beaucoup.

J'avais envisagé ta première solution, pour l'instant je ne peux l'appliquer a cause de raisons autres, il me fallait donc travailler sur cette deuxième.

Je te remercie encore pour le temps passé et pour m'avoir fait découvrir la puissance des expressions régulières que je ne soupçonnais même pas.

Cordialement