Imports System
Imports System.Text .RegularExpressions
Public Class Test
Public Shared Sub Main( )
Dim urlStr As String
urlStr = "Deep purples blanket / wrap. It is gorgeous" & _
"in newborn photography. " & _
"layer" & _
"beneath the baby.....the possibilities are endless!" & _
"You will get this prop! " & _
"Gorgeous images using Lavender as a basket filler " & _
"Photo by Benbrook, TX" & _
"Imaging, Ontario" & _
"http://w...content-available-to-author-only...o.com?t=3" & _
" www.photo.com" & _
" http://p...content-available-to-author-only...o.com" & _
" https://p...content-available-to-author-only...o.com" & _
" http://w...content-available-to-author-only...o.nl?t=1&url=5" & _
"Photography Cameron, NC" & _
"Thank you so much ladies!!" & _
"The flower halos has beautiful items!" & _
"http://w...content-available-to-author-only...y.com" & _
"LIKE me on FACEBOOK for coupon codes, and to see my full product line!" & _
"http://w...content-available-to-author-only...k.com/byme"
Dim MyRegex As Regex = New Regex( "(?:(http|https|ftp)://|www\.)[a-zA-Z0-9.-]+(\.[a-zA-Z]{2,3})?(:[a-zA-Z0-9]*)?/?([a-zA-Z0-9._?,'/\\ +&%$#=~-])*" )
Console.WriteLine ( MyRegex.Replace ( urlStr, "" ) )
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKIApQdWJsaWMgQ2xhc3MgVGVzdAoJUHVibGljIFNoYXJlZCBTdWIgTWFpbigpCgkgICAgRGltIHVybFN0ciBBcyBTdHJpbmcKICAgICAgICB1cmxTdHIgPSAiRGVlcCBwdXJwbGVzIGJsYW5rZXQgLyB3cmFwLiBJdCBpcyBnb3JnZW91cyIgJiBfCiJpbiBuZXdib3JuIHBob3RvZ3JhcGh5LiAiICYgXwoibGF5ZXIiICYgXwoiYmVuZWF0aCB0aGUgYmFieS4uLi4udGhlIHBvc3NpYmlsaXRpZXMgYXJlIGVuZGxlc3MhIiAmIF8KIllvdSB3aWxsIGdldCB0aGlzIHByb3AhICIgJiBfCiJHb3JnZW91cyBpbWFnZXMgdXNpbmcgTGF2ZW5kZXIgYXMgYSBiYXNrZXQgZmlsbGVyICIgJiBfCiJQaG90byBieSBCZW5icm9vaywgVFgiICYgXwoiSW1hZ2luZywgT250YXJpbyIgJiBfCiJodHRwOi8vdy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uby5jb20/dD0zIiAmIF8KIiB3d3cucGhvdG8uY29tIiAmIF8KIiBodHRwOi8vcC4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uby5jb20iICYgXwoiIGh0dHBzOi8vcC4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uby5jb20iICYgXwoiIGh0dHA6Ly93Li4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5vLm5sP3Q9MSZ1cmw9NSIgJiBfCiJQaG90b2dyYXBoeSBDYW1lcm9uLCBOQyIgJiBfCiJUaGFuayB5b3Ugc28gbXVjaCBsYWRpZXMhISIgJiBfCiJUaGUgZmxvd2VyIGhhbG9zIGhhcyBiZWF1dGlmdWwgaXRlbXMhIiAmIF8KImh0dHA6Ly93Li4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi55LmNvbSIgJiBfCiJMSUtFIG1lIG9uIEZBQ0VCT09LIGZvciBjb3Vwb24gY29kZXMsIGFuZCB0byBzZWUgbXkgZnVsbCBwcm9kdWN0IGxpbmUhIiAmIF8KImh0dHA6Ly93Li4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5rLmNvbS9ieW1lIgoJCURpbSBNeVJlZ2V4IEFzIFJlZ2V4ID0gTmV3IFJlZ2V4KCIoPzooaHR0cHxodHRwc3xmdHApOi8vfHd3d1wuKVthLXpBLVowLTkuLV0rKFwuW2EtekEtWl17MiwzfSk/KDpbYS16QS1aMC05XSopPy8/KFthLXpBLVowLTkuXz8sJy9cXCsmJSQjPX4tXSkqIikKCQlDb25zb2xlLldyaXRlTGluZShNeVJlZ2V4LlJlcGxhY2UodXJsU3RyLCAiIikpCglFbmQgU3ViCkVuZCBDbGFzcw==