Expressions rationnelles pour des dates (point de point)

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:

---

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.

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:

---

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

---

Bonjour,

pour les propriétés:

Code:

---

1 2 3

reg.MultiLine = True reg.Global = True

---

pour le motif :

Code:

---

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

---

ou

Code:

---

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

---

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

NB : la partie

Code:

---

(\.|/|-)

---

peut être remplacée par

Code:

---

[\./-]

---

A+

Bonjour,

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

Code:

---

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

---

Je ne comprends pas pourquoi mais ça fonctionne !

Un grand merci à vous deux.

Alba

Citation:

---

Je ne comprends pas pourquoi mais ça fonctionne !

---

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