Prepoznavanje HTML linka

Prepoznavanje HTML linka

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

trazio, trazio i nasao... Smile. da bi radilo i za nase stranice, mora malo da se prepravi...


Sub MakeHyperlinks(sContents)
Dim re, oMatches, oMatch, sURL, sLabel

Set re = New RegExp
re.Pattern = "(http://|https://|ftp://|gopher://)?([\w+-_]+\.)+(biz|com|gov|edu|name|net|org|us|uk|ca|au|jp) (/[\w-_\.]+)+(\??\S+)"
re.Global = True
re.IgnoreCase = True
re.Multiline = True
sContents = re.Replace(sContents, "<a href=""$1$2$3$4$5"" target=""_blank"">$2$3</a>")
End Sub

a koristi se na razne nacine. jedan od njih je:
sContents = "Trebalo bi posetiti http://www.willness.co.sr iako sajt jos nije zavrsen Smile"
MakeHyperlinks(sContents)
Response.Write(sContents)

- preuzeto sa www.dbforums.com



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Ko je trenutno na forumu
 

Ukupno su 841 korisnika na forumu :: 48 registrovanih, 3 sakrivenih i 790 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., aleksmajstor, Atomski čoban, babaroga, Bobrock1, bokisha253, BORUTUS, dehhhhi, dragoljub11987, DragoslavS, Frunze, hooraay, hyla, kikisp, kolle.the.kid, Koridor, krkalon, Kubovac, kybonacci, laurusri, Luka1998, Marko Marković, mercedesamg, Mi lao shu, milenko crazy north, MiroslavD, mrav pesadinac, MrNo, Oscar, procesor, raptorsi, rodoljub, S1Mk3, Shinobi, Smajser, Srle993, theNedjeljko, VJ, vladetije, vrag81, wizzardone, YU-UKI, zillbg, Zoca, zziko, |_MeD_|, 125, 223223