VB 从文本框中删除重复行

Question

我正在尝试从以下代码的网页中提取网址。使用此代码它可以工作，但它会多次给我所有的网址。我只需要在我的文本框中使用一次。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    WebBrowser1.Navigate("https://www.youtube.com/results?search_query=test+search")
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
    For Each curElement As HtmlElement In theElementCollection
        If curElement.GetAttribute("href").Contains("/watch") Then
            TextBox1.Text += curElement.GetAttribute("href") & vbCrLf
        End If
    Next
End Sub

感谢任何帮助。

Answer 1

您可以使用 HashSet(Of String) + String.Join:

Dim uniqueUrls As New HashSet(Of String)

For Each curElement As HtmlElement In theElementCollection
    If curElement.GetAttribute("href").Contains("/watch") Then
        uniqueUrls.Add(curElement.GetAttribute("href"))
    End If
Next

TextBox1.Text = String.Join(vbCrLf, uniqueUrls)

VB 从文本框中删除重复行

VB Remove duplicate lines from textbox

vb.net

textbox

duplicates

visual-studio