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

'<?xml version='1.0' encoding='GB2312'?>

'

'

'       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