Discussion :

[Alba1981]

Bonjour,

J'ai beau arpenter les tutoriels et forums, je ne vois pas de solution à mon problème qui pourtant semble relativement simple.

Il s'agit de repérer, grâce à une expression régulière, les dates aux formats suivants :
07/08/1981 - 7/08/1981 - 07/8/1981 - 7/8/1981
07-08-1981 - 7-08-1981 - 07-8-1981 - 7-8-1981
07.08.1981 - 7.08.1981 - 07.8.1981 - 7.8.1981

J'ai tenté moult variations mais mon code ne détecte pas celles avec le séparateur "." alors que pour les autres dates tout va bien.

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
...
set reg = New VBScript_Regexp_55.RegExp
reg.Multiline = False
reg.ignorecase = True
reg.Global = False
 
reg.pattern = "\d{1,2}(\.|/|-)\d{2}(\.|/|-)\d{4}"
set Matches = reg.Execute(DateSource)
 
For Each Match In Matches
     Debug.Print "source >>", Match.Value
     For i = 0 To Match.SubMatches.Count - 1
          Debug.Print "[$" & i + 1 & "]", Match.SubMatches(i)
     Next i
Next Match
...

Merci d'avance pour votre aide.

[antonysansh]

Bonjour Alba1981,

Pour le traitement que tu fais, je ne pense pas qu'une expression régulière soit réellement utile.
3 replace, 1 split et l'utilisation de val pourrait faire l'affaire.


Sinon j'utiliserais plutôt le pattern suivant :

Code :

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

\d{1,2}(\.|\/|-)\d{1,2}(\.|\/|-)\d{4}

[davido84]

Bonjour,

pour les propriétés:

Code :

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

1
2
3
 
reg.MultiLine = True
reg.Global = True

pour le motif :

Code :

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

\d{1,2}(\.|/|-)\d{1,2}(\.|/|-)\d{4}

ou

Code :

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

(\d{1,2}(\.|/|-)){2}\d{4}

à adapter en fonction des sous-correspondances que tu veux ramener.

NB : la partie

Code :

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

(\.|/|-)

peut être remplacée par

Code :

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

[\./-]

A+

[Alba1981]

Bonjour,

Suivant vos conseils, j'ai modifié le pattern ainsi :

Code :

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

reg.pattern = "(\d{1,2}[\.-/]){2}\d{4}"

Je ne comprends pas pourquoi mais ça fonctionne !

Un grand merci à vous deux.

Alba

[davido84]

Je ne comprends pas pourquoi mais ça fonctionne !

Le plus simple est de poser des questions sur ce que tu ne comprends pas.
A+