webForumDet fria alternativet

RegExp, [url=

ASPur ASP

3 svar · 222 visningar · startad av roady

roadyMedlem sedan jan. 2002473 inlägg
#1

Jag har sök en massa o testat utan större framgång, RexExp är en knasig sak.

kanske är det att de här blandar ihop sig.

	objRegExp.Pattern = "\[url=(""?)(.*?)\1\](.*?)\[\/url\]"
	strText = objRegExp.Replace(strText, "<a href=""$1"" target=""_blank"" class=""link-news"">$2</a>")
	objRegExp.Pattern = "([url]http://[/url]|www)([\S]*)"
	strText = objRegExp.Replace(strText,"<a href=""http://$1$2"" target=""_blank"" class=""link-news"">$1$2</a>")
	objRegExp.Pattern = "([url]ftp://[/url])([\S]*)"
	strText = objRegExp.Replace(strText,"<a href=""$1$2"" target=""_blank"" class=""link-news"">$1$2</a>")
	objRegExp.Pattern = "([\S]*@[\S]*[.se|.com|.nu|.net|.org])"
	strText = objRegExp.Replace(strText,"<a href=""mailto:$1"" target=""_blank"" class=""link-news"">$1</a>")

Skriver jag exempel: [u r l =www.test.se]Vi testar en sida

då får jag:
<a href="" target="_blank" class="link-news"><a href="http://www.test.se</a>" target="_blank" class="link-news">w w w.test.se</a></a>

har även lite samma problem med färgval

objRegExp.Pattern = "\[color=(""?)(.*?)\1\](.*?)\[\/color\]"
	strText = objRegExp.Replace(strText, "<font color=""$1"">$2</font>")
roadyMedlem sedan jan. 2002473 inlägg
#2

hmm, gjorde som så att jag slängde bort allt och satte det här istället:

	objRegExp.Pattern = "\[u r l=(.*?)\](.*?)\[/url]"
	strText = objRegExp.Replace(strText, "<a href=""$1"" target=""_blank"">$2</a>")

Så skriver man ex. [ u r l=www.minsida.se]Titta på min sida
utan mellanslag förståss så skall det funka!

roadyMedlem sedan jan. 2002473 inlägg
#3

Men som vanligt när man leker så vill man leka mer :e

exempelvis ifall jag vill göra en box där jag bestämmer; bredd, bakgrundsfärg, kantfärg. Hur gör jag då???
ex. [box=350 color=white bordercolor=red]min text[/box]

Använder jag det som jag gjorde innan så funkar det att bestämma bredden.

	objRegExp.Pattern = "\[box=(.*?)\](.*?)\[/box]"
	strText = objRegExp.Replace(strText, "<table width=""$1"" bgcolor=""white"" bordercolor=""black"" border=""1"" cellpadding=""5"" cellspacing=""0""><tr><td>$2</td></tr></table>")

har testat en massa utan större framgång :(

roadyMedlem sedan jan. 2002473 inlägg
#4

Finns det ingen hjälte i Regular Expressions??? :q
Jag har fortfarande skitknasiga problem med det här, vet inte hur jag får tag på de olika värderna i: [box=350 color=white bordercolor=red]min text[/box]

129 ms totalt · 3 externa anrop · v20260731065814-full.29ac60f6
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)