jag har sökt runt på forumet och hittat olika trådar som på olika sätt visar hur man kortar ner länkar som är för långa men jag förstår verkligen inte hur jag ska klämma in det i koden för att få det att fungera.
Jag antar att jag ska köra en If-sats och se om länken är X-antal tecken långt och om det är över angivet tal så ska den kortas ner men jag har problem med att klura ut hur jag bara ska kolla längden på länken och inte hela texten.
Så frågan är då hur jag med koden nedan ska kunna korta ner länkarna i texten till tex: "http://www.akjsfg...jhgs.com" som det är här på WF eller bara "http://www.askfhlkasjdhf..."
Ja ni fattar säkert. jag ber om ursäkt för att jag postar en tråd som säkerligen besvarats många gånger men jag förstår verkligen inte hur jag ska göra :/
<%
text = Server.HTMLEncode(RecSet("TEXTEN"))
text = Replace((text),vbCrLf,"<br>")
set objRegExp = new RegExp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url])([a-z/A-Z/0-9/./_/-/?/=/&]+)"
text = objRegExp.Replace(text, "<a href=""$1$2"" target=""_blank"">$2</a>")
Set RegExp = Nothing
Response.Write text
%>
<%
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
%>
Det skumma med den är att en del blir bortplockad eftersom den finns en " ' " med i mitten av koden. Antar att det är där skon klämmer men hur ska jag åtgärda?
Denna kod ligger i mitten ungefär:
<%
text = Server.HTMLEncode(RecSet("gbMed"))
text = Replace((text),vbCrLf,"<br>")
set objRegExp = new RegExp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url])([a-z/A-Z/0-9/./_/-/?/=/&]+)"
text = objRegExp.Replace(text, "<a href=""$1$2"" target=""_blank"">$2</a>")
Set RegExp = Nothing
Response.Write ShortenLinkName(text, 7,5)
%>
Har placeringen av koden något med felet att göra?
jag får inget felmeddelande eller något utan det enda som händer är att inget händer. Inte allt för bra :/
Förstår inte vad det är som är fel och vad ska jag göra åt koden som blir bortplockad som kommentar?
Ja precis jag läste också hans inlägg, men jag menar du att de siffrorna inte har någon betydelse då? Kan det vara på grund av de siffrorna som funktionen "klipper" länken?
Jo, de gör all skillnad, utan dem fungerar det inte.
Grundtipset är att skriva exakt det antal argument som funktionen kräver, i detta fall tre.
Function ShortenLinkName(sHTML (#1), lFirstLength (#2), lLastLength (#3))
Nu funkar det fint efter att jag ändrade lite på mellanslagen. Men nu undrar jag ju av ren nyfikenhet hur jag ska bära mig åt för att bara korta ner länkar som är X-antal tecken långa.
Kom på att jag inte bara kan köra en If-sats på det hela eftersom länken ligger i mitten av massa text så det är ju inte så konstigt att alla länkar kapas även om det finns vissa som inte alls är långa.
Hmm, hur ska jag göra för att ändra sättet länkarna kortas ner på? om jag tex istället skulle köra en sånhär variant på länkarna: "http ://www.enväldigtlånglä..." ?
