Weblogs Código

RecorteX

73 usuarios y 243 recortes de código
Usuario

Contraseña
Crear cuenta
asp csharp css fechas Flash html imagenes java javascript linux mysql oracle php sql SQLServer url vbnet web xhtml xml
Top Usuarios
fjmp76 (42)
albin (31)
josuebasurto (31)
juanjo (30)
pedrocaro (9)
stanz (8)
AndiXTRM (7)
Joserra (7)
miiglesi (6)
aplyca (5)
Top Etiquetas
php (38)
vbnet (28)
javascript (26)
html (25)
csharp (25)
java (24)
sql (18)
mysql (13)
xml (13)
css (10)
imagenes (7)
Flash (7)
xhtml (7)
linux (6)
asp (6)
fechas (6)
oracle (5)
url (5)
web (5)
SQLServer (5)

Busca URLs en un texto y las convierte en un enlace

Busca URLs en un texto y las convierte en un enlace con la URL como texto enlazable y sin title.


function SnTurls(texto)
	SnTurls = texto
	Set regx = New RegExp
	regx.Pattern = "http:\/\/[a-z]+\.[a-z]+\.[a-z]+\/"
	set matchs = regx.Execute(texto)
	for each match in matchs
		SnTurls = Replace(SnTurls, match, "<a href=""" & match & """>" & match & "</a>")
	next
end function
Identifícate para dejar un comentario.
Proyecto: Juanjo Navarro, 2006 - Diseño: Albin