Tjek om der er stjerne i brugernavn?

If instr(Brugernavn, "*") > 0 then
  bla bla bla
else
end if

hvad så med:

If "Brugernavn indeholder * eller / eller ( eller ) eller.." then
  bla bla bla
else
end if

Hvilke tegn er det at man skal holde væk fra brugernavne? hvis det skal være praktisk?

Du kan lave en streng med tilladte tegn og gennemløbe den med en løkke:

fejlkode = 0
tilladteTegn = "ABCDEFGHIJHKLMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
for i = 1 to len(brugernavn)
  if instr(mid(brugernavn, i, 1), tilladteTegn) = 0 then
    fejlkode = 1
    ' ikke tilladt - så fejlmeld!
  end if
next

if fejlkode = 0 then
  ' brugernavnet indeholder kun gyldige tegn...
end if

Mere elegant ville det jo være med en Regular Expression:

set re = new RegExp
re.Pattern = "[a-z0-9]"
re.Global = true
re.IgnoreCase = true
 
' Undersøg om der er nogle ugyldige tegn i brugernavnet
brugernavnGyldig = re.Test(brugernavn)

if brugernavnGyldig then
  ' brugernavnet indeholder kun gyldige tegn...
end if

Mønsteret skal muligvis ændres til:

re.Pattern = "[a-z0-9]{1,}"

så der kan være fra 1 til flere af de specificerede tegn i brugernavnet.

...og i virkeligheden skulle man måske også sikre sig at der ikke forekommer andet i brugernavnet end disse tegn, således (skulle jeg mene):

re.Pattern = "^[a-z0-9]{1,}$"

Mange tak softspot.. Brugte bare den første for den forstår jeg bedst :P..

Svar?

Velbekomme :)

Jeg er heller ikke helt stiv i RegEx, så det var bare for at illustrere at der også var en mulighed der :)

Arh.. jeg havde lige glemt at teste det ordenligt... Nu skriver den at der er ugyldige tegn uanset hvad?..

Min kode:

brugernavn = request.Form("Brugernavn")

fejlkode = 0
tilladteTegn = "ABCDEFGHIJHKLMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-"
for i = 1 to len(brugernavn)
  if instr(mid(brugernavn, i, 1), tilladteTegn) = 0 then
    fejlkode = 1
    ' ikke tilladt - så fejlmeld!
  end if
next

if fejlkode = 1 then
  Response.Redirect("Opretbruger.asp?fejl=Der er ugyldige tegn i brugernavnet!")
end if

Sorry - min fejl. Det skal være således:

for i = 1 to len(brugernavn)
  if instr(1, tilladteTegn, mid(brugernavn, i, 1)) = 0 then
    fejlkode = 1
    ' ikke tilladt - så fejlmeld!
  end if
next

Så nu virker det mange tak. :)...

Var ved at stykke min egen lidt besværligere løsning sammen, men jeg holder mig bare til din da den virker 100% nu ;) :

'Brugernavnstegn = Split(brugernavn, "")
'Ugyldigetegn = "!#¤%&/()=?@£$€{[]}><\*~¨^´`"
'arrUgyldigetegn = Split(Ugyldigetegn, "")

'for t = LBound(Brugernavnstegn) to UBound(Brugernavnstegn)
    'for i = LBound(arrUgyldigetegn) to UBound(arrUgyldigetegn)
        'If instr(Brugernavnstegn(t), arrUgyldigetegn(i)) > 0 then
    '    Response.Redirect("Opretbruger.asp?fejl=Der er ugyldige tegn i brugernavnet!")
        'else
        'end if
    'next
'Next

Velbekomme og tak for point :)

En kommentar til arrays i VBScript: det kan ikke betale sig at kalde LBound på arrays i VBS, da de altid starter ved indeks 0, så man kan bare køre sine løkker fra 0 til ubound(arrayet). Dette er primært et performancespørgsmål og der er ikke noget ugyldigt i at lave kaldet - men det er som sagt unødvendigt :)