---
title: "Länkar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/115358-länkar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Frezze"
published: "2004-11-07T15:25:11.000Z"
updated: "2004-11-07T15:39:53.000Z"
replies: 3
views: 308
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/115358-länkar"
---

# Länkar

## #1 — Frezze, 2004-11-07T15:25Z

Hejsan.

Det finns då länkar som blir riktigt långa ibland, men jag vill att det ska bli förkortad så det ser ut så här:

<http://www.sida.se/bla/...dkjsd.asp>

eller liknande, så man slipper den långa länken. Någon som har en bra lösning?

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

## #2 — Impact, 2004-11-07T15:28Z

Har för mig att jag sett en länk till ett sådant script i någons signatur här på wF.

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

## #3 — Pedda, 2004-11-07T15:30Z

Har ett i php, men det kanske går att översätta?

Jag kan ingen asp så fråga inte mig.  ;) :)

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

## #4 — Frezze, 2004-11-07T15:39Z

Hehe, ok, tack Impact. Hittade något i alla fall, det ser ut så här:

Function ShortenLinkName(sHTML, lFirstLength, lLastLength)
	Dim objRegExp
	Set objRegExp = New RegExp
	objRegExp.Global = True
	objRegExp.IgnoreCase = True
	
	objRegExp.Pattern = "(\<a \[^\>\]+\> )(\[\\s\\S\]{" & lFirstLength & "}?)(\[\\s\\S\]+?)(\[\\s\\S\]{" & lLastLength & "}?)(\</a\> )" '"(\<a \[^\>\]+\> )(\[^\</a\>\]{" & lFirstLength & "})(\[^\</a\>\]+)(\[^\</a\>\]{" & lLastLength & "})(\</a\> )"
	
	ShortenLinkName = objRegExp.Replace(sHTML, "$1$2...$4$5")
	Set objRegExp = Nothing
End Function

Men det är en ganska jobbig kod att ändra så den passar min, och den ser ut så här (gör om en vanlig länk till en hyperlänk):

RegExp.Pattern = "(<http://>(\\w\|\\.\|/\|-\|\\?\|=\|&\|;\|\~){1,}\\w\*)"
text = RegExp.Replace(text," \<a href=""$1"" target=""\_blank""\>$1\</a\>")

Nu ska jag bara få in så den kortar ner det också, men RegExp, tycks kunna programmeras olika =P

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

---

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