'读取两个字符串之间的字符串
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