字符串从一个字符串截取到另一个字符串

[yuelailiu]

Dim str = "1232beginadkjfkadjfdkajendkdsafjkaj"

Dim strBegin = "begin"
Dim strEnd = "end"

返回的结果 “adkjfkadjfdkaj”

[Poopaye]

Dim _begin = str.IndexOf(strBegin) + strBegin.Length
Dim _end = str.LastIndexOf(strEnd)
Dim _result = str.Substring(_begin, _end - _begin))

[rmini]

先查找第一个字符串的位置+字符串本身长度，然后再查第二个字符串的位置，就可以取到他们中间的字符串了

[snvlongquan]

    '获取两个字符串中间的字符串
    Private Shared Function SearchMidString(ByVal s As String, ByVal s1 As String, ByVal s2 As String) As String
        '获取搜索到的数目  
        Dim n1 As Integer, n2 As Integer
        n1 = s.IndexOf(s1, 0) + s1.Length
        '开始位置  
        n2 = s.IndexOf(s2, n1)
        '结束位置  
        Return s.Substring(n1, n2 - n1)
        '取搜索的条数，用结束的位置-开始的位置,并返回  
    End Function

调用方法：SearchMidString(str,strBegin,strEnd) 不谢。

[以专业开发人员为伍]

用一段或者两段字符串作为分隔来截取内容，你可以直接使用 Split 函数。 例如：

Dim str = "1232beginadkjfkadjfdkajendkdsafjkaj"
Dim strBegin As String() = {"begin"}
Dim strEnd As String() = {"end"}
Dim result = str.Split(strBegin, StringSplitOptions.None)(1).Split(strEnd, StringSplitOptions.None)(0)

[以专业开发人员为伍]

另外，例如你并不需要区分分隔符出现的次序，那么其实可以简化一下（提高一下性能）

Dim str = "1232beginadkjfkadjfdkajendkdsafjkaj"
Dim key As String() = {"begin", "end"}
Dim result = str.Split(key, StringSplitOptions.None)(1)

总之只要记住，从字符串中匹配和分割内容，可以使用 Split，就行了。

[threenewbee]

Dim str = "1232beginadkjfkadjfdkajendkdsafjkaj" Dim x = Regex.Match(str, "(?<=begin).*(?<end)").Groups(1).Value