Discussion :

[kazylax]

Bonjour,

j'ai le code suivant pour vérifier les liens sur mon programme
mais j'ai une erreur

Code :

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

Type 'RegExp' non defini

Code de la fonction

Code :

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

1
2
3
4
5
6
7
8
 
    Function ValidationURL(ByVal url)
        Dim modele
        modele = New RegExp
        modele.pattern = "^(http://|https://){0,1}[A-Za-z0-9][A-Za-z0-9\-\.]+[A-Za-z0-9]\.[A-Za-z]{2,}[\43-\176]*$"
        modele.global = True
        ValidationURL = modele.test(url)
    End Function

Savez vous comme résoudre le problème s'il vous plait ?

Merci
Cordialement,

[Quatre_Couleurs]

Lu,
C'est RegEx pas RegExp
http://msdn.microsoft.com/en-us/libr...ons.regex.aspx