Tjek om streng indeholder andet end bogstaver og tal

function tjekText(fText)
dim RX
  Set RX = New RegExp
  RX.Global = True
  RX.IgnoreCase = True
  RX.Pattern = "[^\w-]"
  tjekText = not RX.test(fText&"")
end function

returnere true hvis strengen er OK.

fennec: Tak for dit svar. Vil du forklare mig hvad de enkelte linier gør?

den skal jeg også lige høre.. :)

Vi kan jo starte med at koge den ned til det nødvendige:


Function tjekText(fText)
    Dim RX
    Set RX = New RegExp
    RX.Pattern = "[^\w-]"
    tjekText = Not RX.Test(fText & "")
End Function


Der er tale om et regulært udtryk. Den vigtigste del er selve "mønsteret":

    RX.Pattern = "[^\w-]"

\w - betyder "et bogstav (a-z), et ciffer (0-9), eller en understreg". En anden måde man kunne skrive det samme på er "a-z0-9_", men så er det altså noget nemmere at nøjes med \w.

Dernæst er der []-parenteserne. De skal læse som "eller":

[\w-] - betyder derfor "et bogstav (a-z eller A-Z), et ciffer (0-9), eller en understreg" ELLER "en bindestreg".

Hvis man sætter en caret, ^-tegnet, ind i sterten betyder det imidlertid "hverken eller":

[^\w-] - betyder "hverken et bogstav, et ciffer, en understreg, eller en bindestreg". Eller man kunne også læse det som "et eller andet tegn som ikke er: et bogstav, et ciffer, en understreg, eller en bindestreg".


Når vi har disse to linjer:


    RX.Pattern = "[^\w-]"
    tjekText = Not RX.Test(fText & "")

Så tjekker de altså indholdet af fTekst for om der er et tegn som opfylder at det "hverken er et bogstav, et ciffer, en understreg, eller en bindestreg", altså om der er et ulovligt tegn i teksten. Hvis der er det, så giver:

    RX.Test(fText & "")

værdien True, og Not foran betyder altså at du for False hvis der er bare et eneste et ulovlogt tegn.


Læg mærke til at jeg har skrevet "a-z" sammen med at jeg har skrevet "et bogstav". Hvad så med de danske bogstaver? Se, det afhænger af om ASP-instalationen ved at den er "dansk". Måske virker det bare, men for at være på den helt sikre side kan du også modifisere til:


Function tjekText(fText)
    Dim RX
    Set RX = New RegExp
    RX.Pattern = "[^\wæøåÆØÅ-]"
    tjekText = Not RX.Test(fText & "")
End Function

Nille >>
Du har selvfølgelig ret i at Global og IgnoreCase ikke behøver at være med. Det er bare en vane jeg har, at de altid kommer med :o)

skildpadden >>
Regular Expression er en af de mest kraftfulde værktøjer, der findes inden for programmering, og derfor er det implementeret i mange forskellige programmeringssprog. Hele styrken ligger i de "patterns" man kan opbygge, men for nybegyndere er syntaxen mildesttalt uforstålig.

Jeg vil anbefale dig at smutte forbi RegExp kategorien her på E engang når du har tid. Der kan finde alle mulige gode scripts:
http://www.eksperten.dk/spm/Programmering/RegExp/

F.eks script til at validere emailadresser og udskifte links i tekst/noter til klikbare links (lige som der sker her på E hvis du indtaster en www adresse). Der kan du selvfølgelig også finde guides til at lære RegExp.

.o) <-- One Eyed Jack

Det er bare super! Mange tak for hjælpen - begge to.

Jeg er nu et lille dilemma; fennec kom med svaret, men nielle forklarede mig hvordan det hele fungerede - hvordan skal point gives?

Det er normalt den som stiller spørgsmålet som bestemmer den slags ting.

Jeg svarede nu ikke for at stjæle points fra fennec; Afstår gerne :^)

Så finder vi jo ud af det alligevel... ville bare ikke have at du følte dig snydt for du hjalp virkelig også meget, og det skal du have mange tak for.