problem med en function.

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

------------------
vad är det för fel mad att vara lat?, tänk om det blev krig och ingen kom dit.

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

/ Mikul

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

/ Mikul

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?

------------------
Mvh
Patrik aka Brimba

[Redigerat av Brimba den 03 jan 2002]

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

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]

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

------------------
vad är det för fel mad att vara lat?, tänk om det blev krig och ingen kom dit.

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!

------------------
Det var en gång och den var sandad!