🏠

🌡️ 📆 令和6年5月2日

xml_tips

http://www.xml-cml.org/

http://www.atmarkit.co.jp/ait/articles/0103/23/news004_2.html

Dim objDOM, rtResult

02 :

03 : Set objDOM = WScript.CreateObject("MSXML2.DOMDocument")

04 : rtResult = objDOM.load("Sample.xml")

04': '文字列データから取得する場合は、以下のとおり

04': 'なお、strXMLDocumentには、文字列としてXMLドキュメントが

04': '格納されていると仮定します。

05 : rtResult = objDOM.loadXML(strXMLDocument)

06 : If rtResult = True Then

07 : procDispDatas objDOM.childNodes

08 : End If

09 : Set objDOM = Nothing

10 :

11 : Sub procDispDatas(objNode)

12 : Dim obj

13 : For Each obj In objNode

14 : If obj.nodeType = 3 and obj.parentNode.nodeName = "title" Then

15 : MsgBox obj.parentNode.nodeName & " : " & obj.nodeValue

16 : End If

17 : If obj.hasChildNodes Then

18 : procDispDatas obj.childNodes

19 : End If

20 : Next

21 : End Sub

http://www.kanaya440.com/contents/tips/vbs/002.html

XML文書を読み込む

ファイル読み込みの場合は load メソッド

文字列としての読み込みは loadXML メソッドを使用します。

＜load メソッド＞

1

'□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□

2

' ファイルとしてXML文書が与えられた場合

3

'□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□

4

Dim objDOM, rtResult

5

6

Set objDOM = WScript.CreateObject("MSXML2.DOMDocument")

7

rtResult = objDOM.load("FileName.xml")

8

MsgBox rtResult, vbInformation, "実行結果"

＜loadXML メソッド＞

01

'□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□

02

' 文字列データ（変数など）としてXML文書が与えられた場合

03

'□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□

04

Dim objDOM, rtResult, strXMLDoc2

05

06

'文字列データとして変数にXML文書を格納しています。

07

'実際には、関数のパラメータとして、これらのXML文書のデータを受け取る

08

'というケースが多いかと思われます

09

10

strXMLDoc = ""

11

strXMLDoc = strXMLDoc + "2500"

12

strXMLDoc = strXMLDoc + "1-1234-5678-X"

13

strXMLDoc = strXMLDoc + "西谷 亮"

14

strXMLDoc = strXMLDoc + "1-1234-5678-X.gif"

15

16

'メモリ上へのXML文書の展開

17

Set objDOM = WScript.CreateObject("MSXML2.DOMDocument")

18

rtResult = objDOM.loadXML(strXMLDoc)

19

MsgBox rtResult, vbInformation, "実行結果"

* load メソッドの 6 行目、loadXML メソッドの 17 行目

VBA の時 Set objDOM = WScript.CreateObject("MSXML2.DOMDocument")

ASP の時 Set objDOM = Server.CreateObject("MSXML2.DOMDocument")

VB の時 Set objDOM = CreateObject("MSXML2.DOMDocument")

---

https://edu.yz.yamagata-u.ac.jp/developer/type.asp?url=%2Fdeveloper%2FXml%2Fxml%5Ftips%2Etxt&charset=shift_jis

名称： 教育用公開ウェブサービス

URL： 🔗 https://edu.yz.yamagata-u.ac.jp/

管理運用 ： 山形大学 学術情報基盤センター

---

🎄🎂🌃🕯🎉

名称： サイバーキャンパス「鷹山」

URL: 🔗 http://amenity.yz.yamagata-u.ac.jp/

管理運用 ： 山形大学 データベースアメニティ研究会

〒992-8510 山形県米沢市城南4丁目3-16