11 svar · 469 visningar · startad av Skywalker
Jag får inte till konverteringsfunktionen för hyperlänkar på www.motorforum.nu :(
Så här ser koden ut i dag:
function doCode(str, oTag, cTag, roTag, rcTag)
tx = split(str, cTag)
t = ""
for i = 0 to ubound(tx)
if lcase(oTag) = "[a]" then
p = instr(1, tx(i), "[a]", 1)
if p <> 0 then
tmp = mid(tx(i), p)
url = mid(tmp, 4)
if lcase(left(url, 5)) = "http:" then
tmp1 = Replace(tmp, "[a]"&url, "<A href='" & url & "' Target=_Blank>Länk</a>", 1, -1, 1)
else
tmp1 = Replace(tmp, "[a]"&url, "<A href='http://" & url & "' Target=_Blank>Länk</a>" , 1, -1, 1)
end if
t =t & Replace(tx(i), tmp, tmp1)
else
t = t & tx(i)
end if
else
cnt = instr(1,tx(i), oTag,1)
select case cnt
case 0
t=t&tx(i) & " "
case else
t = t & Replace(tx(i), oTag, roTag,1,1,1)
t = t & " " & rcTag & " "
end select
end if
next
doCode = t
end function
Jag vill ha exakt samma funktion som det är här på wF, att man ska kunna skriva: www.wefgwsfg.se eller http://minsida.nu.ja eller maila@minepost.nu :)
Hur gör man om denna kod så att det funkar???
------------------
Forumledare webForum
Hello,
denna kod har diskuterats ett antal ggr på ASPDev som den kommer ifrån och oxå på SnitzForum.
Mitt tips är att du kollar in deras respektive forum för tips, kolla om det finns förklarat för att byta ut den.
cya,
------------------
Private Function OutPut(ByRef sString)
OutPut = "Who gives ..." & sString
End Function
PatrikB: Men.. Då förlorar vi ju charmen med den kunskap som finns här på wF ;)
------------------
Forumledare webForum
Nej då, det gör vi inte ...... fast det finns säkert ngn här som kan fixa till den där funktionen med regExp (läs emission ;) ) här på forumet .... men för en snabblösning av problemet så är det ju ganska naturligt att dra sig till de som utvecklat forumet, eller? ... de om några borde ju ha en MYCKET snabb lösning av detta lilla delikata problem :P
cya,
------------------
Private Function OutPut(ByRef sString)
OutPut = "Who gives ..." & sString
End Function
oooopzzz, den snabbaste lösningen finns här: http://script.webforum.nu/wf/Forum1/HTML/000031.html
Den ersätter ju den ovanstående alldeles ypperligt....... :o
cya,
------------------
Private Function OutPut(ByRef sString)
OutPut = "Who gives ..." & sString
End Function
Function URLify(strInString,strTarget)
Dim strDelimiter,objRxp
strDelimiter = Chr(0)
Set objRxp = New RegExp
objRxp.Global = True
objRxp.IgnoreCase = true
objRxp.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strInString = objRxp.Replace(strInString, "<a href=""mailto" & strDelimiter & ":$1"">$1</a>")
objRxp.Pattern = "(http://|https://|ftp://|mailto:)(\S)(\S+)"
strInString = objRxp.Replace(strInString, "<a target=""" & strTarget & """ href=""$1$2" & strDelimiter & "$3"">$2" & strDelimiter & "$3</a>")
objRxp.Pattern = "(www\.(\S)(\S+))"
strInString = objRxp.Replace(strInString, "<a target=""" & strTarget & """ href=""http://$1"">$1</a>")
URLify = Replace(strInString, strDelimiter, "")
End Function
Exempel:
response.write URLify("main mailadress är knutte@knutteplutt.nyss och jag har en hemsida på <A HREF="http://www.knyttet.nyss","_top")" TARGET=_blank>www.knyttet.nyss","_top")</A>
Detta är en halvgammal version, i VBScript. Jag har gjort en bättre (mer korrekt matchning) i VB, som ett COM-objekt . Jag gör om den till VBscript framöver.
[Redigerat av emission den 02 mar 2001]
...Och vips så hade den gamle ASPräven emission förgyllt min gråa vardag ännu en gång med sin briljanta kunskap och godhet!
Efter ca 2 månaders ångest över att fixa denna funktion så har mannen i fråga vänt mitt sagolikt trista liv till ett liv fyllt av glädje och sång!
Resultatet av emissions splendido arbete kan skådas i min hyllningstråd i det aktuella forumet: www.motorforum.nu :)
Vore jag tjej så skulle jag utan tvekan be min far att gifta bort mig med ASPgurun från Norrköping omgående! :e
------------------
Forumledare webForum
Jag tycker att du skall slå till ändå :e
------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho
Jag är nog för skäggig just nu.... :)
då tar jag honom, beard or no! :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
