如何删除除字符串开头以外的字符串

Question

我想删除除以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