Question

VB 读取XML文件

XML内容如下

- <xml>

- <transactions>

- <transaction date="1406881220" type="wf_export_document_attributes" vaultname="KXTESTPDM">

- <document aliasset="" pdmweid="13482">

- <configuration name="默认<按焊接>" quantity="1">

<attribute name="图号" value="shiyan111" />

<attribute name="材料" value="45" />

<attribute name="代号" value="" />

<attribute name="总重" value="" />

<attribute name="注释" value="" />

<attribute name="名称" value="实验" />

<attribute name="重量" value="" />

<attribute name="名称" value="零件1.SLDPRT" />

<attribute name="状态" value="审批通过" />

<attribute name="参考引用记数" value="1.0" />

<attribute name="配置" value="默认<按焊接>" />

<attribute name="零件号" value="零件1" />

</configuration>

- <configuration name="默认<按加工>" quantity="1">

<attribute name="图号" value="shiyan111" />

<attribute name="材料" value="45" />

<attribute name="代号" value="" />

<attribute name="总重" value="" />

<attribute name="注释" value="" />

<attribute name="名称" value="实验" />

<attribute name="重量" value="" />

<attribute name="名称" value="零件1.SLDPRT" />

<attribute name="状态" value="审批通过" />

<attribute name="参考引用记数" value="1.0" />

<attribute name="配置" value="默认<按加工>" />

<attribute name="零件号" value="零件1" />

</configuration>

</document>

</transaction>

</transactions>

</xml>

Answer 1

xml文本中属性值包含<>号没法读取，- 号可能也不行，符件里的文本修改了下。

你可以引用Microsoft XML, v6.0库，有几个版本，用new来建立xmlDocument对象，这可以获得点提示帮助。

下面代码把各个标签的属性值输出到立即窗口：

Private Sub Command1_Click()
    Dim xmldoc
    Set xmldoc = CreateObject("msxml2.domdocument")
    xmldoc.async = False
    xmldoc.Load "c:\xml.xml" '读取文件
    Dim transactionTag As Object '获取transaction标签
    Set transactionTag = xmldoc.Getelementsbytagname("transaction")(0)

    Debug.Print transactionTag.Attributes.getNamedItem("type").Text, transactionTag.Attributes.getNamedItem("vaultname").Text

    Dim documentTag As Object '获取document标签
    Set documentTag = transactionTag.childnodes(0)
    Debug.Print , documentTag.Attributes.getNamedItem("aliasset").Text, documentTag.Attributes.getNamedItem("pdmweid").Text

    Dim configurationTag As Object
    Dim attributeTag As Object
    Dim Attributes   As Object
    For Each configurationTag In documentTag.childnodes '遍历configuration标签
        Debug.Print , , configurationTag.Attributes.getNamedItem("name").Text, configurationTag.Attributes.getNamedItem("quantity").Text
        For Each attributeTag In configurationTag.childnodes '遍历attribute标签
            Set Attributes = attributeTag.Attributes
            Debug.Print , , , Attributes.getNamedItem("name").Text, Attributes.getNamedItem("value").Text
        Next
    Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim xDoc As Object
Dim xmlFile As String
Dim strWidth As String
Dim strHeight As String
Set xDoc = CreateObject("MSXML2.DOMDocument")
xmlFile = "C:\aa.xml"
xDoc.Load xmlFile
strWidth = xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes(2).Text
strHeight = xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes(3).Text
MsgBox ("Width=" & strWidth & " Height=" & strHeight)
xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes(2).Text = "123"
xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes(3).Text = "456"
xDoc.save (xmlFile)
End Sub

注意 你上面的XML中Width="840"Height="630" 要分开，改成：
Width="840" Height="630"
满意请采纳。

追问

可不可以不要copy的这么……可不可以看清XML再回答啊，你这个我都看过多少次了，虽说我是菜鸟没错，当也不至于……

Answer 3

解决思路：用java来读取xml内容，遇到<city_id>1</city_id>这个标签就保存到map中，然后把map的值跟option做一下映射就可以了。
具体读取xml的代码网上一大堆，最后遇到问题再来找我吧