--- title: "göra om http:// till länkar men minska länk namnet" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/106871-göra-om-http-till-länkar-men-minska-länk-namnet" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Bosse168" published: "2004-07-07T14:50:55.000Z" updated: "2004-07-14T09:44:50.000Z" replies: 14 views: 626 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/106871-göra-om-http-till-länkar-men-minska-länk-namnet" --- # göra om http:// till länkar men minska länk namnet ## #1 — Bosse168, 2004-07-07T14:50Z Använder länk Boogie's göra om till länkar men undrar om det är någon som vet hur jag ska gå tillväga för att minska ner själva namnet på länken (om det har ett låååååångt namn). Har sett här på Webforum att det blir punkter i mitten av länk namnet och det är ju att föredra eftersom man görna vill se vad det är för sorts sidan man kommer till. ``` function FormatPost(ByVal strText) dim objRegExp set objRegExp = new RegExp objRegExp.Global = true objRegExp.IgnoreCase = true 'No case sensitive objRegExp.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url])(\S)(\S+)" strText = objRegExp.Replace(strText, "$2$3") objRegExp.Pattern = "(mailto:)(\S)(\S+)" strText = objRegExp.Replace(strText, "$2$3") objRegExp.Pattern = "(img://(\S)(\S+))" strText = objRegExp.Replace(strText, "") objRegExp.Pattern = "\[url=(.*?)\](.*?)\[/url]" strText = objRegExp.Replace(strText, "$2") objRegExp.Pattern = "\[mail=(.*?)\](.*?)\[/mail]" strText = objRegExp.Replace(strText, "$2") set objRegExp = nothing FormatPost = strText end function ``` Permalänk: https://www.webforum.nu/p/106871 ## #2 — Bosse168, 2004-07-08T14:30Z ingen? Permalänk: https://www.webforum.nu/p/1383601 ## #3 — toha, 2004-07-08T15:21Z Om du kör RegExp.Execute() så får du ut ett Matches-objekt som innehåller flera Match-object: Set Matches = RegExp.Execute() Matches(0).Value = innehåller själva träffen. På så sätt kan du själv sköta ersättningen i strängen och göra om texten inom a-taggen till precis så du vill ha det. (Hinner inte att skriva mer, måste med tåget... :p ) Permalänk: https://www.webforum.nu/p/1383613 ## #4 — Bosse168, 2004-07-09T15:19Z Förstår inte riktigt hur man ska gå till väga... P.s. hoppas du hann med tåget :) D.s. Permalänk: https://www.webforum.nu/p/1384162 ## #5 — Bosse168, 2004-07-11T19:56Z Ingen? :( Permalänk: https://www.webforum.nu/p/1384753 ## #6 — Erik Juhlin, 2004-07-12T07:15Z Ska se om jag kan hjälpa dig. Ska bara se hur wF gör om det. Permalänk: https://www.webforum.nu/p/1384919 ## #7 — Erik Juhlin, 2004-07-12T07:27Z Så här kan du göra: ``` function FormatPost(ByVal strText) dim objRegExp set objRegExp = new RegExp objRegExp.Global = true objRegExp.IgnoreCase = true 'No case sensitive objRegExp.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url])(\S)(\S+)" strText = objRegExp.Replace(strText, "$2$3") objRegExp.Pattern = "(mailto:)(\S)(\S+)" strText = objRegExp.Replace(strText, "$2$3") objRegExp.Pattern = "(img://(\S)(\S+))" strText = objRegExp.Replace(strText, "") objRegExp.Pattern = "\(.*?)\" strText = objRegExp.Replace(strText, "$2") objRegExp.Pattern = "\[mail=(.*?)\](.*?)\[/mail]" strText = objRegExp.Replace(strText, "$2") [b]objRegExp.Pattern = "(]+>)([\s\S]{35}?)([\s\S]+?)([\s\S]{15}?)()" strText = objRegExp.Replace(strText, "$1$2...$4$5")[/b] set objRegExp = nothing FormatPost = strText end function ``` 35 är antalet tecken innan ... och 15 antalet efter. Går så klart att ändra efter egna behov. Permalänk: https://www.webforum.nu/p/1384921 ## #8 — Erik Juhlin, 2004-07-12T07:29Z wF la visst in mellanslag mellan \> och ). Ta bort dem. Permalänk: https://www.webforum.nu/p/1384922 ## #9 — Bosse168, 2004-07-12T22:22Z Får detta fel meddelande: Microsoft VBScript runtime error '800a1399' Syntax error in regular expression /check.asp, line 49 Rad 49 ``` strText = objRegExp.Replace(strText, "$2") ``` Permalänk: https://www.webforum.nu/p/1385324 ## #10 — Erik Juhlin, 2004-07-13T06:28Z Den koden är den som var med från början. Den lägger jag mig inte i. :p Men när jag kollar på koden så verkar patternet se mycket underligt och jag förstår inte vad det är till för. Permalänk: https://www.webforum.nu/p/1385372 ## #11 — Engine^, 2004-07-13T13:37Z Det mönstret är knäppt. Det tar all text inom paranteser och gör om det till en länk? Det verkar vara meningslöst. Ta helt enkelt bort dom två raderna eller åtminstonde kommentera ut dom. Permalänk: https://www.webforum.nu/p/1385573 ## #12 — Bosse168, 2004-07-13T17:47Z Hittade felet WF tog bort en bit av koden. objRegExp.Pattern = "\\\[ url =(.\*?)\\\](.\*?)\\\[/ url \]" Fast hakarna ihop med url. (se bifogad fil). Bilagor: - [felet.txt](https://www.webforum.nu/a/3929.txt) Permalänk: https://www.webforum.nu/p/1385660 ## #13 — Bosse168, 2004-07-13T17:55Z ``` objRegExp.Pattern = "(]+> )([\s\S]{35}?)([\s\S]+?)([\s\S]{15}?)( )" strText = objRegExp.Replace(strText, "$1$2...$4$5") ``` Hjälpte inte visar fortfarande hela länken Permalänk: https://www.webforum.nu/p/1385661 ## #14 — Erik Juhlin, 2004-07-14T07:23Z Och du har tagit bort mellanslagen? Och länknamnet är längre än 40 tecken..? Permalänk: https://www.webforum.nu/p/1385836 ## #15 — Bosse168, 2004-07-14T09:44Z yepp och länken är längre än 40 tecken. Permalänk: https://www.webforum.nu/p/1385913 --- Tråden på webben: https://www.webforum.nu/amne/asp/106871-göra-om-http-till-länkar-men-minska-länk-namnet