' ***************************************
Private Function Process(ByVal Attribute, ByVal Content)
Dim Matches, SubMatches, Text
Dim MatchTag, MatchContent
Dim datasource, Name, Element, page, id
datasource = "" : Name = "" : Element = "" : page = 0 : id = ""
Set Matches = GetMatch(Attribute, "s(.+?)=""(.+?)""")
If Matches.Count > 0 Then
For Each SubMatches In Matches
MatchTag = SubMatches.SubMatches(0) ' 取得属性名
MatchContent = SubMatches.SubMatches(1) ' 取得属性值
If Lcase(MatchTag) = "name" Then Name = MatchContent ' 取得name属性值
If Lcase(MatchTag) = "datasource" Then datasource = MatchContent' 取得datasource属性值
If Lcase(MatchTag) = "element" Then Element = MatchContent ' 取得element属性值
If Lcase(MatchTag) = "page" Then page = MatchContent ' 取得page属性值
If Lcase(MatchTag) = "id" Then id = MatchContent ' 取得id属性值
Next
If Len(Name) > 0 And Len(MatchContent) > 0 Then
Text = Analysis(datasource, Name, Content, page, id) ' 执行解析属性
