Discussion :

[mogwai162]

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

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

[hackoofr]

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é.

je ne vois pas le souligné

[mogwai162]

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

[omen999]

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

[mogwai162]

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

Seul le FC est vraiment constant

[omen999]

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

[mogwai162]

c'est tout a fait ça

[mogwai162]

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

[omen999]

oki

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mogwai162]

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

[omen999]

Premièrement j'ai les espaces

bin pas moi...
si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mogwai162]

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

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

Merci beaucoup

[omen999]

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

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

[mogwai162]

Salut tout le monde !

Ben me revoilà déjà :

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

"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

[omen999]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
edit : pour éviter de surcharger le pattern, je n'ai pas créé de parenthèses non-capturantes

[mogwai162]

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

[mogwai162]

Bonjour

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

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

[omen999]

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

hmmm je vois...

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mogwai162]

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.

[omen999]

Que je suis con....

mais non car ça prouve que tu commences à penser en "regexp"
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