problem med en function.

7 svar · 259 visningar · startad av mikul 3 jan. 2002

mikulMedlem sedan aug. 20013 824 inlägg

Trådstart3 jan. 2002 20:40#1

det var en kille som frågade hur man gör så som det är på wf, asså man kan skriva ex: [k]www.sida.com[/k]
blir det <a href="sidan.com">www.sidan.com</a>
hoppas ni fattar...
då mitt hövve är rätt segt i dag kom jag fram till denna lösning:

<%

function link(strL,str)
	middas1 = instr(strL,"[link]")
	middas2 = middas1 + 5
	strL = Mid(strL,middas2)
	middas1 = instr(strL, "[/link]")
	middas2 = middas1 - 1
	strL = Left(strL, middas2)
	link = """>"& strL & "</a>"
	
	
	str = Replace(str, "[link]","<a href=""")
	str = Replace(str, "[/link]", link)
	link = trim(str)
end function

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("texter.mdb")
sql = "update texter Set titel = '"& request.form("titel") &"', [text] = '"&request.form("text")&"' "
db.execute sql
 
Response.write "<h3>Utfört!</h3>"
Response.write "<a href=""javascript:history.go(-1)"">Tillbaka</a><p>"

SQL = "SELECT * FROM texter" 
Set RS = db.Execute(SQL) 

Response.write "<font face=""arial"" size=""1"">"
Response.write RS("titel") &"<p>"

response.write link(RS("text")) & "<p>"
Response.write "</font>"

rs.close : set rs = Nothing
db.close : Set db = Nothing
%>

kunde inte komma på nåt annat sätt...
fast det funkar inte...
varför??
han får felmedelandet:

Körningsfel i Microsoft VBScript fel '800a01c2'

Fel antal argument eller felaktig egenskapstilldelning.: 'link'
/gammalt/andratext.asp, rad 34

nån som har en susning???

/ Mikul

mikulMedlem sedan aug. 20013 824 inlägg

3 jan. 2002 20:48#2

nån som ser nåt fel i funktionen??

/ Mikul

mikulMedlem sedan aug. 20013 824 inlägg

3 jan. 2002 22:04#3

larsg, vide, Pace, NÅN som kan???
jag blir snart galen...(så ni vet)...

/ Mikul

BrimbaMedlem sedan dec. 19995 874 inlägg

3 jan. 2002 22:45#4

Skulle inte detta fungera?

Function urlConvert(cTxt)
	Dim objRegExp
	Set objRegExp = New RegExp

	objRegExp.IgnoreCase = True
	objRegExp.Global = True

	objRegExp.Pattern = "\[url=(.*?)\](.*?)\[\/url\]"
	cStrim = objRegExp.Replace(cStrim,"<a href=""$1"" target=""_blank"">$2</a>") 

	Set objRegExp = Nothing
End Function

Om du kör exempelvis:

response.write urlConvert("denna text [ URL=http://www.mypage.com]sidan[/ URL]")

så resulterar det i

denna text <a href="http://www.mypage.com">sidan</a>

Det var det du ville kanske?

mikulMedlem sedan aug. 20013 824 inlägg

3 jan. 2002 22:49#5

jo tack så mycket....
men finns det inte nåt annat sätt att göra det på?

typ nåt som liknar mitt sätt...
för jag kan inte det där med regexp...
jag vill gärna veta vad jag pysslar med.. ;- )

finns det nåt ställe där man kan läsa om det?
helst svenska....

/ Mikul

pepparMedlem sedan dec. 2001873 inlägg

3 jan. 2002 23:23#6

Så här kanske...?

<%
function link(strL)
str= strL
middas1 = instr(strL,"[link]")
middas2 = middas1 + 6
strL = Mid(strL,middas2)
middas1 = instr(strL, "[/link]")
middas2 = middas1 - 1
strL = Left(strL, middas2)
Url = Replace(strL, "http://", "")

str = Replace(str, "[link]","<a href=""")
str = Replace(str, "[/link]", chr(34) & ">" & Url &"</a>"  )
link1 = trim(str)
Response.Write(link1)
end function %>

<% strL="Byta länk: Så här [link]http://www.webforum.nu[/link]. Kanske funkar ???" %>
<% response.write link(strL)  %>

//alltid p*

[Redigerat av peppar den 04 jan 2002]

mikulMedlem sedan aug. 20013 824 inlägg

4 jan. 2002 13:50#7

tack så mycket...
att inte jag kunde komma på det då...
att sånna småsaker ställer till det...
tack så mycket ännu en gång...

/ Mikul

CoreXMedlem sedan sep. 2001105 inlägg

29 jan. 2002 15:01#8

Om jag tar koden längst ner så funkar det. Men... skriver man 2 olika länkar så blir det 2 olika länkar fast namnet på länken blir det samma som på den första länken man skriver!