9 svar · 246 visningar · startad av McD
Tjena
Är ruskigt dåligt på mycket men funktioner är jag totalt sämst på :P
Skulle behöva en funktion som känner av när man pastat in en länk och gör om den till "info"
Det ska alltid stå info oavsett vad man pastar för länk...
fältet i databasen jag har heter "atex" där detta ska funka på...
Tacksam för hjälp.
<%info(meckainfo(rs("atex")))%> kan väll i slutänden bli något så här va??? :q :q
Som vanligt helt otestad kod!
Function info(strText)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern="(^|[^\w/>])\s(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
strText=objRegExp.Replace(strText,"$1<a href=""http://$2"" target=""_blank"">info</a>$3")
info = strText
End function
<%info(meckainfo(rs("atex")))%>
Peeer Tack!
kan ju säga me facit i hand det där hade jag inte klara själv :P
Men tyvärr så visar den inget som finns i databasen när jag meckar in funktionen... Inget felmeddelande visas.
Tar jag bort <%info(meckainfo(rs("atex")))%> så visas atex igen.
oj.. så här ska du nog anropa den (tror jag bestämt)
<%=info(rs("atex"))%>
mm det blev bättre, dock så blir det inte en länk av det och inte heller info.
Men det är ju possitvit ändå nu syns texten :) urk va kass man e på detta, svårt kan inte ge dig mer information så du kan lösa problemet .....
yepp... bra svar :P
Nej tog bara med det du pasta in nu!
Då visas bara länken (ej klickbara) och alla tabeller bara blir fel, ingen text info visas över hvuud taget :(
Ok, då fyller vi väl på med lite mer kod. Fungerar den här bättre?
Function info(strText)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern="(^|[^""])\s([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:|file://|[url]telnet://[/url]|[url]gopher://[/url])([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
strText=objRegExp.Replace(strText,"$1<a href=""$2$3"">info</a>$4")
objRegExp.Pattern="(^|[^\w/>])\s(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
strText=objRegExp.Replace(strText,"$1<a href=""http://$2"" target=""_blank"">info</a>$3")
info = strText
End function
<%=info(rs("atex"))%>
Så lite så!
(Båda patterns har jag hittat här på wF, sen var det bara att mixtra lite)