Bruge regular expression til at fjerne tegn i variabels indhold

Du kunne lave en function a la:
Select case "din streng"
case "&"
  replace("din streng","&"," ")
case "á"
  replace("din streng","á","a")
end select

:-) Bjørn

i regulært udtryk så
--
<%
Function RegReplace(str)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = "[^a-zA-Z0-9\_\-\.]"
  While regEx.Test(str)
    str = regEx.Replace(str, "")
  Wend
  RegReplace = str
End Function

fil = "møg og åge$ .jpg"

response.write RegReplace(fil)
%>

der tog jeg så punktummet med, det giver problemer med et filnavn som "hej.med.dig.jpg"
Du kunne fjerne punktummet fra funktionen og så blot kalde den med selve navnet

jeg kan ikke lure de reg.exp, mangler lidt ekspertise der ;o),
Men ellers forsøg dig i reg.exp kategorien

busschou >
Tak for dit svar. Du har ret i at funktionen kun bør acceptere eet punktum (og selvfølgelig det rigtige sted). Men jeg prøver mig frem med din funktion, som virker glimrende...

Takker :-)

Denne burde lade sidste punktum være i fred

Set re = New RegExp
re.Global = True
re.IgnoreCase = True

re.Pattern = "^.*\.(.*)$"
ext = re.Replace(filename, "$1")

re.Pattern = "[^a-z\d_-](?!" & ext & "$)"
filename = re.Replace(filename, "")

re.Global = True

så slipper man for at køre en while løkke :)

ksoren >> prøver jo at lære det reg.exp :o) ,, hvad gør udråbstegn godt for ?

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

Negative lookahead

ksoren >
Tusind tak - det virker perfekt !


Smider lige eksempel med din kode indsat i funktion - så er det nemmere for andre at "grabbe"...

********************

<%
Function RegReplace(str)
    Set re = New RegExp
    re.Global = True
    re.IgnoreCase = True
   
    re.Pattern = "^.*\.(.*)$"
    ext = re.Replace(str, "$1")
   
    re.Pattern = "[^a-z\d_-](?!" & ext & "$)"
    RegReplace = re.Replace(str, "")
End Function

fil = "møg. og. åge$ .jpg"

response.write RegReplace(fil)
%>