Simpel Regular Expression

Jeg tror du kunne spare en masse besvær med str_replace();

Men du vil måske bruge en regExp?

nææ, om jeg bruger regExp eller noget andet er underordnet... ville bare tro at regExp er det nemmeste.
Kan du komme med et eksempel på str_replace()? Jeg kender ikke den funktion.

Du skal lige vide at der godt kunne stå:
<test@test.dk> webmaster@exp.juh <webmaster@exp.juh>
men at det kun er bogstaverne mellem < og > der skal opfattes som emails.

Du kan evt. gøre sådan her, et eksempel som gør brug af regular expression:


<%
str = "<test@test.dk> webmaster@exp.juh <webmaster@exp.juh>"

dim re
set re = new RegExp
re.Pattern = "<(.*?)>"
re.Global = true
set objMatches = re.Execute(str)
For Each objMatch In objMatches
  outStr = outStr & ", " & Mid(objMatch.value,2,len(objMatch.value)-2)
Next
'Fjern det føste ", "
outStr = Mid(outStr,3)

Response.Write outStr
%>

hmm, jeg får fejlen:
Microsoft VBScript runtime error '800a139a'

Unexpected quantifier

/test.asp, line 19


linien 19 er den med set objMatches = re.Execute(str)

hvorfor gør den det?

Ok, jeg har fået tilpasset det lidt:

Function GetEmailInSquareBrackets(strWithEmail)
  strReturn = ""
  Set objRegEx = New RegExp
  objRegEx.Pattern = "<([^>]*)>"
  objRegEx.Global = True
  Set Matches = objRegEx.Execute(strWithEmail)
  For each Match in Matches
      strReturn = strReturn & ", " & Mid(Match.value,2,len(Match.value)-2)
  Next
  strReturn = Mid(strReturn,3)
  GetEmailInSquareBrackets = strReturn
End Function

jeg fik også lidt hjælp fra en nyhedsgruppe; de to eksempler samlet virkede så til sidst ;)

Tak for hjælpen!!