正则表达式 - 获取字符串之间/获取所有字符串之间？

Question

我似乎只能在这个主题上找到 PHP 的帮助，所以我提出了一个新问题！

我已经编写了一个函数来获取其他 2 个字符串之间的字符串，但目前它仍然返回字符串的第一部分，并简单地删除 EndSearch 值之后的任何内容：

Public Function GetStringBetween(ByVal Haystack As String, ByVal StartSearch As String, ByVal EndSearch As String) As String
    If InStr(Haystack, StartSearch) < 1 Then Return False
    Dim rx As New Regex("(?=" & StartSearch & ").+(?=" & EndSearch & ")")
    Return (rx.Match(Haystack).Value)
End Function

演示用法：

Dim Haystack As String = "hello find me world"
    Dim StartSearch As String = "hello"
    Dim EndSearch As String = "world"
    Dim Content As String = GetStringBetween(Haystack, StartSearch, EndSearch)
    MessageBox.Show(Content)

返回：你好找我

另外，在 PHP 中我有以下功能：

function get_all_strings_between($string, $start, $end){
preg_match_all( "/$start(.*)$end/U", $string, $match );
return $match[1];
}

在 VB.NET 中是否有类似的 preg_match_all 函数？

示例函数（由于返回 m.Groups 导致无效）：

Public Function GetStringBetween(ByVal Haystack As String, ByVal StartSearch As String, ByVal EndSearch As String, Optional ByVal Multiple As Boolean = False) As String
        Dim rx As New Regex(StartSearch & "(.+?)" & EndSearch)
        Dim m As Match = rx.Match(Haystack)
        If m.Success Then
            If Multiple = True Then
                Return m.Groups
            Else
                Return m.Groups(1).ToString()
            End If
        Else
            Return False
        End If
    End Function

Answer 1

我不明白你为什么要使用前瞻：

Dim rx As New Regex("(?=" & StartSearch & ").+(?=" & EndSearch & ")")

如果StartSearch = hello 和EndSearch = world，则生成：

(?=hello).+(?=world)

它与字符串匹配，准确地找到并返回它应该的。构建类似的东西：

Dim rx As New Regex(StartSearch & "(.+?)" & EndSearch)
Dim m As Match = rx.Match(Haystack)
If m.Success Then
    Return m.Groups(1).ToString()

' etc