---
title: "RegExp-funktion för forumkod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/55697-regexp-funktion-för-forumkod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "m_soderlund"
published: "2002-10-11T06:26:05.000Z"
updated: "2002-10-11T09:42:08.000Z"
replies: 2
views: 303
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/55697-regexp-funktion-för-forumkod"
---

# RegExp-funktion för forumkod

## #1 — m_soderlund, 2002-10-11T06:26Z

Jag har denna forumfunktion ovan, men om jag har en testkod mellan \< och \>-taggar och i samma meddelande kör med mina egna \[\]-taggar så blir allt "HTMLEncodat", även \[\]-taggarna som jag vill ska bli till HTML-taggar. Hur löser jag detta? 
Jag har försökt att plocka ut allt mellan \< och \> och enbart köra HTMLEncode på det men jag fick ingen framgång.. Mycket tacksam för svar. 

Koden: 
\<% Function forumCode(mess) 
mess = Server.HTMLEncode(mess) 

Set objRegExp = New regexp 
objRegExp.Global = true 
objRegExp.IgnoreCase = true 

objRegExp.Pattern = "\\\[(b\|/b\|i\|/i\|u\|/u)\\\]" 
mess = objRegExp.Replace(mess,"\<$1\>") 

objRegExp.Pattern = "\\\[citat\\\]" 
mess = objRegExp.Replace(mess,"\<span class=""citat""\>Citat:\<br\>\<img src=""graphics/line.gif"" width=""500"" height=""11""\>\<br\>") 

objRegExp.Pattern = "\\\[/citat\\\]" 
mess = objRegExp.Replace(mess,"\</span\>\<br\>\<img src=""graphics/line.gif"" width=""500"" height=""11""\>\<br\>") 

objRegExp.Pattern = "\\\[kod\\\]" 
mess = objRegExp.Replace(mess,"\<span class=""forumkod""\>Kod:\<br\>\<img src=""graphics/codeline.gif"" width=""500"" height=""11""\>\<br\>") 

objRegExp.Pattern = "\\\[/kod\\\]" 
mess = objRegExp.Replace(mess,"\</span\>\<br\>\<img src=""graphics/codeline.gif"" width=""500"" height=""11""\>\<br\>") 

forumCode = mess 
End Function %\>

Permalänk: https://www.webforum.nu/p/55697

## #2 — voigtann1, 2002-10-11T09:40Z

Varför ändrade du om min kod jag gav dej?

Permalänk: https://www.webforum.nu/p/818506

## #3 — voigtann1, 2002-10-11T09:42Z

\<%
Function forumCode(mess)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
mess = Server.HTMLEncode(mess)

objRegExp.Pattern = "\\\[(b\|/b\|i\|/i\|u\|/u)\\\]"
mess = objRegExp.Replace(mess,"\<$1\>")

objRegExp.Pattern = "&lt;(b\|/b\|i\|/i\|u\|/u)&gt;"
mess = objRegExp.Replace(mess,"\<$1\>")

objRegExp.Pattern = "\\\[citat\\\]" 
mess = objRegExp.Replace(mess,"\<span class=""citat""\>Citat:\<br\>\<img src=""graphics/line.gif"" width=""500"" height=""11""\>\<br\>") 

objRegExp.Pattern = "\\\[/citat\\\]" 
mess = objRegExp.Replace(mess,"\</span\>\<br\>\<img src=""graphics/line.gif"" width=""500"" height=""11""\>\<br\>") 

objRegExp.Pattern = "\\\[kod\\\]" 
mess = objRegExp.Replace(mess,"\<span class=""forumkod""\>Kod:\<br\>\<img src=""graphics/codeline.gif"" width=""500"" height=""11""\>\<br\>") 

objRegExp.Pattern = "\\\[/kod\\\]" 
mess = objRegExp.Replace(mess,"\</span\>\<br\>\<img src=""graphics/codeline.gif"" width=""500"" height=""11""\>\<br\>") 

forumCode = mess 
End Function %\>

nu ska \<b\> \</b\> och sånt ska fungera...

anropa gör du:
\<%
response.write forumcode(recset("test"))
%\>

Permalänk: https://www.webforum.nu/p/818507

---

Tråden på webben: https://www.webforum.nu/amne/asp/55697-regexp-funktion-för-forumkod