HOME > リファレンス > VBScript

スポンサード リンク

1. Dim objDOM, rtResult
3. Set objDOM = WScript.CreateObject("MSXML2.DOMDocument")
4. rtResult = objDOM.load("Sample.xml")
5. If rtResult Then
6.     procDispDatas objDOM.childNodes
7. Else
8.     MsgBox "XMLオブジェクトの作成に失敗しました。"
9. End If
10. Set objDOM = Nothing
12. Sub procDispDatas(objNode)
13.     Dim obj
14.     For Each obj In objNode
15.         If obj.nodeType = 3 and obj.parentNode.nodeName = "title" Then
16.             MsgBox obj.parentNode.nodeName & " : " & obj.nodeValue
17.         End If
18.         If obj.hasChildNodes Then
19.             procDispDatas obj.childNodes
20.         End If
21.     Next
22. End Sub

1. Dim objDOM, rtResult
3. Set objDOM = WScript.CreateObject("MSXML2.DOMDocument")
4. rtResult = objDOM.load("Sample.xml")
5. If rtResult = True Then
6.     procDispDatas objDOM.childNodes
7. End If
8. Set objDOM = Nothing
10. Sub procDispDatas(objNode)
11.     Dim obj
12.     For Each obj In objNode
13.         If obj.nodeType = 3 Then
14.             MsgBox obj.parentNode.nodeName & " : " & obj.nodeValue
15.         End If
16.         If obj.hasChildNodes Then
17.             procDispDatas obj.childNodes
18.         End If
19.     Next
20. End Sub

1. Dim objDOM, rtResult, nodeList, obj
2. Set objDOM = WScript.CreateObject("MSXML2.DOMDocument")
3. rtResult = objDOM.load("Sample.xml")
4. If rtResult = True Then
5.     Set nodeList = objDOM.documentElement.selectNodes("/books/item/title")
6.     For Each obj In nodeList
7.         MsgBox obj.nodeName & " : " & obj.text
8.     Next
9. End If
10. Set objDOM = Nothing

1. <?xml version="1.0" encoding="Shift_JIS" ?>
2. <books>
3.     <item>
4.         <title>XML入門-第１巻</title>
5.         <price>2500</price>
6.         <isbn>1-1234-5678-X</isbn>
7.         <authors>
8.             <author>西谷 亮</author>
9.         </authors>
10.         <imgfile>1-1234-5678-X.gif</imgfile>
11.     </item>
12.     <item>
13.         <title>XML入門-第２巻</title>
14.         <price>2200</price>
15.         <isbn>1-1234-5678-0</isbn>
16.         <authors>
17.             <author>西谷 亮</author>
18.             <author>山田 太郎</author>
19.         </authors>
20.         <imgfile>1-1234-5678-0.gif</imgfile>
21.     </item>
22.     <item>
23.         <title>XML入門-第３巻</title>
24.         <price>3600</price>
25.         <isbn>1-1234-5678-1</isbn>
26.         <authors>
27.             <author>西谷 亮</author>
28.             <author>鈴木 次郎</author>
29.         </authors>
30.         <imgfile>1-1234-5678-1.gif</imgfile>
31.     </item>
32. </books>

Visual Basic (VB) のサブセット(簡易版)で、 マイクロソフト社製のスクリプト言語である。 Microsoft Windows上やInternet Information Server(IIS)上で動作する。
VBScript (Microsoft Visual Basic Scripting Edition) は VisualBasicの構文を真似てつくられた、 Microsoft Windowsのネイティブ スクリプト言語である。ランタイムとして、ASP や WSH があり、 主な用途として、

• Active Server Pages (ASP) などを使用したサーバサイドスクリプティング処理
• Windows Script Host (WSH) を利用したWindows上でのネイティブ・スクリプト
• Internet Explorerを使用したクライアントサイドスクリプティング処理
• HTML Applications(HTA)アプリケーション

が挙げられる。 ただし、WWWクライアントスクリプトとしては、対応するブラウザが Windows版のInternet Explorerだけであり、2005年現在ではほとんど使われていない。
HTAやASP、HTML中に組み込まれることが多いが 単体のスクリプトファイルとしておかれる場合、 拡張子は通常.vbsを使用する。