Tegn-filter på en variabel.

Som du selv siger kan du lave en function som enten tjekker på lovlige eller ulovlige karakter. Om det er det ene eller andet afgør man ved at tænke lidt over hvilke karakter er lovlige og hvilke er ulovlige. Tillader du kun bogstaver+tal (uden æøå) ville det være smart at tjekke lovlige karakter. Tillader du alle undtagen 5-10 stykker (æøå, !"#¤%&/()=?" kan det måske være en fordel at tjekke ulovlige karakter.

Der er to metoder enten string funktionerne instr, replace eller med regular expressen. Her er en funktion som tjekker for lovlige karakter og fjerne ulovlige:

fixNavn(str)
  okkarakter="abcdefghijklmnopqrstuvwxyz0123456789"
  tmp=""
  for i = 1 to len(str)
    if instr(1,okkarakter,mid(str,i,1),1)>0 then
      tmp=tmp & mid(str,i,1)
    end if
  next
  fixNavn = tmp
end function



Samme function som gør brug af regular expressen:

function fixBrugerNavn(str)
Dim RegEx
Set RegEx = New RegExp
RegEx.Global=true
RegEx.IgnoreCase=true
RegEx.Pattern = "([^a-z0-9])"
fixBrugerNavn = RegEx.Replace(str,"")
Set RegEx=Nothing
end function

Det var lige den funktion jeg ledte efter :)
Du glemte dog 'function' først ;)

Anyway, tak dude... Bliver nu brugt de fleste steder.


- Dennis :)