VBScript で XML

VBScript XML COM

XML ファイルを 読む

↓ こんな XML ファイルを読む



<?xml version='1.0' encoding='Shift_JIS'?>

<Albums>

    <Album>

        <Title >Ｉ ＬＯＶＥ ＹＯＵ，ＯＫ</Title>

        <Artist>矢沢永吉</Artist>

        <Tracks>

            <Track number='1'>セクシー・キャット</Track>

            <Track number='2'>ウィスキー・コーク</Track>

            <Track number='3'>キャロル</Track>

            <Track number='4'>雨のハイウェイ</Track>

            <Track number='5'>キザな野郎</Track>

            <Track number='6'>ライフ・イズ・ヴェイン</Track>

            <Track number='7'>恋の列車はリバプール発</Track>

            <Track number='8'>安物の時計</Track>

            <Track number='9'>夏のフォトグラフ</Track>

            <Track number='10'>奴はデビル</Track>

            <Track number='11'>サブウェイ特急</Track>

            <Track number='12'>アイ・ラヴ・ユー，ＯＫ</Track>

        </Tracks>

    </Album>
    <Album>

        <Title >Ａ Ｄａｙ</Title>

        <Artist>矢沢永吉</Artist>

        <Tracks>

            <Track number='1'>気ままなロックン・ローラー</Track>

            <Track number='2'>最後の約束</Track>

            <Track number='3'>トラベリン・バス</Track>

            <Track number='4'>親友</Track>

            <Track number='5'>真夜中のロックン・ロール</Track>

            <Track number='6'>昼下り</Track>

            <Track number='7'>古いラヴ・レター</Track>

            <Track number='8'>六月の雨の朝</Track>

            <Track number='9'>真赤なフィアット</Track>

            <Track number='10'>ディスコティック</Track>

            <Track number='11'>Ａ ＤＡＹ</Track>

        </Tracks>

    </Album>

</Albums>

lesson001.vbs



Dim objDOM: Set objDOM = CreateObject("Microsoft.XMLDOM")

objDOM.Load(WScript.Arguments(0))

DispNode objDOM.DocumentElement
Sub DispNode(node)

    If  node.nodeValue <> "" Then

        WScript.Echo node.parentNode.nodeName & " = " & node.nodeValue

    End If
    If Not (node.Attributes Is Nothing) Then

        For Each attr In node.Attributes

            WScript.Echo attr.nodeName & " = " & attr.nodeValue

        Next

    End If
    If node.hasChildNodes Then

        For Each child In node.childNodes

            DispNode child

        Next

    End If

End Sub
実行結果


C:\>cscript c:\study\vbscript\chapter005\lesson001.vbs c:\study\vbscript\chapter

005\PlayList.xml //nologo

Title = Ｉ ＬＯＶＥ ＹＯＵ，ＯＫ

Artist = 矢沢永吉

number = 1

Track = セクシー・キャット

number = 2

Track = ウィスキー・コーク

number = 3

Track = キャロル

number = 4

Track = 雨のハイウェイ

number = 5

Track = キザな野郎

number = 6

Track = ライフ・イズ・ヴェイン

number = 7

Track = 恋の列車はリバプール発

number = 8

Track = 安物の時計

number = 9

Track = 夏のフォトグラフ

number = 10

Track = 奴はデビル

number = 11

Track = サブウェイ特急

number = 12

Track = アイ・ラヴ・ユー，ＯＫ

Title = Ａ Ｄａｙ

Artist = 矢沢永吉

number = 1

Track = 気ままなロックン・ローラー

number = 2

Track = 最後の約束

number = 3

Track = トラベリン・バス

number = 4

Track = 親友

number = 5

Track = 真夜中のロックン・ロール

number = 6

Track = 昼下り

number = 7

Track = 古いラヴ・レター

number = 8

Track = 六月の雨の朝

number = 9

Track = 真赤なフィアット

number = 10

Track = ディスコティック

number = 11

Track = Ａ ＤＡＹ

http://msdn.microsoft.com/ja-jp/library/aa468547.aspx