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 550 korisnika na forumu :: 6 registrovanih, 1 sakriven i 543 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: Dorcolac, Hoegaarden, Konda, pera12345, Smd, voja64