Hvad er RegExp?

netsrac har lavet et glimrende eksempel her:

http://www.netsrac.dk/netsrac-dk/asp0003.asp

Se evt. også her:

http://www.magik.dk/vis_funktion.asp?id=7 (validering af e-mail adresser)

/Martin Sommer
www.magik.dk

Regulære udtryk, der kan bruges til mange smarte ting - såsom validering af mail-adresser, udskifte en url med et link o.m.m.

Her er et par eksempler, jeg selv har lavet:

Tjek en mail og en URL:

Function CheckMail(Streng)
    Dim myReg
    Set myReg = New RegExp
    myReg.IgnoreCase = True
    myReg.Pattern = "^[a-z0-9\.\-\_]+\@[a-z0-9\.\-]+\.[a-z]{2,4}$"
    CheckMail = myReg.Test(Streng)
End Function

Function CheckURL(Streng)
    Dim myReg
    Set myReg = New RegExp
    myReg.IgnoreCase = True
    myReg.Pattern = "^(http://|www.|ftp://)[a-z0-9\.\-]+\.[a-z]{2,4}[a-z0-9\.\-\/]{0,}$"
    CheckURL = myReg.Test(Streng)
End Function

Find ud af om en streng indeholder bogstaver/tal:

Function Alfanum(Streng)
      Set objRegPath = New RegExp
      objRegPath.Global = True
      objRegPath.IgnoreCase = True
    objRegPath.Pattern = "[a-z0-9\æ\ø\å]"
      retVal = objRegPath.Test(Streng)
    Set objRegPath = Nothing
      Alfanum = retVal
End Function

Tak begge 2, smider du ikke lige et svar magik ?

Sådan der :)