RegExp

jag sitter och testar att göra lite grejer till mitt forum och där tänkte jag att jag skulle lägga in något liknande den forumkod som finns här på webForum.

Hittils har jag lyckats bra det är bara ett problem och det är att den hittar bara den första länken och om man har fler än 1 länk så blir det en länk som är emellan det första och den sista.

Jag använder RegExp så jag undrar om det finns något sätt som man kan Loopa igenom en variabel med hjälp av RegExp så att varje en sida blir en länk istället för att all text emellan första och sista länken blir en länk.

------------------
// David - Probably the best guy in the world

det blev lite fel i föregående inlägg eftersom jag skrev samma kod som finns här på wF.

Har testat lite till och får dte att bli samma fel om jag skriver såhär.

lite text [asd]dakshgdhs[/asd] lite text [asd]jkhasffva[/asd] lite mer text

blir allt det som är fetstil utbytt istället för att det blir 2 olika

lite text [asd]dakshgdhs[/asd] lite text [asd]jkhasffva[/asd] lite mer text

------------------
// David - Probably the best guy in the world

Här är ett ganska fiffigt script för färgkoder jag knåpat ihop. Det kanske kan ge dig några ledtrådar? :)

strText = "Text [green]innehållandes[/green] koder som ska ersättas.
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "\[(blue)\]"
strText = objRegExp.Replace(strText,"<font color=""#0000ff"">")

objRegExp.Pattern = "\[(red)\]"
strText = objRegExp.Replace(strText,"<font color=""#ff0000"">")

objRegExp.Pattern = "\[(white)\]"
strText = objRegExp.Replace(strText,"<font color=""#ffffff"">")

objRegExp.Pattern = "\[(yellow)\]"
strText = objRegExp.Replace(strText,"<font color=""#ffff00"">")

objRegExp.Pattern = "\[(green)\]"
strText = objRegExp.Replace(strText,"<font color=""#008000"">")

objRegExp.Pattern = "(\[/blue\]&#0124;\[/red\]&#0124;\[/green\]&#0124;\[/white\]&#0124;\[/yellow\])"
strText = objRegExp.Replace(strText,"</font>")

Response.write strText

/JANspeed

Vill du ha fetstil så gör typ så här kanske:

strText = "Text [asd]innehållandes[/asd] koder som ska ersättas.
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "\[(asd)\]"
strText = objRegExp.Replace(strText,"<b>")

objRegExp.Pattern = "\[/(asd)\]"
strText = objRegExp.Replace(strText,"</b>")

Det jag skriver är dock bara teoretiskt. Har inte hunnit att testa. :)

/JANspeed

[Redigerat av Janspeed den 04 jul 2001]

Jag föreslår:

Function cStrim(cTxt)
	Dim objRegExp
	Set objRegExp = New RegExp

	objRegExp.Pattern = "\[asd\](.*?)\[\/asd\]"
	objRegExp.IgnoreCase = True
	objRegExp.Global = True

	cStrim = objRegExp.Replace(cTxt,"<B>$1</B>") 
	
	Set objRegExp = Nothing
End Function

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=19" TARGET=_blank>Skulle du äta på restaurang, om det var rökförbud?
</A>Varför blir mina isbitar inte lika klara som i reklamen?

[Redigerat av Brimba den 04 jul 2001]

såhär ser min kod ut och när jag kör denna så får jag endast en länk som länkar till den text som är fet.

<%
myText = "text text [b][ URL=http://www.altavista.com/]altavista[/ URL] här e det massa mer meningslös text [ URL=http://www.webforum.nu/[/b]]webForum[/ URL]."
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\[url=(.*)\](.*)\[/url\]"
myString = objRegExp.Replace(myText, "<a href=""$1"">$2</a>")
Response.Write myString
%>

samma sak händer om jag vil loopa upp alla länkar, den loopar bara upp en länk

For each item in myMatches
  Response.Write "" &item.Value&"<br>"
Next

------------------
// David - Probably the best guy in the world

[Redigerat av DavidB den 04 jul 2001]

Prova detta?

Function cStrim(cTxt)
	Dim objRegExp
	Set objRegExp = New RegExp

	objRegExp.Pattern = "\[url=(.*?)\](.*?)\[\/url\]"
	objRegExp.IgnoreCase = True
	objRegExp.Global = True

	cStrim = objRegExp.Replace(cTxt,"<a href=$1>$2</a>") 
	
	Set objRegExp = Nothing
End Function

Sedan skriver du

response.write cStrim("Hej! [URL =http://www.hej.com]min hemsida[/ URL] är bra...")

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=19" TARGET=_blank>Skulle du äta på restaurang, om det var rökförbud?
</A>Varför blir mina isbitar inte lika klara som i reklamen?

[Redigerat av Brimba den 04 jul 2001]

tackar det fungerade utmärkt, kom även på vad det var som var fel i min kod och det är ju bättre att använda sin egen så man kan säga att man har gjort allt ;)

------------------
// David - Probably the best guy in the world

Så i princip så hade du bara glömt frågetecknet DavidB, eller? :)

/JANspeed

jag gjorde om mitt till en funktion ch då fungerade det utmärkt

------------------
// David - Probably the best guy in the world