Få et link ud af en textbox hvor der også er alm. text!

Jeg har en function som kan lave link i en tekststreng:


Function LinkString2(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp

objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True

strOutput = objRegExpHTTP1.Replace(strInput, " <a href='$1$2' target='_blank'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank'>$2</a> ")

objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")

Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing

LinkString2 = strOutput
End Function



Og den kaldes sådan her:


str = "Kan man så få www.test.dk/fil.zip til at blive til en link uden at resten af texten også gør dette, det skal helst også understøtte class'en smallink"

response.write linkString2 (str)

Du kan også prøve at kigge på netcoder.dk hvor der var en konkurance om hvem ´der kunne lave den "bedste" link konverter.

Vinder:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1

runner ups:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1

du kan ligge function i bunden af din fil:

<html>
<body>
<%... ASP kode... eks:
str = "Kan man så få www.test.dk/fil.zip til at blive til en link uden at resten af texten også gør dette, det skal helst også understøtte class'en smallink"

response.write linkString2 (str)
%>
</body>
</html>
<%
Function LinkString2(strInput)
...
End Function
%>

JA? en grund til du afviser ville være 100 letter for mig eller en anden at hjælpe vidre.

Sorry!

Det jeg søger er en funktion som kan gøre en link aktiv, fx. som her på eksperten. hvis jeg skriver http://www.eksperten.dk så bliver den til et klikbart link, når jeg har submitted formen. og det er det jeg ønsker at bruge.

Der er skam også det jeg har vist.

Prøv at ligge function linkString2 ind i en ASP fil.

'Lav en streng:

str = "Kan man så få www.test.dk/fil.zip til at blive til en link uden at resten af texten også gør dette, det skal helst også understøtte class'en smallink"

'Udskriv strengen samme med kald til functionen
response.write linkString2 (str)

str kan du hendte fra en tabel i en dabase et input felt fra en form:

str = Request.Form("besked")

okey, så er det bare mig der ikke har forstået det rigtigt..

Du kan lave en form med et textarea eksvis:

<form action="xxxx.asp" method="post">
<TEXTAREA NAME="besked" cols="45" rows="6"</TEXTAREA>
<input type="submit" name="Gem" value="Gem">
</form>

Hvis du så skriver noget tekst i det textarea og udksirver det på den side som modtager formen:

str = Request.Form("besked")
response.write linkString2 (str)

Nu har jeg prøvet og får følgene fejl

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/dev/roadi/linkstr.asp, line 23

strOutput = objRegExpHTTP2.Replace(strOutput, " $1&lt;a href='<A href="http://$2" target=_blank>http://$2</A>' target='_blank'&gt;$2&lt;/a&gt; ")
-----------------------------------------------------------------------^

Prøv at kopier teksten fra eksperen ind i notepad føst og så copy/paste fra notepad ind i din HTML/ASP editor den har lavet  < og til &lt; og > omtil &gt;

Eagleeye -> Kan du ikke lige lave et svar mere. Så jeg kan give dig dine fortjente point.. Jeg er ked af at jeg misforstod dit første svar, nu virker det og jeg er meget tilfreds.

1000 tak for hjælpen..

Jeg skal bare lige rode lidt med DB udtrækket, men det skulle ikke være noget problem..

/Roadi

OK :)

Endnu engang tak for hjælpen, jeg har fået DB udtrækket til at virke..

/Roadi