[kod] formatering med färger etc.

3 svar · 218 visningar · startad av Eitraz 22 nov. 2002

EitrazMedlem sedan sep. 2002366 inlägg

Trådstart22 nov. 2002 17:04#1

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å:

	<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

EitrazMedlem sedan sep. 2002366 inlägg

22 nov. 2002 20:15#2

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

crisse6Medlem sedan dec. 20002 526 inlägg

23 nov. 2002 01:10#3

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...

EitrazMedlem sedan sep. 2002366 inlägg

23 nov. 2002 01:27#4

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