Discussion :

[mogwai162]

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 ?

[omen999]

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

[mogwai162]

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 :

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

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

[mogwai162]

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

[mogwai162]

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 :

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

(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

[mogwai162]

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

[omen999]

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

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

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

[mogwai162]

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.

[mogwai162]

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