(asp) URL & e-mail link uit database omzetten naar html

[Stijn]

Hoi Niws-s,

Heeft er iemand een ASP scriptje dat een databaseveld kan controleren op
URL's & email-links, (www.asp.net of ikke@geendomain.com) en deze
automatisch kan omzetten naar html-code ( www.asp.net wordt dan <a
href="http://www.asp.net" target="blank">www.asp.net</a> ) & ongeveer
hetzelfde voor de e-maillink.

Ik weet al dat ik met regex & het replace commando zal moeten werken, maar
het is een beetje tijdverlies om dit te zitten zoeken (ben niet zo sterk in
die dingen) terwijl iemand er misschien dagelijks gebruik van maakt.

Groeten & alvast bedankt

Stijn

[Daniel Tryba]

Stijn <estivie@hotmail.com> wrote:
> Heeft er iemand een ASP scriptje dat een databaseveld kan controleren op
> URL's & email-links, (www.asp.net of ikke@geendomain.com) en deze
> automatisch kan omzetten naar html-code ( www.asp.net wordt dan <a
> href="http://www.asp.net" target="blank">www.asp.net</a> ) & ongeveer
> hetzelfde voor de e-maillink.

> Ik weet al dat ik met regex & het replace commando zal moeten werken, maar
> het is een beetje tijdverlies om dit te zitten zoeken (ben niet zo sterk in
> die dingen) terwijl iemand er misschien dagelijks gebruik van maakt.

Reguliere Expressies zijn dingen die je IMHO toch echt dient te
beheersen wil je een beetje makkelijk aan textparsing doen. Maar als je
snel antwoord wilt had je even moet zoeken naar een IMHO voor de
handliggende query als "asp regexp email to link". Nummer 4 bij google
lijkt al een eind in de goede richting te zijn.

--

Daniel Tryba

[Stijn]

> Reguliere Expressies zijn dingen die je IMHO toch echt dient te
> beheersen wil je een beetje makkelijk aan textparsing doen.

'k weet het. Ben volop bezig met studeren, maar er is zo veel dat je moet
beheersen, dat ik daar nog niet toe ben gekomen.

>Maar als je snel antwoord wilt had je even moet zoeken naar een IMHO voor
de
> handliggende query als "asp regexp email to link". Nummer 4 bij google
> lijkt al een eind in de goede richting te zijn.

Heeft me inderdaad verder geholpen. Ik blijk nog steeds niet de goede
trefwoorden te vinden, want ik heb zelf lopen googelen, maar kwan niet echt
ver.
In elk geval bedankt!

Dit is de code die ik heb gevonden:

<%
Public Function LinkURLs(byVal strIn)
dim re, sOut

set re = New RegExp
re.global = true
re.ignorecase = true
're.multiline = true

' pattern that parses and finds any Internet URLs:
re.pattern = _
"((mailto\:|(news|(ht|f)tp(s?))\://){1}\S+)\b"

' replace method of RegExp object uses a remembered
' pattern denoted as $1 to link the found URL(s)
sOut = re.replace( strIn, _
"<A HREF=""$1"" TARGET=""_new"">$1</A>")

set re = Nothing
LinkURLs = sOut
End Function

%>

Groet

Stijn