5 svar · 220 visningar · startad av sudden
Jag har sittit i åtskilliga timmar med scriptet nedan och försökt få det att funka så som det ska!
<%
strText = request.Form("artikel")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "(<" & "%)|(%" & ">)|(<)|(>)"
strText = objRegExp.Replace(strText,"<table width=""20"" height=""7"" border=""0"" bgcolor=""red""><td><font color=""yellow"">$1</font></td></table> <table width=""20"" height=""7"" border=""0"" bgcolor=""red""><td><font color=""yellow"">$2</font></td></table>")
Response.Write strText
%>
Det scriptet ska åstakomma är att när man skriver följande taggar: <% %> eller < > så ska dessa visas i en liten table, så att det blir lättare att läsa!
Men resultatet blir lite knasigt!
Kolla själva på http://www11.brinkster.com/script1987/replace/skicka.asp
Vad är det som är fel i koden??
strText = objRegExp.Replace(strText,"<table width=""20"" height=""7"" border=""0"" bgcolor=""red"">[b]<tr>[/b]<td> & _
<font color=""yellow"">$1</font></td><td><font color=""yellow"">$2</font></td>[b]</tr>[/b]</table>")
Förutom det där så ser det ut som det ska tycker jag... Men ibland är man, som bekant, mer eller mindre blind ;)
Skriptet gör precis som det står, men jag antar att du vill ha texen som ligger mellan taggarna med i tabellen?
<%
strText = request.Form("artikel")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "(<" & "%)[b](.+?)[/b](%" & "> )|(< )[b](.+?)[/b](> )"
strText = objRegExp.Replace(strText,"<table width=""20"" height=""7"" border=""0"" bgcolor=""red""><tr><td> & _
<font color=""yellow"">$1</font></td></tr></table> [b]<table><tr><td>$2</td></tr></table>[/b]<table width=""20"" height=""7"" border=""0"" bgcolor=""red""> & _
<tr><td><font color=""yellow"">$3</font></td></tr></table>")
Response.Write strText
%>
Helt otestat naturligtvis, du kan använda denna sidan för att själv testa dina mönster: http://www.webeye.nu/default2.asp?que=asp/regexptester.asp
Mvh, Vide
Jag måste säga att ni på wf är bäst alltså =)
Tack för hjälpen =)
En liten fråga till!
Om jag nu vill att koden som står mellan taggarna ska vara i tex blå färg...hur gör jag då??
<%
strText = request.Form("artikel")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "(<" & "%)(.+?)(%" & "> )|(< )(.+?)(> )"
strText = objRegExp.Replace(strText,"<table width=""20"" height=""7"" border=""0"" bgcolor=""red""><tr><td> & _
<font color=""yellow"">$1</font></td></tr></table> <table><tr><td>[b]<font color='#0000FF'>$2</font>[/b]</td></tr></table><table width=""20"" height=""7"" border=""0"" bgcolor=""red""> & _
<tr><td><font color=""yellow"">$3</font></td></tr></table>")
Response.Write strText
%>