ja vad är det som inte funkar först och främst?
Frågan#1
Jag har en undersida på min hemsida där jag visar upp lite kodsnuttar jag har skrivit i en slags artiklar.
Texten streamar jag från textfiler.
Med RegExp plockar jag ut allt mellan
och
. Efter det så har jag gjort en väldigt simpel (men lång) color-coding-funktion som ajg anropar såhär:
.Pattern = "\[code\]([\w\W]*?)\[/code\]"
article = .Replace(article,"<div style=""font-family: courier; font-size: 11px; border: 1px solid #000000; padding: 3px; background-color: #EEEFFF"">" & Code("$1") & "</div>")
Själva funktionen ser ut såhär:
Function Code(strValue)
Code = Replace(strValue,"And","<font color=""#FFA500"">And</font>")
Code = Replace(Code,"Not","<font color=""#FFA500"">Not</font>")
...
Code = Replace(Code," "," ")
End Function
Vad kan vara fel?