Regexp til validering af hjemmeside adresse
Jeg har skruet følgende funktion sammen.Function RegExpTest(strPhrase)
Dim objRegEx,strReturnStr
Set objRegEx = New RegExp
\'find all matches
objRegEx.Global = False
\'set case insensitive
objRegEx.IgnoreCase = True
\'set the pattern
objRegEx.Pattern = \"^[\\w-]+@[\\w-]+\\.(com|net|org|edu|mil|dk|se|no)$\"
End Function
Jeg skal gerne have den til at check om det er er en valid hjemmeside aadrese.
ex.: ddd.dk eller www.ddd.dk
Er der nogen der kan hjælpe?
