Søg og erstat med RegExp
Hej,Jeg har brug for hjælp til at få min funktion til at virke.
Via en editor sender jeg følgende data til min variabel inpContent.
"-----------------------------"
<p>Kontaktformular</p>
<p>
<img alt="!moduleStart!contactform(79)!moduleEnd!" src="/admin/editor/scripts/module.gif" />
</p>
<p>Billede galleri</p>
<p>
<img alt="!moduleStart!gallery(25)!moduleEnd!" src="/admin/editor/scripts/module.gif" />
</p>
<p> Nyhedsbrev</p>
<p>
<img alt="!moduleStart!newsletter(37)!moduleEnd!" src="/admin/editor/scripts/module.gif" />
</p>
"----------------------------------"
"----------------------------------"
Her starter min funktion
<%
webSiteContent = Request.Form("inpContent")
'this sub finds the matches
Sub RegExpTest(strMatchPattern, strPhrase)
'create variables
Dim objRegEx, Match, Matches, StrReturnStr
'create instance of RegExp object
Set objRegEx = New RegExp
'find all matches
objRegEx.Global = True
'set case insensitive
objRegEx.IgnoreCase = True
'set the pattern
objRegEx.Pattern = strMatchPattern
'create the collection of matches
Set Matches = objRegEx.Execute(strPhrase)
'print out all matches
For Each Match in Matches
strReturnStr = "Match found at position "
strReturnStr = strReturnStr & Match.FirstIndex & "." & Match
'Value is '"
strReturnStr = strReturnStr & Match.value & "'."
Response.Write(strReturnStr & "<BR>")
Next
End Sub
'call the subroutine
regExpTest "!moduleStart!([\s\S]+?)!moduleEnd!.", webSiteContent
Jeg får også output ud:
Match found at position 46.!moduleStart!contactform(79)!moduleEnd!"!moduleStart!contactform(79)!moduleEnd!"'.
Match found at position 179.!moduleStart!gallery(25)!moduleEnd!"!moduleStart!gallery(25)!moduleEnd!"'.
Match found at position 303.!moduleStart!newsletter(37)!moduleEnd!"!moduleStart!newsletter(37)!moduleEnd!"'.
"-----------------------------------"
Men hvordan får jeg lavet en replace funktion så jeg får et nyt output som ligner nedenstående.
Jeg ønsker blot at erstatte !moduleStart!newsletter(37)!moduleEnd!
med eks.: newsletter(37)
