Idea to Code

アイデアをコードへ
独学でプログラミング関係にいろいろ手を出すサイト

hawk

VBScript

VBScriptでXML読み込み2015/08/03

VBScriptでXMLのデータを読み込んでみた。

data.xml内のchar要素ごとにname要素とcolor要素の値を抽出する。


【実行イメージ】

loadXML.vbs
Dim xml, result

Set xml = WScript.CreateObject("MSXML2.DOMDocument")
xml.load("data.xml")
result = ""

For Each elm in xml.getElementsByTagName("char")
  name = elm.getElementsByTagName("name")(0).text
  color = elm.getElementsByTagName("color")(0).text
  result = result & name & ":" & color & vbCr
Next

MsgBox result, vbSystemModal, "結果"
data.xml
<?xml version="1.0" encoding="UTF-8" ?>
<root>
  <char>
    <name>クワイ</name>
    <color>緑</color>
  </char>
  <char>
    <name>オビ</name>
    <color>青</color>
  </char>
  <char>
    <name>モール</name>
    <color>赤</color>
  </char>
</root>