On Fri, 23 Mar 2007 17:22:38 +0100, Jørn Andersen <jorn@jorna.dk> wrote:
>On 23 Mar 2007 15:52:30 GMT, Christian Itzchaky Larsen
><itzchaky@hotmail.com> wrote:
>
>>Hvordan laver man sådan en kode som f.eks. tjekker om man i en
>>input har brugt tegn som æøå<17263 .. you know..
>
>Hvis du kun skal checke for et enkelt tegn, så kan du bruge InStr - se
>fx:
><url:
http://www.w3schools.com/vbscript/func_instr.asp>
>
>If InStr(myVar, "#") > 0 Then bla bla
>
>Men skal du checke flere tegn samtidigt, skal du nok til at kigge på
>Regular Expressions, men det er ikke min stærke side, så det vil jeg
>lade andre om at svare på.
Du kan godt checke flere tegn med fx:
Dim strUgyldigeTegn, q, strErr
strErr = ""
strUgyldigeTegn = "æøå<17263"
For q = 1 To Len(strUgyldigeTegn)
If InStr(1, strTekst, Mid(strUgyldigeTegn, q, 1), 1) Then
strErr = strErr & "Fejl: Der er et ugyldigt tegn<br>" & vbcrlf
Exit For
End If
Next
Det er ikke særligt ressource-effektivt, hvis der er mange ugyldige
tegn, og det er en større tekst, der skal checkes - men det virker
Mvh. Jørn
--
Jørn Andersen, Brønshøj
Stop Bush's krige - og Foghs støtte til dem
www.nejtilkrig.dk