Sorter ugyldige tegn fra

Nedenstående funktion returnerer false, hvis der er fejl.
Den returnerer true, hvis tekststrengen s er ok.
function f(s)
  dim i
  const tegn="abcdefghijklmnopqrstuvwxyz0123456789,-./?"
  for i=1 to len(s)
    if InStr(tegn,Mid(s,i,1)= 0 then
      f=false
      exit function
    end if
  next
  f=true
end function

Du kan bruge RegExp...

Function Tjek(Streng)
    Dim myReg
    Set myReg = New RegExp
    myReg.IgnoreCase = True
    myReg.Pattern = "^[a-z0-9\-\,\.\?\/]{1,}$"
    Tjek = myReg.Test(Streng)
End Function

If Tjek(Streng) Then
  'Gyldig!
End If

rettelse: Der mangler en parentes i if InStr(tegn,Mid(s,i,1)= 0 then
skal være:
if InStr(tegn,Mid(s,i,1))= 0 then

det skulle have været et svar

fortsat forbedring:
function f(s)
  dim i,t
  t=Lcase(s)
  const tegn="abcdefghijklmnopqrstuvwxyz0123456789,-./\?"
  for i=1 to len(t)
    if InStr(tegn,Mid(t,i,1)= 0 then
      f=false
      exit function
    end if
  next
  f=true
end function

Vælger du altid den næstbedste løsning? Hmm... Men tak for points.

Hvorfor er din løsning bedre?

Den er hurtigere og mere fleksibel. Regular Expressions er designet netop til bl.a. at udføre den slags validering, således at det ikke er nødvendigt at køre løkker og kalde funktioner (som InStr) en helvedes masse gange.

Det var sådan set heller ikke for at nedgøre hverken nmh's løsning eller dit valg. Jeg savnede bare en begrundelse for, at dit valg faldt på den.

Jeg takker for point.

Det var fordi den anden løsning kom først. :-)
Hvis min applikation bliver for tung, skifter jeg til din løsning.

Ja, det må du jo helt selv om. Jeg ville bare ikke lade det være unævnt.

RegExp eller ej.
Det er da rigtigt at det er mere effektivt at bruge RegExp. Men i dette tilfælde er det vist hip som hap, med mindre du har rigtig mange lange tekststrenge, du skal håndtere. (Funktionen InStr er faktisk ret effektiv).

Jeg ser blot ingen grund til IKKE at bruge RegExp.