[lank url=http://www.sida.com]Text[/lank], hur?

[Mika3l]

Hur skapar man en sån funktion som finns här på wF, [lank url=http://www.sida.com]Länktext[/lank]?

Eftersom jag inte är så bra på replace och "sånt" så får jag inte riktigt ihop det...


Tacksam för svar!



/Mika3l

[Sico]

använd sökfunktinen... det har tagits upp massa gånger

[Mika3l]

Jag provade med sökfunktionen men jag hittade inget(fick många träffar)...

Finns det något specielt man kan söka på?



/Mika3l

[doggelito]

sök på regular

[voigtann1]

okey här!:


<%
lank = recset("lank")

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
lank = Server.HTMLEncode(lank)

objRegExp.Pattern = "\[url=(""?)(.*?)\1\](.*?)\[\/url\]"
lank = objRegExp.Replace(lank,"<a href=""http://$2"" target=""_blank"">$3</a>")


%>
fungera 98% =)

[Mika3l]

Din kod fungerade inte Voigtan.


[kod]
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
str = Server.HtmlEncode(str)
objRegExp.Pattern = "\[lank url=(""?)(.*?)\1\](.*?)\[\/url\]"
str = objRegExp.Replace(str,"<a href=""http://$2"" target=""_blank"">$3</a>")
[/kod]


Har jag ändrat något fel eller?



/Mika3l

[doggelito]

så här brukar jag skriva[kod]objRegExp.Pattern = "\[url\](.*?)\[\/url\]"
str= objRegExp.Replace(str,"<a href=""http://$1"" target=""_blank"">$1</a>")
och då gäller alltså: [uurl]www.sidan.se[/uurl]
fast med ett u![/kod]

[voigtann1]

min fungerar hur bra som helst för mej.. jag vet inte.. det kan ju kanske vara för att du försöker göra det med mellanslag
eller att du kanske inte har statt något för "str"

[voigtann1]

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
str = Server.HtmlEncode(str)
objRegExp.Pattern = "\[(lank url=)(""?)(.*?)\1\](.*?)\[\/url\]"
str = objRegExp.Replace(str,"<a href=""http://$2"" target=""_blank"">$3</a>")



så borde det kanske fungera... annars rekomenderar jag:

http://webeye.nu/default2.asp?que=asp/default.asp&exec=asp/artiklar/asp_11.asp

där finns det skit mycket om detta

[Jörgen HP]

1) vad får du för felmeddelande?
2) vilken version har du på din VB-scriptmotor?

[Mika3l]

Förut syntes inte texten men nu fick jag fram det för jag hade glömt att ändra str till fixa på ett ställe.
MEN...
[lank url=http://www.sida.com]Länktext[/lank] skrivs ut direkt istället för att bli till en länk.

Kan det ha med VB-scriptmotorn att göra?
Jag vet dock inte vad jag har för version, gör det att få reda på någon stans?



[kod]
<%
Function fixa(str)
str = "" & str
str = Replace(str, vbCrlf, "<br>" & vbCrlf)
str = Replace(str,"","<font size=1>")
str = Replace(str,"","</font>")
str = Replace(str,"[2]","<font size=2>")
str = Replace(str,"[/2]","</font>")
str = Replace(str,"","<font size=3>")
str = Replace(str,"","</font>")
str = Replace(str,"[4]","<font size=4>")
str = Replace(str,"[/4]","</font>")
str = Replace(str,"[5]","<font size=5>")
str = Replace(str,"[/5]","</font>")
str = Replace(str,"[6]","<font size=6>")
str = Replace(str,"[/6]","</font>")
str = Replace(str,"[fet]","<b>")
str = Replace(str,"[/fet]","</b>")
str = Replace(str,"","<u>")
str = Replace(str,"","</u>")
str = Replace(str,"[k]","<i>")
str = Replace(str,"[/k]","</i>")
str = Replace(str,"[verdana]","<font face=Verdana>")
str = Replace(str,"[/verdana]","</font>")
str = Replace(str,"[arial]","<font face=Arial>")
str = Replace(str,"[/arial]","</font>")
str = Replace(str,"[seriff]","<font face=MS Sans Seriff>")
str = Replace(str,"[/seriff]","</font>")
str = Replace(str,"[helvetica]","<font face=Helvetica>")
str = Replace(str,"[/helvetica]","</font>")
str = Replace(str,"[bild]","<img src=")
str = Replace(str,"[/bild]",">")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
str = Server.HtmlEncode(str)
objRegExp.Pattern = "\[(lank url=)(""?)(.*?)\1\](.*?)\[\/url\]"
str = objRegExp.Replace(str,"<a href=""http://$2"" target=""_blank"">$3</a>")
End Function
%>
[/kod]




/Mika3l

[Jörgen HP]

Server.HtmlEncode tar död på alla länkar ganska effektivt

[Mika3l]

Jo, men det jag menar är att istället för att [lank url=http://www.sida.com]Länktext[/lank] görs om till en länk(<a href=""></a>) så skrivs det ut direkt.



[kod]
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\[(lank url=)(""?)(.*?)\1\](.*?)\[\/lank\]"
fixa = objRegExp.Replace(str,"<a href=""http://$2"" target=""_blank"">$3</a>")
[/kod]




/Mika3l

[voigtann1]

<%
pres2 = "[lank url=testar.com]testar om det fungerar[/url]"

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
pres2 = Server.HTMLEncode(pres2)

objRegExp.Pattern = "\[lank url=(""?)(.*?)\1\](.*?)\[\/url\]"
pres2 = objRegExp.Replace(pres2,"<a href=http://$2 target=""_blank"">$3</a>")


%>

<%=pres2%>


Denna fungera med
[lank url=testar.com]testar om det fungerar[/url]

har inte fått den fungera med eller utan http://
nu får man inte har http:// i sin URL =(

[@nders]

[citat]Kan det ha med VB-scriptmotorn att göra?
Jag vet dock inte vad jag har för version, gör det att få reda på någon stans?[/citat]

Man kan ju alltid ladda hem och installera den senaste, den borde finnas på http://msdn.microsoft.com/scripting .

För att få reda på vad man har för version kan man göra så här:

[kod]Response.write ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion[/kod]
Mvh,