Konvertera hyperlänk...

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

Den testade jag, men fick det inte att funka...

------------------
Forumledare webForum

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://&#0124;https://&#0124;ftp://&#0124;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>

Det kommer väl inte urarta helt och hållet här va? :) Pink-party here i come, eller vad? :e

------------------
I have comed to take what is rightfully mine. Existence in eternity. And all i need is your creditcard number. | Existence