HTML med RegExp — webForum

SGuncelMedlem sedan jan. 2007217 inlägg

Frågan1 juni 2007 07:35#1

Jag använder mina egna HTML koder med RegExp som nästan alla gör för att skydda sig från andra HTML koder.
Men problmet för mig är att jag kan bara använda några koder en gång eller så när jag använder <b></b> blir alla text fett.

<%
     Function ForumHTML(ByVal strText)

     strText = Replace(Server.HTMLEncode(strText),vbCrlf,"<br>")
     Set objRegExp = New regexp
     objRegExp.Global = true
     objRegExp.IgnoreCase = true

        objRegExp.Pattern = "(http://(\w|\.|/|-|\?|=|&|;|~){1,}\w*)"
        strText = objRegExp.replace(strtext,"<a href=""$1"" target=""_blank"">$1</a>")
		
        objRegExp.Pattern="\&lt;img src=&quot;([\w\W]*?)&quot;&gt;"
        strText = objRegExp.replace(strText,"<img src=""$1"">")
		
        objRegExp.pattern="\&lt;font color=&quot;([^&]*)&quot;\&gt;([^\[]*)\&lt;/font\&gt;"
        strText = objRegExp.Replace(strtext,"<font color=""$1"">$2</font>")
        
        objRegExp.pattern="\&lt;font size=&quot;([\w\W]*?)&quot;\&gt;([^\[]*)\&lt;/font\&gt;"
        strText = objRegExp.Replace(strtext,"<font size=""$1"">$2</font>")
        
        objRegExp.pattern="\&lt;font face=&quot;([\w\W]*?)&quot;\&gt;([^\[]*)\&lt;/font\&gt;"
        strText = objRegExp.Replace(strtext,"<font face=""$1"">$2</font>")
        
        objRegExp.pattern="\&lt;ul&gt; &lt;li&gt;([^\[]*)\&lt;/li&gt; &lt;/ul&gt;"
        strText = objRegExp.Replace(strtext,"<ul> <li>$1</ul> </li>")

		strText = Replace(strText,":)","<img src=""../_Grafik/Smilies/smile.gif"">")
		strText = Replace(strText,":(","<img src=""../_Grafik/Smilies/sur.gif"">")
		strText = Replace(strText,";)","<img src=""../_Grafik/Smilies/blink.gif"">")
		strText = Replace(strText,":'(","<img src=""../_Grafik/Smilies/cry.gif"">")
		strText = Replace(strText,":$","<img src=""../_Grafik/Smilies/blush.gif"">")
		
		strText = Replace(strText,":D","<img src=""../_Grafik/Smilies/garv.gif"">")
		strText = Replace(strText,":d","<img src=""../_Grafik/Smilies/garv.gif"">")
		
		strText = Replace(strText,":@","<img src=""../_Grafik/Smilies/angry.gif"">")
		
		strText = Replace(strText,":o","<img src=""../_Grafik/Smilies/happen.gif"">")
		strText = Replace(strText,":O","<img src=""../_Grafik/Smilies/happen.gif"">")

		strText = Replace(strText,"(L)","<img src=""../_Grafik/Smilies/heart.gif"">")		
		strText = Replace(strText,"halay","<img src=""../_Grafik/Smilies/halay.gif"">")
		strText = Replace(strText,"Halay","<img src=""../_Grafik/Smilies/halay.gif"">")
		strText = Replace(strText,"peace","<img src=""../_Grafik/Smilies/peace.gif"">")
		strText = Replace(strText,"Peace","<img src=""../_Grafik/Smilies/peace.gif"">")
	
        
        strText = Replace(strText,"&lt;b&gt;", "<b>")
        strText = Replace(strText,"&lt;/b&gt;", "</b>")
        strText = Replace(strText,"&lt;i&gt;", "<i>")
        strText = Replace(strText,"&lt;/i&gt;", "</i>")
        strText = Replace(strText,"&lt;u&gt;", "<u>")
        strText = Replace(strText,"&lt;/i&gt;", "</u>") 		
        strText = Replace(strText,"&lt;center&gt;","<div align='center'>")
        strText = Replace(strText,"&lt;/center&gt;","</div>")
        strText = Replace(strText,"&lt;right&gt;","<div align=""right"">")
        strText = Replace(strText,"&lt;/right&gt;","</div>")

     ForumHTML = strText
     End function
%>

voigtann1Medlem sedan juni 20019 519 inlägg

1 juni 2007 09:31#2

är väl problem med stora och småbokstäver?

Vet inte om det hjälper men "kortade" ner lite i slutet ta bort:

        
        strText = Replace(strText,"&lt;b&gt;", "<b>")
        strText = Replace(strText,"&lt;/b&gt;", "</b>")
        strText = Replace(strText,"&lt;i&gt;", "<i>")
        strText = Replace(strText,"&lt;/i&gt;", "</i>")
        strText = Replace(strText,"&lt;u&gt;", "<u>")
        strText = Replace(strText,"&lt;/i&gt;", "</u>")

och ersätt med:

        objRegExp.pattern="&lt;(\/?[biu])&gt;"
        strText = objRegExp.Replace(strtext,"<$1>")

SGuncelMedlem sedan jan. 2007217 inlägg

1 juni 2007 09:54#3

Fel, med båda stora och småbokstäver.

Men koden som gav löste det.

Men jag kan fortfarande inte använde <font size=""></font>, <ul> <li></ul> </li> och andra koder flera gånger.

voigtann1Medlem sedan juni 20019 519 inlägg

1 juni 2007 10:52#4

lägg till \ på alla / ?

en sak:
<ul> <li>$1</ul> </li> är ju fel skrivit.. ska vara <ul><li>$1</li></ul>

du skulle mycket väl kunna använda det i "mitt" pattern med..:

        objRegExp.pattern="&lt;(\/?([biu]|ul|li))&gt;"
        strText = objRegExp.Replace(strtext,"<$1>")

osv..