---

Hej,

Jeg har brug for en regular expression som kan omdanne for eksempel:

<test@test.dk> Casper Bang <webmaster@exp.juh>
til
test@test.dk, webmaster@exp.juh

det vil sige at den skal returnere selve email adresserne kommasepereret.
Det er vist ret simpel at gøre med en regular expression... men jeg er ikke
god til regular expressions ;)

Håber i kan hjælpe.
Thanks!!

---

Casper Bang wrote:
> Jeg har brug for en regular expression som kan omdanne for eksempel:
>
> <test@test.dk> Casper Bang <webmaster@exp.juh>
> til
> test@test.dk, webmaster@exp.juh
>
> det vil sige at den skal returnere selve email adresserne
> kommasepereret. Det er vist ret simpel at gøre med en regular
> expression... men jeg er ikke god til regular expressions ;)

Noget ala dette:


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 & Match.SubMatches(0) & ","
Next
GetEmailInSquareBrackets = strReturn
End Function


--
Jakob Andersen

---

> Noget ala dette:
>
>
> 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 & Match.SubMatches(0) & ","
> Next
> GetEmailInSquareBrackets = strReturn
> End Function

Jeg får fejlen:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Match.SubMatches'

/test.asp, line 21



når jeg kalder funktionen med for eksempel:

str = "<test@test.dk> webmaster@exp.juh <webmaster@exp.juh>"
Response.Write GetEmailInSquareBrackets(str)

jeg ved ikke om jeg forklarede det godt nok, men ovenstående skulle også
gerne give test@test.dk, webmaster@exp.juh som resultat.



Hvorfor får jeg fejl der?

---

> Jeg får fejlen:
> Microsoft VBScript runtime error '800a01b6'
>
> Object doesn't support this property or method: 'Match.SubMatches'
>
> /test.asp, line 21

Ok, jeg fik den til at virke:

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


tak for hjælpen!!

---

Casper Bang skrev:
> Jeg får fejlen:
> Microsoft VBScript runtime error '800a01b6'
> Object doesn't support this property or method: 'Match.SubMatches'
> /test.asp, line 21
>
> Hvorfor får jeg fejl der?

Givetvis fordi din VBS-version er for gammel. SubMatches-delen kom først
med i version 5.5.
Men kan se at du fandt en måde at omgå det på...

mvh Torben

---

> Givetvis fordi din VBS-version er for gammel. SubMatches-delen kom først
> med i version 5.5.

Hvordan opdaterer jeg dette? Og er det en gratis update?

---

Casper Bang wrote:
> Hvordan opdaterer jeg dette? Og er det en gratis update?

Du kan downloade en fælles opdatering til JScript og VBScript på denne
adresse:
<http://msdn.microsoft.com/scripting>

--
Jakob Andersen

---

> Du kan downloade en fælles opdatering til JScript og VBScript på denne
> adresse:
> <http://msdn.microsoft.com/scripting>

Ok, tak. Vil jeg så gøre ved lejlighed :)