Как удалить строку кроме строки startwith

Question

Я хочу удалить всю строку, кроме строки startwith EVOPB-
, как мне это сделать?

Private Sub StringResult()
    Try
        Dim web As New HtmlDocument()
        web.Load(WebBrowser1.DocumentStream)
        '' Extracting All Links
        Dim redeem As HtmlNode = web.DocumentNode.SelectSingleNode("//div[@class='_58b7']")
        If (redeem.InnerText.Contains("")) Then
            Dim r As String = redeem.InnerText.ToString.Replace(vbNewLine, "")
            TextBox1.Text = r
        End If
    Catch
        Return
    End Try
End Sub

Answer 1

Если предположить, что вы пытаетесь сопоставить, всегда начинается с одного и того же префикса и продолжается до следующего пробела, примерно так будет работать:

Public Shared Function ExtractStartsWith(ByVal Output As String, Optional StartsWith As String = "EVOPB") As List(Of String)

    Dim pos As Integer = 0
    Dim nextSpace As Integer
    Dim results As New List(Of String)
    Dim result As String
    Do While pos >= 0 AndAlso pos < Output.Length
        pos = Output.IndexOf(StartsWith, pos)
        If pos >= 0 Then
            nextSpace = Output.IndexOf(" ", pos)
            If nextSpace > 0 Then
                result = Output.Substring(pos, nextSpace - pos)
                pos = nextSpace + 1
            Else
                result = Output.Substring(pos)
                pos = Output.Length
            End If
            results.Add(result)
        End If
    Loop
    Return results
End Function