Function CreateURL(Text)

Yazılım

Geliştirme

Uzmanı

E-Ticaret

Danışmanı

Classic

Asp

Excel

Project,

Excel

VBA

E-Ticaret

Mobil

Desktop

Tel

534

797

Mail

baranseren@gmail.com

Function CreateURL(Text)

Function CreateURL(Text) 3.4.2011 13:09:07

Yazıda bulunan url leri link`e çevirmek için regular expressions ile hazırlanmış fonksiyon.

view plain copy to clipboard print ?

Function CreateURL(Text)
Set regEx = New RegExp
With regEx
.IgnoreCase = True
.Global = True
.Pattern = "\[url=((http|https|ftp)\://[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,3}?/?[a-zA-Z0-9\-\._\?\,\`/\\\+&%\$#\=~]*)\](\s*[a-zA-Z]+((.|\n)*?)\s*)\[\/url\]"
End With
Set objEx = regEx.Execute(Text)
For Each x In objEx
Text = Replace(Text,x,"<a target="`_blank`" href="`"&" x.submatches(0)="" &"`="">"& Trim(x.SubMatches(2)) &"</a>", 1,-1,1)
Next
CreateURL = Text
End Function

	Function CreateURL(Text)
		Set regEx = New RegExp
			With regEx
				.IgnoreCase = True
				.Global 	= True
				.Pattern 	= "\[url=((http|https|ftp)\://[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,3}?/?[a-zA-Z0-9\-\._\?\,\`/\\\+&%\$#\=~]*)\](\s*[a-zA-Z]+((.|\n)*?)\s*)\[\/url\]"
			End With
		Set objEx = regEx.Execute(Text)

			For Each x In objEx
				Text = Replace(Text,x,""& Trim(x.SubMatches(2)) &"", 1,-1,1)
			Next
		CreateURL = Text
	End Function

Yazının Devamı

Tags :

Kategoriler

Sitelerim

Önerdiklerim

Function CreateURL(Text) 3.4.2011 13:09:07