RegExp

Følger lige med her...

Du kan jo prøve (utestet)

objRegExp.Pattern = "(\bhttp\:\/\/)?([a-z0-9-]+(\.[a-z0-9-]+)*\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"

dur ikke

Dejlig informativ besked. Jeg kender ikke alle de tilfælde
du har tænkt dig at prøve - og jeg gider ikke selv prøve
i ASP. Men det virker da fint som regulært udtryk i Perl i
mange tilfælde.

Du vil ikke med Et Pattern kunne lave tekst om til link.. men alle de muliheder man kan sktrive et url på..:
http://www.hej.dk
hej.dk
hej.dk/minfil.asp?d=34er&e=fcv4

mmf..

Tag et kig på dette vinder script fra netcoder.dk:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1

og her er alle de scripts som deltog i onkurencen.:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1

Der ud over kommer email adresse skal de også lave om??

Jeg bruge selv denne function som bruger regexp.. Den tager højde for flere forskellige ting som man kan støde ind i når man lave links om. Den passer til mit behov for link konvertering, men det er ikke sikkert på har samme bwhov men du kan jo prøve den :)

Function LinkString(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
Set objRegExpEMail = New RegExp

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

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpEMail.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
objRegExpEMail.IgnoreCase = True

strOutput = objRegExpEMail.Replace(strInput, " <a href='mailto:$1'>$1</a> ")
strOutput = objRegExpHTTP1.Replace(strOutput, " <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
Set objRegExpEMail = Nothing

LinkString = strOutput
End Function

Nu bad han ikke om mailto, men den simple omformning han beder om kan i Perl
laves i en enkelt sætning. Vistnok. Afhængigt af hvor meget der skal
tjekkes for.

$x="sadasdasd asd.as.as.asd  asdad asd..qasd asd";
$x=~s/(\bhttp\:\/\/)?(([a-z0-9-]+(\.[a-z0-9-]+)*\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?)/<a href="http:\/\/\2">\2<\/a>/g;
print "$x\n";

Men det er selvfølgelig spørgsmålet uvedkommende...:)