查找两个字符串中间的字符串

    '读取两个字符串之间的字符串

SourceStr :字符串内容

StartStr :开始字符串

EndStr :结束字符串

返回查找到的字符串内容

     Public Function GetCenterStr(ByVal SourceStr As String, ByVal StartStr As String, ByVal EndStr As String) As String        Dim source As String = SourceStr.Trim        Dim startIndex As Integer = source.IndexOf(StartStr.Trim) + StartStr.Trim.Length        Dim endIndex As Integer = source.IndexOf(EndStr.Trim)        Dim length As Integer = endIndex - startIndex        Dim newSource As String = source.Substring(startIndex, length)        Return newSource.Trim    End Function