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

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

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

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

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

/Mika3l

sök på regular

okey här!:

<%
lank = recset("lank")

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

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

%>
fungera 98% =)

Din kod fungerade inte Voigtan. :(

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>")

Har jag ändrat något fel eller?

/Mika3l

så här brukar jag skriva

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!

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"

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

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

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. :p
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? :l

<%
Function fixa(str)
str = "" & str
str = Replace(str,  vbCrlf, "<br>" & vbCrlf)
str = Replace(str,"[1]","<font size=1>")
str = Replace(str,"[/1]","</font>")
str = Replace(str,"[2]","<font size=2>")
str = Replace(str,"[/2]","</font>")
str = Replace(str,"[3]","<font size=3>")
str = Replace(str,"[/3]","</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]","<u>")
str = Replace(str,"[/u]","</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
%>

/Mika3l

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

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.

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>")

/Mika3l

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

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

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

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?

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:

Response.write ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion

Mvh,

jag har gjort så här

<% 
text = rs("inlagg")

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

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

%> 

<%=text%>

o den skriver inte ut ett skit... inte ens om man bara skriver <%=rs("inlagg")%> vad kan d bero på?

Vad är pres2?

Om rs("inlagg") är av typen text/memo så går det bara att referera det en gång. Inlagg måste också ligga sist av de kolumner som du hämtar från tabellen.

oj förlåt använder den för mitt community... om du kollar så har jag :

pres = rs("inlagg")

den pekar till rs("inlägg")

exempel =)

du använder str så där det står pres2 döp om det till str

och en annan sak.. kolla raden:
text = Server.HTMLEncode(pres2)

där är en pres2 ändra den till text så fungerar allt =)

Tack voigtann1 :D

Nu fungerar det äntligen!!!

*Bjussar på en :bire *

/Mika3l :)

är bara glad om det fungerar =)