--- title: "Göra om www.länk.com till " type: "forum-thread" url: "https://www.webforum.nu/amne/asp/145634-göra-om-www-länk-com-till-a-href-www-länk-com-a" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "oskars" published: "2006-04-17T08:01:25.000Z" updated: "2006-04-25T18:10:31.000Z" replies: 13 views: 1135 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/145634-göra-om-www-länk-com-till-a-href-www-länk-com-a" --- # Göra om www.länk.com till ## #1 — oskars, 2006-04-17T08:01Z Hej, antar att det här är en baggis. Jag har sökt och hittat lite script som gör det här, men jag har inte lyckats kopplat ihop det med min lilla databas. Så här ser det ut: ``` Function ChangeLinks(text) Set objRE = New regexp objRE.Global = True objRE.IgnoreCase = True objRE.Pattern = "(www.[^ ]*[a-z])|(http://[^ ]*[a-z])" text = objRE.Replace(text,"$1$2") ChangeLinks = text Set objRE = Nothing End Function ``` I min guestbook.asp ser det bland annat ut så här: ``` Response.Write("
Gästboksinlägg:") Response.Write ("
") Response.Write (rsGuestbook("Name")) Response.Write ("
") Response.Write (rsGuestbook("Comments")) Response.Write ("
") ``` Men när jag lägger URL-koden i samma dokument så blir ändå inte URLerna från databasen till href-länkar. Vart har jag kopplat fel? Tacksam för svar =) Oskar Permalänk: https://www.webforum.nu/p/145634 ## #2 — @nders, 2006-04-17T08:18Z Du kallar ju aldrig på funktionen? Permalänk: https://www.webforum.nu/p/1800879 ## #3 — oskars, 2006-04-17T08:20Z Okej, hur gör jag för att baka in det korrekt? Permalänk: https://www.webforum.nu/p/1800881 ## #4 — @nders, 2006-04-17T08:21Z ``` Response.Write ChangeLinks(rsGuestbook("Comments")) ``` Permalänk: https://www.webforum.nu/p/1800882 ## #5 — oskars, 2006-04-17T08:25Z :OO Wow, Tack! Det funkade! Permalänk: https://www.webforum.nu/p/1800885 ## #6 — oskars, 2006-04-24T21:38Z Tjena, väcker min halvgamla tråd härifrån. Jag använder samma funktion som ovan. + en annan som gör om ENTER i textfältet till \. Men jag får fram ett knasigt resultat. Så här ser koden ut som skriver ut posterna från databasen: ``` Response.Write("
") Response.Write (rsLinks("Name")) Response.Write ("
") Response.Write ("
") Response.Write ("
") Response.Write ChangeLinks(Replace(rsLinks("Comments"),VbCrLf,"
")) Response.Write ("
") ``` Så här blir resultatet: Där ser ni ju hur att om man skriver fler länkar en 1st så blir båda länkarna jättekonstigt länkade. Kolla länkarna där så ser ni. ChangeLinks-funktionen ser ni lite högre upp i tråden. Hur löser jag detta? Jag är fast :q :bire Permalänk: https://www.webforum.nu/p/1803640 ## #7 — @nders, 2006-04-25T03:07Z Jag kommer inte fram till din sida, så jag kan inte se hur det ser ut. Men du kan ju alltid prova att byta plats på replacen och kallet till funktionen. Permalänk: https://www.webforum.nu/p/1803656 ## #8 — Jesper T, 2006-04-25T06:20Z Som sn@bel skrev: Response.Write Replace(ChangeLinks(rsLinks("Comments")),VbCrLf,"\") Permalänk: https://www.webforum.nu/p/1803669 ## #9 — Calippo, 2006-04-25T11:42Z Testade skriptet. Det fungerar om det står men inte med utan http:// () Permalänk: https://www.webforum.nu/p/1803766 ## #10 — voigtann1, 2006-04-25T12:29Z ``` objRE.Pattern = "(www.[^ ]*[a-z])|([url]http://)?([/url][^ ]*[a-z])" text = objRE.Replace(text,"$1$2$3") ``` Permalänk: https://www.webforum.nu/p/1803774 ## #11 — Calippo, 2006-04-25T13:24Z ??? Nu blev ju ALLA ord till länkar... Permalänk: https://www.webforum.nu/p/1803785 ## #12 — voigtann1, 2006-04-25T14:02Z jepp... märkte det... det finns ett färdigt script på wF som gör exakt det du önskar att få ut som resultat... prova bara sök på RegExp och länk så lovar jag att du hittar ett regulärt uttryck som är perfekt för det du önskar. kollade lite nämare på ditt uttryck... och enligt mig så borde den skriva ut även vid www. Permalänk: https://www.webforum.nu/p/1803794 ## #13 — oskars, 2006-04-25T17:59Z Se där ja :) Måste varit min funktion som var mindre bra. Hittade den här när jag säkte på regExp! ``` Function convertLink(ByVal strText) Dim mDelimit Dim re mDelimit = Chr(0) Set re = New RegExp re.Global = True re.IgnoreCase = true re.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)" strText = re.Replace(strText, "$1") 'Matchar på mailadresser (mönstret är lite kryptiskt, men det handlar om att matcha på något@något.toppdomän, där "något" är giltiga adresstecken. 'Stoppar dessutom in chr(0) (mDelimit) i ersättningen, så att de utbytta adresserna inte hittas av nedanstående matchning re.Pattern = "(http://|https://|ftp://|mailto:)(\S)(\S+)" strText = re.Replace(strText, "$2" & mDelimit & "$3") 'Matchar på vad som helst som föregås av en protokoll-spec. 'Stoppar in chr(0) efter första tecknet i själva adressen, så redan utbytta webbadresser inte hittas av nedanstående matchning re.Pattern = "(www\.(\S)(\S+))" strText = re.Replace(strText, "$1") 'Matchar alla webbadresser som börjar på "www". strText = Replace(strText, mDelimit, "") 'Rensar bort alla chr(0). convertLink=strText End Function ``` Tack tack!!! och åter tack! nu ska servern vara igång: testa nu... jag har en annan fråga också.. gå in på och klicka på "Uppdatera kategorierna". Välj där en kategori... och markera allting i textrutan.. varför läggs det till masssssa mellanslag efter textern där i? :l Kan man styra sånt? Permalänk: https://www.webforum.nu/p/1803847 ## #14 — @nders, 2006-04-25T18:10Z > varför läggs det till masssssa mellanslag efter textern där i? Det beror säkerligen på de tabbar du lagt till i källkoden för att indentera \. Lägg den direkt efter innehållet. Permalänk: https://www.webforum.nu/p/1803851 --- Tråden på webben: https://www.webforum.nu/amne/asp/145634-göra-om-www-länk-com-till-a-href-www-länk-com-a