---
title: "Länka länkar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/100442-länka-länkar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Kristianstad"
published: "2004-03-28T10:11:40.000Z"
updated: "2004-03-29T23:12:06.000Z"
replies: 1
views: 208
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/100442-länka-länkar"
---

# Länka länkar

## #1 — Kristianstad, 2004-03-28T10:11Z

Hej!

Jag har sökt och hittat mängder med trådar som behandlar denna sak, men det är aldrig någon som lyckas ge ett konkret svar på det jag vill.

Jag vill ha en funktion som fixar länkar. Jag har redan haft en sådan funktion, men den strular en hel del.

- Den ska länka de som börjar på <http://> och www.
- Om länken är över 30 tecken lång ska den kortas ner med punkter, precis som den gör på webforum.

Har någon en lämplig kod?

Tack på förhand!

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

## #2 — Matt, 2004-03-29T23:12Z

Kör denna kod snutt när jag tar ut rubriker till nyheter.

```
Response.Write " html "& Left(RecSet("str"),30) &" html"
```

 
Där 30 såklart är antalet tecken som skall visas i rubriken. Vet inte ifall detta är vad du tänkt dig. Men du kan ju testa.

Edit: Läste precis att du ville att det skulle bli lite punkter om länken var över 30 tecken. Det vet jag tyvärr inte hur man får till. 

Har Pillat lite med regexp nu, och får www. att funka (och även <http://>). Tyvärr får jag dom inte att funka samtidigt :) Men tror nog det finns en del experter här som gärna reder ut det. I alla fall, denna kod snutt funkade för mig: 

```
	Function ReplaceTags(strPattern, strReplace, strSource)
	  Dim objRX
	  Set objRX = New RegExp
	  objRX.IgnoreCase = True
	  objRX.Global = True
	  objRX.Pattern = strPattern
	  ReplaceTags = objRX.Replace(strSource, strReplace)
	End Function
	strText = Texten som skall formateras
	strText = ReplaceTags("([url]http://[/url])([^ ]*)", "<a href=""$1$2"" target=""_blank"">$1$2</a>", strText)
	strText = ReplaceTags("([url]www.*?[/url])([^ ]*)", "<a href=""http://$1$2"" target=""_blank"">$1$2</a>", strText)
	Text = strText

	Response.Write " "& Text &" "
```

 

Ber alla RegExp experter om ursäkt för mitt underliga försök till att få detta att funka  :bire

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/100442-länka-länkar