Replace med ukendt tekst i midten

Prøv at giv et eksempel på hvad du mener...!

//>Rune

f.eks

streng = replace(streng ,"det_var_det", "det_blir_det")

??

Jeg vil gerne erstatte f.eks.:

[* bla bla bla.... vbcrlf

(her er vbcrlf et linjeskift), og det skal er erstattes med:

<h1> bla bla bla.... </h1>

streng = replace(streng, VbCrLf , "<h1>" & tekst & "</h1>")

Problemer er at den kun må erstatte VbCrLf hvor det afslutter en linje der begynder med [* (ikke alle andre VbCrLf-ere!)

indsætter du "bla bla bla bla" som en streng ? ...

ja, "bla bla" kan være alt muligt.

Den funktion jeg søger ligner lidt den som erstatter f.eks. mailadresser (mail@mail.dk) med links (<a href=mailto:mail@mail.dk>mail@mail.dk).

ups, glemte noget: (<a href=mailto:mail@mail.dk>mail@mail.dk</a>

Er det ikke noget med object og pattern?

Function RepStreng(Streng)
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "^([*)+[^\VbCrLf]{0,}$"
Set Matches = regEx.Execute(Streng)
For Each Match in Matches
    Streng = Replace(Streng, Match.Value, Match.Value & "<h1> bla bla bla.... </h1>")
Next
RepStreng = Streng 
End Function

Response.Write RepStreng("Dette er en test" & VbCrLf)

??

Lukker spm