Question

VB怎样更改XML中的属性值

xml文档大概是这样的结构
<Use logindate="10/23/2014">
<user userEName="1"/>
..........
</Use>
怎么用VB更改userEName的属性值，谢谢

Answer 1

比如：

    Dim xmldoc As Object
    Set xmldoc = CreateObject("msxml2.domdocument")
    xmldoc.loadXML "<Use logindate=""10/23/2014""> <user userEName=""1""/><user userEName=""2""/></Use> "
    Dim es As Object
    Set es = xmldoc.documentElement.selectNodes("user")
    Dim e As Object
    Dim i
    Dim a As Object
    For i = 0 To es.length - 1
        Set e = es.Item(i)
        Set a = e.Attributes.getNamedItem("userEName") 
        a.Text = CInt(a.Text) + 1 '这里是修改属性值
    Next
    MsgBox xmldoc.documentElement.xml