---
title: "[kod] formatering med färger etc."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/59943-kod-formatering-med-färger-etc"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Eitraz"
published: "2002-11-22T17:04:17.000Z"
updated: "2002-11-23T01:27:59.000Z"
replies: 3
views: 218
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/59943-kod-formatering-med-färger-etc"
---

# [kod] formatering med färger etc.

## #1 — Eitraz, 2002-11-22T17:04Z

Håller på med ett slags forum där man ska kunna skriva in
\[ kod\]
koden
\[ /kod\]

för att få koden formaterad med färger etc.
Ungefär som med \[ PHP\] här på webforum.
så här alltså:

```php
	<td width="1"><img src="./images/nothing.gif" border="0" height="1" width="1"></td>
	<td width="700" height="1" bgcolor="#A8B3C0">
		<!-- MAIN -->
		<table border="0" cellpadding="0" cellspacing="0">
  		  <tr>
```

Nån som har något bra tips om hur man ska göra detta?

Kan man använda Regexp på en speciell del av texten?

\-Eitraz

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

## #2 — Eitraz, 2002-11-22T20:15Z

Ingen som har bra förslag eller vet hur man gör? :q

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

## #3 — crisse6, 2002-11-23T01:10Z

funktion ar val mitt tips, men for att fa sa som PHP taggen kan du nog inte ordna utan en funktion som finns i PHP eller liknande...
men annars som nar man skriver \[ kod \] har, sa ar det bara replace, replaca kod till kanske rod farg eller nat och annat typsnitt... sok, finns massor av tradar med det... :)

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

## #4 — Eitraz, 2002-11-23T01:27Z

För er som är intresserade så blir resultatet helt hyfsat med den här början:

```
	f = 1
	s = 1
	Do Until f <= 0
		foundText = ""
		strText2 = ""
		f = InStr(f,LCase(strText),"[ kod]")
		s = InStr(f+5,LCase(strText),"[/ kod]")
		If f > 0 And s > 0 Then
			foundText = Mid(strText,f+5,(s-(f+5)))
			strText2 = foundText
			strText2 = Replace(strText2,"  ","&nbsp;&nbsp;")
			re.Pattern = "(\&quot;)((.|\n)*?)(\&quot;)"
			strText2 = re.Replace(strText2,"<font color=""#282BAC"">&quot;$2&quot;</font>")
			strText = Mid(strText,1,f-1) & "<blockquote><font color=""#000000"">" & strText2 & "</font></blockquote>" & Mid(strText,s+6)
			
			re.Pattern = "(\&lt;table|\&lt;tr|\&lt;td|\&lt;/td|\&lt;/tr|\&lt;/table)((.|\n)*?)(\&gt;)"
			strText = re.Replace(strText,"<font color=""#325454"">$1$2&gt;</font>")
			
			re.Pattern = "(\&lt;img)((.|\n)*?)(\&gt;)"
			strText = re.Replace(strText,"<font color=""#582559"">$1$2&gt;</font>")

			re.Pattern = "(\&lt;a |\&lt;/a)((.|\n)*?)(\&gt;)"
			strText = re.Replace(strText,"<font color=""#1C661C"">$1$2&gt;</font>")

			re.Pattern = "(\&lt;font|\&lt;/font)((.|\n)*?)(\&gt;)"
			strText = re.Replace(strText,"<font color=""#272865"">$1$2&gt;</font>")			

			f = f + 3
			s = 0
		Else
			f = 0
		End If
	Loop
```

Sen är det bara o fylla i allt man vill ska formateras ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/59943-kod-formatering-med-färger-etc