---
title: "[lank url=http://www.sida.com]Text[/lank], hur?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41399-lank-url-http-www-sida-com-text-lank-hur"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Mika3l"
published: "2002-04-11T15:19:52.000Z"
updated: "2002-04-13T18:32:05.000Z"
replies: 19
views: 825
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/41399-lank-url-http-www-sida-com-text-lank-hur"
---

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

## #1 — Mika3l, 2002-04-11T15:19Z

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

Permalänk: https://www.webforum.nu/p/41399

## #2 — Sico, 2002-04-11T15:20Z

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

Permalänk: https://www.webforum.nu/p/641510

## #3 — Mika3l, 2002-04-11T15:21Z

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

Permalänk: https://www.webforum.nu/p/641515

## #4 — doggelito, 2002-04-11T15:53Z

sök på regular

Permalänk: https://www.webforum.nu/p/641531

## #5 — voigtann1, 2002-04-11T17:56Z

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% =)

Permalänk: https://www.webforum.nu/p/641597

## #6 — Mika3l, 2002-04-12T10:55Z

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

Permalänk: https://www.webforum.nu/p/641842

## #7 — doggelito, 2002-04-12T11:39Z

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!
```

Permalänk: https://www.webforum.nu/p/641879

## #8 — voigtann1, 2002-04-12T13:20Z

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"

Permalänk: https://www.webforum.nu/p/641938

## #9 — voigtann1, 2002-04-12T13:26Z

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

Permalänk: https://www.webforum.nu/p/641945

## #10 — Jörgen HP, 2002-04-12T13:32Z

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

Permalänk: https://www.webforum.nu/p/641952

## #11 — Mika3l, 2002-04-12T18:10Z

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

Permalänk: https://www.webforum.nu/p/642221

## #12 — Jörgen HP, 2002-04-12T18:22Z

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

Permalänk: https://www.webforum.nu/p/642231

## #13 — Mika3l, 2002-04-12T19:08Z

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

Permalänk: https://www.webforum.nu/p/642257

## #14 — voigtann1, 2002-04-13T07:53Z

\<% 
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 =(

Permalänk: https://www.webforum.nu/p/642345

## #15 — @nders, 2002-04-13T08:47Z

> 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,

Permalänk: https://www.webforum.nu/p/642385

## #16 — Cactuz, 2002-04-13T13:01Z

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å?

Permalänk: https://www.webforum.nu/p/642490

## #17 — LarsG, 2002-04-13T13:08Z

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.

Permalänk: https://www.webforum.nu/p/642498

## #18 — voigtann1, 2002-04-13T13:11Z

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

Permalänk: https://www.webforum.nu/p/642501

## #19 — Mika3l, 2002-04-13T14:44Z

Tack voigtann1 :D

Nu fungerar det äntligen!!!

\*Bjussar på en :bire \*

/Mika3l :)

Permalänk: https://www.webforum.nu/p/642519

## #20 — voigtann1, 2002-04-13T18:32Z

är bara glad om det fungerar =)

Permalänk: https://www.webforum.nu/p/642613

---

Tråden på webben: https://www.webforum.nu/amne/asp/41399-lank-url-http-www-sida-com-text-lank-hur