Konvertera hyperlänk...

11 svar · 499 visningar · startad av Skywalker 1 mars 2001

SkywalkerMedlem sedan jan. 20012 437 inlägg

Trådstart1 mars 2001 20:18#1

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???

PatrikBMedlem sedan mars 20002 836 inlägg

1 mars 2001 22:22#2

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,

SkywalkerMedlem sedan jan. 20012 437 inlägg

2 mars 2001 06:33#3

PatrikB: Men.. Då förlorar vi ju charmen med den kunskap som finns här på wF

PatrikBMedlem sedan mars 20002 836 inlägg

2 mars 2001 07:24#4

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

cya,

PatrikBMedlem sedan mars 20002 836 inlägg

2 mars 2001 07:27#5

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.......

cya,

SkywalkerMedlem sedan jan. 20012 437 inlägg

2 mars 2001 07:57#6

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

emissionMedlem sedan dec. 19996 721 inlägg

2 mars 2001 18:32#7

Function URLify(strInString,strTarget)
	Dim strDelimiter,objRxp
	strDelimiter = Chr(0)
	Set objRxp = New RegExp
	objRxp.Global = True
	objRxp.IgnoreCase = true
	objRxp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[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]

SkywalkerMedlem sedan jan. 20012 437 inlägg

2 mars 2001 19:22#8

...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!

RossifumiMedlem sedan okt. 20001 558 inlägg

2 mars 2001 20:15#9

Jag tycker att du skall slå till ändå

emissionMedlem sedan dec. 19996 721 inlägg

2 mars 2001 21:24#10

Jag är nog för skäggig just nu....

@ndersMedlem sedan juni 200032 967 inlägg

2 mars 2001 21:43#11

då tar jag honom, beard or no!

OveRRidEMedlem sedan feb. 200112 078 inlägg

31 juli 2001 12:18#12

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