用VB.NET替換字符串中的所有超鏈接

Question

我想要VB.NET的正則表達式來刪除字符串中的所有超鏈接，包括協議https和http，完整文檔名稱，子域名，查詢字符串參數，因此所有鏈接都是這樣的：

• http://www.example.com
• http://www.example.com/
• https://www.example.com
• http://www.example.com/page.html?t=7
• http://example.com?q=test&sort=1
• www.example.com
• 等

下面是我在所有環節需要拆除工作的字符串：

Dim description As String 

description = "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://www.photo.com?t=3" & _ 
" www.photo.com" & _ 
" http://photo.com" & _ 
" https://photo.com" & _ 
" http://www.photo.nl?t=1&url=5" & _ 
"Photography Cameron, NC" & _ 
"Thank you so much ladies!!" & _ 
"The flower halos has beautiful items!" & _ 
"http://www.enchanting.etsy.com" & _ 
"LIKE me on FACEBOOK for coupon codes, and to see my full product line!" & _ 
"http://www.facebook.com/byme" 

我現在擁有的一切：

description = Regex.Replace(description, _ 
        "((http|https|ftp)\://[a-zA-Z0-9\-\.]+(\.[a-zA-Z]{2,3})?(:[a-zA-Z0-9]*)?/?([a-‌​zA-Z0-9\-\._\?\,\'/\\\+&%\$#\=~])*)", "") 

它取代了大多數的鏈接，但沒有協議的鏈接，如www.example.com

我如何改變我的表達以包含這些鏈接？

Answer 1

您可以將字符串拆分爲Split()，然後檢查每個元素。如果它可以被解析爲絕對URI，從陣列丟棄它，然後重新建立字符串：

Dim urlStr As String 
Dim resultUri As Uri 
urlStr = "Beautiful images using Lavender, see https://www.foo.com" & vbCrLf & _ 
    "Plent of links http://www.foo.com/page.html?t=7 Oshawa, Ontario" & vbCrLf & _ 
    "http://www.example.com" & vbCrLf & "Photography, NC" 

Dim resNoURL = String.Join(" ", urlStr.Split().Select(Function(m As String) 
         If Uri.TryCreate(m, UriKind.Absolute, resultUri) = False Then 
          Return m 
         End If 
         End Function).ToList()) 

結果：

可選地，檢查是否m開始於http://或https://。你甚至可以使用正則表達式檢查：

Dim rx As Regex = New Regex("(?i)^(?:https?|ftps?)://") 

然後在回調：

If rx.IsMatch(m) = False Then 
    Return m 
End If 

UPDATE

這裏是一個sample code從字符串中刪除網址：

Dim urlStr As String 
urlStr = "YOUR STRING" 
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, ""))