FUNCTION txtToURL(tekst)
Tekst_temp = tekst
Tekst_temp = Replace(Tekst_temp,"<","<")
Tekst_temp = Replace(Tekst_temp,">",">")
Tekst_temp = Replace(Tekst_temp,"chr(13)","<BR>")
Tekst_temp = Replace(Tekst_temp,"chr(10)","<BR>")
Tekst_temp = Replace(Tekst_temp,"#","<BR>")
Tekst_temp = Replace(Tekst_temp,Chr(13),"<BR>")
Tekst_temp = Replace(Tekst_temp,"[","<B>")
Tekst_temp = Replace(Tekst_temp,"]","</B>")
Tekst_temp = Replace(Tekst_temp,"[","<B>")
Tekst_temp = Replace(Tekst_temp,"]","</B>")
i = 1
While not InStr(i,Tekst_temp,"{") = 0
start = CInt( InStr(1,Tekst_temp,"{") )
i = start
slutt = CInt( InStr(start,Tekst_temp,"}") )
hole = mid(Tekst_temp,(start),(slutt-start+1))
if InStr(hole,"$") then
skille = CInt( InStr(start,Tekst_temp,"$") )
navn = mid(Tekst_temp,(start+1),(skille-start-1))
link = mid(Tekst_temp,(skille+1),(slutt-skille-1))
if Left(link,4) = "www." then
link = "http://" & link
end if 'www
if not InStr(link,"@") = 0 then
link = "mailto:" & link
end if '@
out_var = "<A HREF=""" & link & """>" & navn & "</A>"
Tekst_temp = Replace(Tekst_temp,hole,out_var,1,1)
else
link = mid(Tekst_temp,(start+1),(slutt-start-1))
if Left(link,4) = "www." then
link = "http://" & link
end if 'www
if not InStr(link,"@") = 0 then
link = "mailto:" & link
end if '@
link = "<A HREF=""" & link & """>"
Tekst_temp = Replace(Tekst_temp,"{",link,1,1)
Tekst_temp = Replace(Tekst_temp,"}","</A>",1,1)
end if
wend
start = CInt( InStr(1,Tekst_temp,"{") )
i = start
slutt = CInt( InStr(start,Tekst_temp,"}") )
hole = mid(Tekst_temp,(start),(slutt-start+1))
if InStr(hole,"$") then
skille = CInt( InStr(start,Tekst_temp,"$") )
navn = mid(Tekst_temp,(start+1),(skille-start-1))
link = mid(Tekst_temp,(skille+1),(slutt-skille-1))
if Left(link,4) = "www." then
link = "http://" & link
end if 'www
if not InStr(link,"@") = 0 then
link = "mailto:" & link
end if '@
out_var = "<A HREF=""" & link & """>" & navn & "</A>"
Tekst_temp = Replace(Tekst_temp,hole,out_var,1,1)
else
link = mid(Tekst_temp,(start+1),(slutt-start-1))
if Left(link,4) = "www." then
link = "http://" & link
end if 'www
if not InStr(link,"@") = 0 then
link = "mailto:" & link
end if '@
link = "<A HREF=""" & link & """>"
Tekst_temp = Replace(Tekst_temp,"{",link,1,1)
Tekst_temp = Replace(Tekst_temp,"}","</A>",1,1)
end if
wend
txtToURL = Tekst_temp
END FUNCTION
END FUNCTION