RegExp på streng

Jeg ved ikke om du kan få bygget det hele i samme pattern men ellers kan du jo lave functionen sådan her så den tjekker på mellemrum og punktum for sig og så tjekker om regular expression om det er gyldige karakter der indgår:


<%
Function valUsername(ByVal sInput)
    strOk = true
    str = Trim(sInput)

'Tjek for mere end et punktum:
    arr=split(str,".")
    if ubound(arr) > 1 then strOk = false
    set arr = Nothing

'Tejk på om der er to mellemrum efter hinadnen 
    if inStr(1,str,"  ") > 0 then strOk = false

'Tjek for om stregen indeholder a-å 0-9 mellemrum eller punktum   
    Dim ianRegEx
    Set ianRegEx = New RegExp
    ianRegEx.Pattern = "^[a-z0-9æøå\x20\.]+$"
    ianRegEx.Global = True
    ianRegEx.IgnoreCase = true
    if ianRegEx.Test(str) = false then strOk = false
    set ianRegEx = nothing
       
    valUsername = strOK
End Function




var = "brugn.adf avn"
if valUsername(var) then
  'Ok brugernavn
  Response.Write "Ok"
else
  'ikke ok
  Response.Write "Ikke ok"
end if
%>

Hvad betyder x20 ?

Har du mulighed for at få '-'og '_' med i kravet, hvor det heller ikke må forekomme flere gange efter hinanden, men gerne forskellige steder?

Så kan jeg godt godtage din løsning :-)

\xN hvor N her er 32, er en hexidecimal ascii karakter man kan angive og 32 er hex værdien for et mellemrum.

Jeg kom lige til at tænke på man kan jo lave et patterne som tjekker om der er dobbelt --, __ eller mellemrum i set det for det med inStr:

Så funktionen bliver:

Function valUsername(ByVal sInput)
    strOk = true
    str = Trim(sInput)

'Tjek for mere end et punktum:
    arr=split(str,".")
    if ubound(arr) > 1 then strOk = false
    set arr = Nothing

'Tjek for om stregen indeholder a-å 0-9 mellemrum eller punktum   
    Dim ianRegEx
    Set ianRegEx = New RegExp
    ianRegEx.Pattern = "^[a-z0-9æøå\x20\._-]+$"
    ianRegEx.Global = True
    ianRegEx.IgnoreCase = true
    if ianRegEx.Test(str) = false then strOk = false

'Tjek om der er dobbelt __, mellemrum, eller --
    ianRegEx.Pattern = "(__|\x20\x20|--)"
    if ianRegEx.Test(str) = true then strOk = false
    set ianRegEx = nothing
       
    valUsername = strOK
End Function

hov 32 i føste linje i sidste kommentar skulle være 20.

Tak for svaret :-)

Kan du i øvrigt anbefale nogle links, hvor jeg kan læse mere om emnet?