|
ｿｽ@ｿｽｿｽMSXMLｿｽﾅの新ｿｽKｿｽ成ｿｽｿｽｿｽAXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ会ｿｽｿｽsｿｽRｿｽ[ｿｽhｿｽﾍ難ｿｽｿｽｿｽ驍ｱｿｽﾆは可能ｿｽﾅゑｿｽｿｽｿｽｿｽB
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
WEBｿｽｿｽｿｽm 2005/04/14(ｿｽｿｽ) 20:55:29
ｿｽﾂ具ｿｽｿｽF
ｿｽ@ｿｽｿｽｿｽｿｽ[VB6.0] XMLｿｽpｿｽ[ｿｽT[MSXML4.0](ｿｽｿｽｿｽｿｽ)
ｿｽyｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾊゑｿｽAWEBｿｽﾖ係ｿｽﾉつゑｿｽｿｽﾄの知ｿｽｿｽｿｽﾍ余ｿｽ閧ｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾈ会ｿｽｿｽﾉ、ｿｽｿｽｿｽｿｽｿｽeｿｽｿｽLｿｽqｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾙなゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽﾎ、
ｿｽｿｽｿｽwｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎと思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽiｿｽﾗ具ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽj
XMLｿｽ`ｿｽｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽﾌ読み搾ｿｽｿｽｿｽ/ｿｽVｿｽKｿｽｿｽｿｽｿｽｿｽﾝ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗ、MSXMLｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB(ｿｽXｿｽVｿｽﾍ厄ｿｽｿｽｿｽ)
ｿｽｿｽｿｽｿｽｿｽｿｽﾌ掲ｿｽｿｽｿｽﾂの暦ｿｽｿｽ等ゑｿｽｿｽｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽﾄ、ｿｽｿｽｿｽﾆゑｿｽｿｽﾇ搾ｿｽｿｽｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ`ｿｽﾜで辿ｿｽｿｽtｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾝにつゑｿｽｿｽﾄゑｿｽvｿｽfｿｽAｿｽｿｽｿｽｿｽｿｽACDATAｿｽｿｽｿｽﾌ値ｿｽ生撰ｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽuｿｽｿｽｿｽEｿｽUｿｽﾅ想ｿｽｿｽﾇゑｿｽｿｽｿｽﾌ階ｿｽwｿｽ¥ｿｽｿｽｿｽﾅ表ｿｽｿｽｿｽﾅゑｿｽｿｽ驍ｱｿｽﾆまで確ｿｽFｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽAｿｽｿｽｿｽAｿｽGｿｽfｿｽBｿｽ^ｿｽｿｽｿｽﾅ開ｿｽｿｽｿｽﾄみゑｿｽﾆ行ｿｽｿｽｿｽIｿｽﾉゑｿｽ2ｿｽsｿｽﾅ出ｿｽﾍゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
1ｿｽsｿｽﾚ：<?xml version="1.0"?>
2ｿｽsｿｽﾚ：<House Address="abc" Name="123"><Member Name ="xxx"/></House>
ｿｽｿｽｿｽｿｽ2ｿｽsｿｽﾚ以降ｿｽｿｽﾈゑｿｽﾆゑｿｽｿｽ^ｿｽOｿｽﾔ難ｿｽｿｽﾅ、ｿｽeｿｽLｿｽXｿｽgｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽsｿｽｿｽｿｽ黷ｽｿｽｿｽﾔで撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
MSXMLｿｽﾅの撰ｿｽｿｽｿｽﾍ厄ｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAXML(ｿｽｿｽｿｽｿｽｿｽｿｽﾍパｿｽ[ｿｽT)ｿｽﾆゑｿｽｿｽｿｽｿｽﾌは会ｿｽｿｽsｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽﾓ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽ
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽ[ｿｽiｿｽｿｽﾅブｿｽｿｽｿｽEｿｽUｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽGｿｽfｿｽBｿｽ^ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾌ確ｿｽFｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽ鼾ｿｽﾉ、ｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽ¥ｿｽzｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾈ会ｿｽｿｽAｿｽﾖぼゑｿｽｿｽﾆは思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾝ擾ｿｽｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽﾅゑｿｽｿｽB
--------------------------------------------
'' XMLｿｽｿｽ`
Set domDoc = New DOMDocument
'' XMLｿｽCｿｽｿｽｿｽｿｽ?ｿｽｿｽｿｽｿｽ
Set domDeclare = domDoc.createProcessingInstruction("xml", "version=""1.0""")
'' XMLｿｽCｿｽｿｽｿｽｿｽｿｽAｿｽyｿｽｿｽｿｽh
Call domDoc.appendChild(domDeclare)
'' ｿｽvｿｽfｿｽﾌ撰ｿｽｿｽｿｽｿｽﾆ托ｿｽｿｽｿｽｿｽﾌ設定処ｿｽｿｽ
'' ｿｽvｿｽfｿｽﾌ撰ｿｽｿｽｿｽ
Set domRootEle = domDoc.createElement("Sample")
Call domRootEle.setAttribute("x", "XXX")
Call domRootEle.setAttribute("y", "YYY")
Call domRootEle.setAttribute("z", "ZZZ")
''ｿｽqｿｽmｿｽ[ｿｽhｿｽﾌ要ｿｽfｿｽ謫ｾ
Set dom2ndElmnt = domDoc.createElement("Test")
Call domRootEle.appendChild(dom2ndElmnt)
Call dom2ndElmnt.setAttribute("a", "AAA")
Call dom2ndElmnt.setAttribute("b", "BBB")
Call dom2ndElmnt.setAttribute("c", "CCC")
ｿｽEｿｽEｿｽE(ｿｽｿｽｿｽｿｽ)ｿｽEｿｽEｿｽE
'CDATAｿｽZｿｽNｿｽVｿｽｿｽｿｽｿｽｿｽｿｽﾝ抵ｿｽ
Set domCdata = domDoc.createCDATASection("ABCDEFGHIJKLMN")
Call dom4thElmnt.appendChild(domCdata)
ｿｽ@ｿｽ@''ｿｽｿｽｿｽｿｽｿｽｿｽ
Call domDoc.Save("C:¥SAMPLE.XML")
--------------------------------------------------------------
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽsｿｽRｿｽ[ｿｽhｿｽｿｽﾜゑｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾝ、
ｿｽｿｽｿｽﾌまま別フｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽ(save)ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽADiffｿｽｿｽﾆゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ会ｿｽｿｽsｿｽﾊ置ｿｽﾍ異なゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽﾍ会ｿｽｿｽsｿｽｿｽｿｽ黷ｽｿｽｿｽﾔゑｿｽ
ｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽeｿｽvｿｽfｿｽ竭ｮｿｽｿｽｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽﾍ全ｿｽﾄ難ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝ前ｿｽﾌデｿｽ[ｿｽ^ｿｽﾍ会ｿｽｿｽsｿｽﾌみで、ｿｽﾆゑｿｽｿｽﾉタｿｽuｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽﾝ鯉ｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾉネｿｽXｿｽgｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾄ、ｿｽ^ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽﾅ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ
ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾌようｿｽﾈゑｿｽｿｽﾆゑｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽVｿｽKｿｽ成ｿｽﾅゑｿｽｿｽｿｽﾌようｿｽﾈ構ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽvｿｽｿｽｿｽｿｽせてゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾌようｿｽﾉ行ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽVｿｽKｿｽ成ｿｽﾆ読搾ｿｽｿｽｿｽﾛ托ｿｽ(ｿｽXｿｽV)ｿｽﾅどのようｿｽﾉオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ難ｿｽｿｽがｿｽ痰､ｿｽﾌゑｿｽｿｽﾈゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽEｿｽEｿｽEｿｽ}ｿｽXｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ(^^;;;
ｿｽｿｽｿｽﾝ、ｿｽｿｽｿｽｿｽｿｽﾝ擾ｿｽｿｽｿｽｿｽﾍ、"appendChild"ｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾈ外ｿｽﾌスｿｽLｿｽｿｽｿｽﾍ趣ｿｽｿｽﾉゑｿｽ
ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽAｿｽﾈにゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2005/04/15(ｿｽｿｽ) 12:03:17
# MSXMLｿｽﾖ係ｿｽﾍ、ｿｽﾅ近使ｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌで忘ｿｽｿｽCｿｽｿｽｿｽcｿｽcｿｽB
> MSXMLｿｽﾅの新ｿｽKｿｽ成ｿｽｿｽｿｽAXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ会ｿｽｿｽsｿｽRｿｽ[ｿｽhｿｽﾍ難ｿｽｿｽｿｽ驍ｱｿｽﾆは可能ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽPｿｽｿｽｿｽﾉ会ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾈゑｿｽA
Set Root = DomDoc.createElement("Root")
Root.text = vbNewLine
ｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽ驍｢ｿｽﾍ、ｿｽqｿｽmｿｽ[ｿｽhｿｽﾌ前ｿｽｿｽﾉ会ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽ驍ｽｿｽﾟに、
Call Root.appendChild(domDoc.createTextNode(vbNewLine))
Call Root.appendChild(domDoc.createElement("Child"))
Call Root.appendChild(domDoc.createTextNode(vbNewLine))
ｿｽﾈどとゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾆで趣ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAXMLｿｽIｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾎ、
<a><b /></a>
ｿｽﾆ、
<a>
<b />
</a>
ｿｽﾍ、ｿｽﾊの構ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ_ｿｽﾉは気ｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽOｿｽﾒは、aｿｽvｿｽfｿｽmｿｽ[ｿｽhｿｽﾌ抵ｿｽｿｽgｿｽｿｽbｿｽvｿｽfｿｽmｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽｿｽﾒゑｿｽaｿｽvｿｽfｿｽﾌノｿｽ[ｿｽhｿｽﾌ抵ｿｽｿｽgｿｽﾍ、ｿｽeｿｽLｿｽXｿｽgｿｽmｿｽ[ｿｽh(ｿｽｿｽｿｽs+ｿｽｿｽ)ｿｽA
bｿｽvｿｽfｿｽmｿｽ[ｿｽhｿｽAｿｽeｿｽLｿｽXｿｽgｿｽmｿｽ[ｿｽh(ｿｽｿｽｿｽs)ｿｽｿｽ3ｿｽﾂゑｿｽｿｽｿｽｿｽﾝゑｿｽｿｽ驍ｱｿｽﾆになゑｿｽﾜゑｿｽｿｽB
> '' XMLｿｽCｿｽｿｽｿｽｿｽ?ｿｽｿｽｿｽｿｽ
XMLｿｽ骭ｾ(XML Declaration)ｿｽﾅゑｿｽｿｽﾋ。
http://www.atmarkit.co.jp/aig/01xml/declaration.html
> ｿｽEｿｽEｿｽE(ｿｽｿｽｿｽｿｽ)ｿｽEｿｽEｿｽE
ｿｽﾈ暦ｿｽｿｽｿｽｿｽｿｽﾌは構ｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽﾟて、ｿｽcｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ、
ｿｽｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽすｿｽｿｽ謔､ｿｽﾈコｿｽ[ｿｽhｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB(^^;
ｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽAｿｽ示ゑｿｽｿｽ黷ｽｿｽRｿｽ[ｿｽhｿｽﾅゑｿｽ
> 2ｿｽsｿｽﾚ：<House Address="abc" Name="123"><Member Name ="xxx"/></House>
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾊになゑｿｽﾆゑｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽし。
> ｿｽｿｽｿｽｿｽｿｽﾝ鯉ｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾉネｿｽXｿｽgｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾄ、ｿｽ^ｿｽuｿｽｿｽ
> ｿｽｿｽｿｽｿｽｿｽﾅ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
DOMDocument ｿｽｿｽ ｿｽwpreserveWhiteSpace ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽ False ｿｽﾌ擾ｿｽﾔ』ｿｽｿｽ
loadｿｽｿｽｿｽ¥ｿｽbｿｽh(ｿｽｿｽloadXMLｿｽｿｽｿｽ¥ｿｽbｿｽh)ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽzｿｽｿｽｿｽCｿｽgｿｽXｿｽyｿｽ[ｿｽXｿｽﾌみゑｿｽ
ｿｽeｿｽLｿｽXｿｽgｿｽmｿｽ[ｿｽhｿｽｿｽｿｽmｿｽ[ｿｽhｿｽﾌイｿｽｿｽｿｽfｿｽｿｽｿｽgｿｽﾆゑｿｽｿｽﾄ撰ｿｽｿｽ`ｿｽｿｽｿｽｿｽﾄ読み搾ｿｽｿｽﾜゑｿｽﾜゑｿｽｿｽﾋ。
ｿｽﾈゑｿｽｿｽAloadｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾉは、ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ("C:¥SAMPLE.XML")ｿｽｿｽnｿｽｿｽｿｽｿｽｿｽﾆゑｿｽ
ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌスｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽnｿｽｿｽｿｽｿｽｿｽﾆゑｿｽﾂ能ｿｽﾅゑｿｽｿｽB
Set domDoc2 = New MSXML2.DOMDocument50
domDoc2.preserveWhiteSpace = False
domDoc2.async = False
domDoc2.load domDoc
Debug.Print domDoc2.xml
