使用正则表达式读取简单的xml文件

'
'
'  
'       2010
'       10
'       31
'      
'       11
'       29
'       35
'      
'  
'

Public Function GetXmlValue(ByVal sKey As String, ByVal sSrc As String) As String
   
    Dim regEx As RegExp ' 需要引用 Microsof VBScript Regular Expressions 5.5
    Dim m As Match ' 是一个对象,
    Dim ms As MatchCollection ' 是一个数组 property: count, item
    Dim sms As SubMatches ' 是一个数组
    Dim v As Object
   
    Set regEx = New RegExp ' 建立正则表达式。
   
    regEx.Pattern = "<" & sKey & ">(.*)" ' 设置模式。
    regEx.IgnoreCase = True ' 设置是否区分字符大小写。
    regEx.Global = False ' 设置只返回第一个匹配的结果，因为也就只有一个。
    Set ms = regEx.Execute(sSrc) ' 执行搜索。
   
    GetXmlValue = ms(0).SubMatches(0)
End Function

转载于:https://www.cnblogs.com/lbnnbs/p/4784593.html