xml - VB6を使用してXMLの属性値を編集する

Question

VB6を使用してbkp_pathの属性値を更新する必要があります。

XMLファイル

<ServerDetails>
    <Param src_path = "D:\Shapes\Rectangle" bkp_path = "D:\Colors\Red"/>
</ServerDetails>

を使用してXMLファイルから値を読み取ることができます

VB6コード

Dim doc As New MSXML2.DOMDocument
Set doc = New MSXML2.DOMDocument
Dim success As Boolean
'Load Config.xml
success = doc.Load("\Config\config.xml")

If success = False Then
  MsgBox ("Unable to locate the configuration file")
  Exit Function
Else
  Dim nodeList As MSXML2.IXMLDOMNodeList

  Set nodeList = doc.selectNodes("/ServerDetails/Param")

  If Not nodeList Is Nothing Then
     Dim node As MSXML2.IXMLDOMNode

     For Each node In nodeList
        srcpath = node.selectSingleNode("@src_path").Text
        bkpPath = node.selectSingleNode("@bkp_path").Text            
     Next node
  End If
End If

しかし、属性値を更新する方法を理解することはできません。

Answer 1

ノード オブジェクトへの参照を取得してから、呼び出しsetAttribute()て新しい値を指定する必要があります。

node.setAttribute "bkp_path", "wibble"

コードはすべてのParamノードからも値を読み取りますが、最初のノードのみを使用したり、特定のノードを更新したりしたい場合があります。

Answer 2

これはトリックをしました：

node.selectSingleNode("@bkp_path").Text = "D:\Colors\Blue"