Jo, men testa detta så förstår du vad jag menar!
Response.Write("Response.Write(""Hej"")")
Execute("Response.Write(""Hej"")")
Kolla om pattern finns med regexp
21 svar · 420 visningar · startad av Addeladde · sida 2 av 2
Frågan, av Addeladde
Har försökt med detta men regexp tillåter inte det IF NOT objRegExp.EOF THEN response.write("det finns ett pattern") END IF
Läs frågan i sin helhet →Jag gjorde så här så för att få till det!
<%
Dim arrKat()
i = 0
strKod = "<html>" &_
"<title>Testsida</title>" &_
"</head>" &_
"<body>" &_
"Här står lite text" &_
"[blankettarkiv=testkat/underkat]" &_
"här står lite mer text" &_
"[blankettarkiv=testkat2]" &_
"</body>" &_
"</html>"
strBlankett = "<'"&"%katalog = [blankettkatalog]" & vbCrLf & "'diverse aspkod%"&"'>"
Set RegExp = New Regexp
RegExp.IgnoreCase = True
RegExp.Global = True
RegExp.Pattern = "\[blankettarkiv=(.+?)\]"
Set objMatches = RegExp.Execute(strKod)
For Each Match in objMatches
strTemp = vbcrlf&replace(strBlankett, "[blankettkatalog]", mid(match.value, 16, len(match.value)-16))&vbcrlf
strKod = replace(strKod, Match.value, strTemp)
Next
Set objMatches = Nothing : Set RegExp = Nothing
response.write strKod
%>
la till ett ' mellan < och % så att man ser den koden i utskriften på sidan.
Mitt pattern var fel också så jag har ändrad det så det är korrekt.