RegExp til søgning i string

http://www.eksperten.dk/spm/172446

//>Rune

Ja, den faldt jeg også over, men hvordan får jeg den outputtet...?

Function snup(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "\[code\](.+)\[\/code\]"
RegEx.Global = True
strText = ????
End Function

str = "en streng med et link i [url]www.noget.dk[/url] skal ses!"

Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = True

regEx.Pattern = "(\[url\])(.*)(\[\/url\])"
 
str = regEx.Replace (str, "<a href=""$2"">$2</a>")

Set regEx = Nothing

Response.Write str

//>Rune

jo tak :)

Men - mit output skal kun være det omklammende, f.eks:

str= "En streng med nogle [snip]forskellige bogstaver[/snip] og ord"
output="forskellige bogstaver"

Hmm så prøv sådan her:

Function snup(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "\[code\](.+)\[\/code\]"
RegEx.Global = True
snup = RegExp.Execute(strText)
End Function

Prøv sådan...

//>Rune

funker ikke...?

Hehe, min fejl!

Function snup(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "\[code\](.+)\[\/code\]"
RegEx.Global = True
Set objSnup = RegEx.Execute(strText)

For Each Match in objSnup
    strSnup = Replace(Match.Value, "[code]", "")
    strSnup = Replace(Match.Value, "[/code]", "")
Next
snup =Replace(Replace(strSnup, "[/code]", ""), "[code]", "")
End Function

Response.Write(snup("asdfkasldfæk[code]rune[/code]"))

//>Rune

PERFEKT :)

Mange tak for hjælpen

Mvh, Michael

Anytime :) -beklager forviringen!
Thx 4 Poinz

//>Rune