9 svar · 285 visningar · startad av DavidB
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\]|\[/red\]|\[/green\]|\[/white\]|\[/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
jag gjorde om mitt till en funktion ch då fungerade det utmärkt
------------------
// David - Probably the best guy in the world