InStr() ... Finde ugyldige tegn

if inStr(username,"#") > 0 then warning = "du må ikke bruge # i dit username"

osv. osv.

Smart nok...

Ja den forstår jeg godt, men hvad hvis jeg vil tjekke for mere end et ugyldigt tegn. Hvis der f.eks er 5 tegn der ikke kan anvendes... #,|,[,],; mv.

Strengen = "Streng med ugyldige tegn '/"
ArrTegn = Array("'","/") ' Tilføj selv flere tegn...
for i = 0 to Ubound(ArrTegn)
if not inStr(Strengen,ArrTegn(i)) = 0 then
Response.write "Strengen må ikke indeholde tegnet: " & ArrTegn(i)
end if
next

Se det var straks bedre :-)

Men killer_r, hvad så hvis " også er et ugyldigt tegn, går det så ikke helt i kage, hvis ArrTegn ser således ud? ArrTegn = Array("'","/",""")

Prøv sådan:
ArrTegn = Array("'","/","""")

du kan også vælge at lave en løsning hvor du bruger RegExp til at validere din data, det vil jeg mene er en fuldstændig løsning

soes >>>
Det kan da vel være ligemeget... Bare det virker efter hensigten... Til det han skal bruge ville det nok være lige rigeligt med RegExp...

jeg kan godt se at din løsning ville være ok, hvis vi snakker om et enkelt eller 2 tegn, men hvorfor ikke lave det ordentligt når man er igan?

Det vil da virke med mange tegn... Bare prop nogle flere i Arrayet...!

ok, havde lige misset dit forslag der, undskyld
men jeg synes stadig ikke at en regexp løsning ville være for voldsomt

her kommer lige en løsning med regexp

Function CheckInput(inputstr)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "^[a-zA-Z0-9]+$"
regEx.IgnoreCase = True
CheckInput = regEx.Test(inputstr)
End Function

Response.write(CheckInput())

soes >> Prøver også med din løsning, så læg gerne et svar.

killer_r >> Det virker jo fint, men når jeg kører den kommer der til at stå:

Brugernavn må ikke indeholde tegnet: 'Brugernavn må ikke indeholde tegnet: /Brugernavn må ikke indeholde tegnet: |

Hvordan vil det se ud, hvis jeg kun ønsker at finde det første ugyldige tegn og gøre brugeren opmærksom på dette?

Skal nok afsætte nogle flere point, hvis nødvendigt :-)

du får lige et svar

Strengen = "Streng med ugyldige tegn '/"
ArrTegn = Array("'","/") ' Tilføj selv flere tegn...
for i = 0 to Ubound(ArrTegn)
if not inStr(Strengen,ArrTegn(i)) = 0 then
Response.write "Strengen må ikke indeholde tegnet: " & ArrTegn(i)
exit for
end if
next

Ligesom det krogstrup siger... :)

Hmmm.
Aktiv tilladelse er altid mere sikker end passiv tilladelse. Det er klart bedre at definere nogle gyldige tegn end at definere ugyldige. Ergo at bruge soes' løsning

Tak for hjælpen, point er ændret fra 30 - 90 point :-)