VB如何解析XML中的根元素中的值

Question

<Inter_mode type_id="M02" type_code="M" drum_inter="3" song_inter="1" switch_time="600">
      <Group id="0" start_time="11:00:00" loop_list="1234">8，9，10</Group>
</Inter_mode>
这个是我要解析的XML文件，现在小弟能将其中的8，9，10取出来，但现在我想取 Group id，start_time，loop_list的值给个变量不知道怎么做，希望那位高手大哥，给个法子解决，小弟不胜感激，最后由源程序可以测试的。小弟在线等....感谢了

Answer 1

   Dim oXmlDoc As DOMDocument
    Dim oXmlNode As IXMLDOMNode
    Dim oXmlNodes As IXMLDOMNodeList
    Dim FileName As String
    Dim sValue() As String
    Dim i As Long
    
    FileName = "D:\t.xml"
    
    '读出要排序的内容到数组sSortValue
    ReDim sSValue(i)
    Set oXmlDoc = New DOMDocument
    oXmlDoc.Load (FileName)
    Set oXmlNodes = oXmlDoc.documentElement.selectNodes(".//Group")
    For Each oXmlNode In oXmlNodes.Item(0).Attributes
        ReDim Preserve sValue(i)
        sValue(i) = oXmlNode.nodeName & " = " & oXmlNode.Text
        i = i + 1
    Next
    Set oXmlNode = Nothing
    Set oXmlNodes = Nothing
    Set oXmlDoc = Nothing
    Debug.Print Join(sValue)