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

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