액세스 용 VBA에서 XML (MSInfo32) 읽기

Question

MSInfo32 XML 파일에서 데이터를 가져 오려고합니다. "소프트웨어 환경"아래의 "구성 요소"/ "저장 영역"및 "프로그램 그룹"아래의 "시스템 요약", "드라이브"만 가져 오려고합니다.

여기

<?xml version="1.0"?> 
<MsInfo> 
<Metadata> 
<Version>8.0</Version> 
<CreationUTC>09/18/17 03:42:48</CreationUTC> 
</Metadata> 
<Category name="System Summary"> 
<Data> 
<Item><![CDATA[OS Name]]></Item> 
<Value><![CDATA[Microsoft Windows 10 Pro]]></Value> 
</Data> 
    <Category name="Components"> 
     <Category name="Storage"> 
      <Category name="Drives"> 
       <Data> 
       <Item><![CDATA[Drive]]></Item> 
       <Value><![CDATA[C:]]></Value> 
       </Data> 
      </Category> 
     </Category> 
    </Category> 
    <Category name="Software Environment"> 
     <Category name="Environment Variables"> 
     </Category> 
     <Category name="Program Groups"> 
      <Data> 
      <Group_Name><![CDATA[Start Menu\Programs\Accessibility]]></Group_Name> 
      <Name><![CDATA[Default:Start Menu\Programs\Accessibility]]></Name> 
      <User_Name><![CDATA[Default]]></User_Name> 
      </Data> 
     </Category> 
    </Category> 
</Category> 
</MsInfo> 

이 불쌍한 내 코드입니다 : 여기

는 XML 파일의 조각입니다 내가 작은 XML 파서를 작성했습니다

Answer 1

사전에

Private Sub xxReadXML() 
    Dim xDoc As Object, root As Object 
    Set xDoc = CreateObject("MSXML2.DOMDocument") 
    xDoc.async = False 
    xDoc.validateOnParse = False 

    If xDoc.Load(SystemInfoFileTxt.Value) Then 
     ' The document loaded successfully. 
     ' Now do something intersting. 
     Set MSInfoNode = xDoc.DocumentElement.childNodes(0) 
     Set CategoryNode = xDoc.DocumentElement.childNodes(1) 
     Set DataNode = xDoc.DocumentElement.childNodes(2) 

     For Each DataNode In xDoc.selectNodes("/MsInfo/Category/Data") 
      Set ItemNode = DataNode.SelectSingleNode("Item") 
      Set ValueNode = DataNode.SelectSingleNode("Value") 
      If Not ItemNode Is Nothing Then 
       ListBox1.AddItem (ItemNode.Text) 
      End If 
      If Not ValueNode Is Nothing Then 
       ListBox1.AddItem (ValueNode.Text) 
      End If 
      ListBox1.AddItem ("") 
     Next DataNode 
    Else 
    End If 
Set xDoc = Nothing 
End Sub 

덕분에 그 최대 4 레벨까지 노드를 통과하고, 존재하는 경우 name 속성을 인쇄하고, 자식 노드가없는 경우 내용을 인쇄합니다 (재귀 적으로 쓰기는 아마도 l 에세이 노력이 있지만, 이것은 사용자 정의하기가 더 쉽습니다).

원하는 동작과 유사합니다. 몇 가지 맞춤 설정이 필요할 것입니다. 그러나 출력 결과에 시스템이 정확하게 적용되지 않기 때문에 사용자를 대신 할 수는 없습니다.

는 또한

Private Sub xxReadXML() 
    Dim xDoc As New MSXML2.DOMDocument60 
    Dim root As XMLNode 
    xDoc.async = False 
    xDoc.validateOnParse = False 
    Dim CategoryNode As IXMLDOMNode 
    Dim DataNode As IXMLDOMNode 
    Dim DataChild As IXMLDOMNode 
    Dim DataChild2 As IXMLDOMNode 
    Dim DataChild3 As IXMLDOMNode 
    Dim DataChild4 As IXMLDOMNode 
    If xDoc.Load(SystemInfoFileTxt.Value) Then 
     ' The document loaded successfully. 
     Set CategoryNode = xDoc.SelectSingleNode("/MsInfo/Category") 
     Debug.Print CategoryNode.Attributes.getNamedItem("name").NodeValue 
     For Each DataNode In CategoryNode.ChildNodes 
      If DataNode.Attributes.length <> 0 Then 
       Debug.Print DataNode.Attributes.getNamedItem("name").NodeValue 
      End If 
      For Each DataChild In DataNode.ChildNodes 
       If DataChild.Attributes.length <> 0 Then 
        Debug.Print DataChild.Attributes.getNamedItem("name").NodeValue 
       End If 

       For Each DataChild2 In DataChild.ChildNodes 
        If DataChild2.HasChildNodes Then 
         If DataChild2.Attributes.length <> 0 Then 
          Debug.Print DataChild2.Attributes.getNamedItem("name").NodeValue 
         End If 
         For Each DataChild3 In DataChild2.ChildNodes 
          If DataChild3.HasChildNodes Then 
           If DataChild3.Attributes.length <> 0 Then 
            Debug.Print DataChild3.Attributes.getNamedItem("name").NodeValue 
           End If 
           For Each DataChild4 In DataChild3.ChildNodes 
            Debug.Print DataChild4.Text 
           Next DataChild4 
          Else 
           Debug.Print DataChild3.Text 
          End If 
         Next DataChild3 
        Else 
         Debug.Print DataChild2.Text 
        End If 
       Next DataChild2 

      Next DataChild 
     Next DataNode 
    End If 
    Set xDoc = Nothing 
End Sub