Discussion :

[acado]

Bonjour,

je me suis basé sur la FAQ écrite sur ce site pour faire mon expression régulière en vb, mais je n'y arrives pas.
Meme en recopiant bêtement le code fourni dans la FAQ ca ne marche pas.

Mon probleme est simple, je dois supprimer ts les fichiers dont l'extension est du type .aaaammjj , j ai donc opté pour les expressions régulieres .

voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
Set RegularExpressionObject = New RegExp
 
	With RegularExpressionObject
		.Pattern = "^(.(1|2)[0-9]{3}(1-2)[0-9][0-3][0-9])$"
		.IgnoreCase = False
	End With
 
 
MsgBox RegularExpressionObject.Test(".20091105")
MsgBox RegularExpressionObject.Test(".30091105")

Je n'ai aucun message qui apparait que ce soit avec mon code ou avec le code fourni par la FAQ.

[omen999]

salut,

Je n'ai aucun message qui apparait

inquiétant... car tu devrais au moins avoir le message "Faux"

à moins que les extensions ne soient listées dans un fichier texte global, je ne vois pas trop l'intérêt d'utiliser les expressions régulières dans ce cas précis

pourquoi ne pas tirer parti de la fonction IsDate ?

un truc comme ça (avec un test pour écarter les années futures) :

Code :

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

1
2
3
4
sExt="20091102"
If Left(sExt,4) < 2011 Then 
	MsgBox IsDate(Left(sExt,4) & " " & Mid(sExt,5,2) & " " & Right(sExt,2))
End If