Function til at tjekke for specdial tegn

du kan bruge instr funktionen.

//akj

En meget simpel funktion kunne være

Function Test(strIn)
' specialtegn du leder efter
myArr = Split("&,!,#,~", ",")

For i = 0 To UBound(myArr)
  If InStr(strIn, myArr(i)) Then
  strTemp = strTemp & myArr(i) "fundet! "
  End If
Next

Test = strTemp
End Function

F.eks

If instr(username,"&") > 0 then
  ' der er fundet et "&"
end if

If instr(username,"/") > 0 then
  ' der er fundet et "/"
end if

ref:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctinstr.asp

hej igen

er vel ikek ngoen som lige skulle ha en list over special tegn ? :)

Jo... ned med shift og en tur rundt på klaveret :o)

eller
http://www.google.com/search?hl=en&ie=UTF8&oe=UTF8&q=specialtegn+liste

Alternativt kan du kaste dig ud i lidt Regular Expressions eks:

Set regEx = New RegExp
‘søg efter ? ‘ %      som ikke er tilladt
regEx.Pattern = “[\?\’\^\*\%]”
regEx.IgnoreCase = False

inStr = “ghg%huh”
retVal = regEx.Test(inStr)

' Execute the search test.
If retVal Then
  Response.write "ulovligt tegn fundet."
Else
  Response.write "streng OK"
End If
Set regEx = Nothing

Prøv evt:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnclinic/html/scripting051099.asp

hmm virker ikke helt som jeg vil had det til det...

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Test'



Function Test(Brugernavn)
' specialtegn du leder efter
myArr = Split("&amp;,!,#,~,¤,%,/,(,),=,?,´,`,@,£,$,€,{,[,],},+,|,¨,^,*,.,;,:,-,_,<,>,\", ",")
   
For i = 0 To UBound(myArr)

If InStr(Brugernavn,myArr(i)) Then
strTemp = strTemp & myArr(i) & "fundet!"
End If
       
Next
Test = strTemp
End Function



If Brugernavn <> "" then
  Test(Brugernavn)
    If Test <> "" then
    Response.Write test
    end if
       
End if

If Brugernavn <> "" then
  If Test(Brugernavn) <> "" then
    Response.Write test
    end if
       
End if

stasdig samme fejl :(

Har du et linienummer den fejler i ??

Du bruger en test som variable og function det går ikke:
If Brugernavn <> "" then
  strTest = Test(Brugernavn)
  If strTest <> "" then
    Response.Write strTest
    end if     
End if

nu har jeg et problem

jeg bruger tmcceu's løsning, eagle rettede den til..hvem skal så have pointsne ??

sorry dk, din løsning hvirker vist beste hvis det kun er et enkelt elelr ihvertfal få tegn man tjekker for

Du vælger bare avanceret og deler points.

//akj

Hvis du fordeler som du synes, er det ok med mig. Du er spørgeren og det er din suveræne ret at fordele :-)

Du kan jo dele de points mellem os:
y til eagleeye
x til tmceu
z til dk_akj

Eller hvordan du syntes det skal deles.

there u go..:)
og takker for hjælpen