|
ｿｽ@ｿｽｿｽutf-8ｿｽ`ｿｽｿｽｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽDOMｿｽｿｽLoadｿｽｿｽｿｽｿｽﾉは？
|
ｿｽ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
sumomo 2008/01/30(ｿｽｿｽ) 07:54:20
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
VB6.0(SP6)ｿｽﾅ、MSXML2.DOMDocument50ｿｽ利用ｿｽｿｽｿｽﾄ、encoding="utf-8"ｿｽ`ｿｽｿｽｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽloadｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ際に、ｿｽ^ｿｽOｿｽｿｽvalueｿｽｿｽ" "ｿｽﾌゑｿｽﾌゑｿｽ?ｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽﾉ費ｿｽｿｽpｿｽ白とゑｿｽｿｽﾄ認ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽ ｿｽﾍ費ｿｽｿｽpｿｽｿｽ
---XMLｿｽtｿｽ@ｿｽCｿｽｿｽ(C:¥text.xml)-----
<?xml version="1.0" encoding="utf-8"?>
<sample> </sample>
----VB-------
dim domdoc50 as MSXML2.DOMDocument50
set domdoc50 = new MSXML2.DOMDocument50
if domdoc50.load("C¥text.xml") then
debug.print domdoc50.xml
end if
---ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽ----
<sample>?</sample>
ｿｽｿｽｿｽｿｽ 2008/01/30(ｿｽｿｽ) 10:34:41
ｿｽｿｽｿｽｿｽxmlｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾍ本ｿｽｿｽｿｽｿｽUTF-8ｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅ記ｿｽﾚゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
YuO 2008/01/30(ｿｽｿｽ) 11:17:31
ｿｽPｿｽﾉ，debug.printｿｽﾅチｿｽFｿｽbｿｽNｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽﾅはなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
6.0ｿｽﾜでゑｿｽ32bitｿｽｿｽVBｿｽﾍ，ｿｽｿｽｿｽｿｽｿｽUnicodeｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽoｿｽﾍ系ｿｽｿｽShift_JIS (ｿｽｿｽｿｽ{ｿｽｿｽﾅの場合) ｿｽﾅゑｿｽｿｽB
U+00A0 NO-BREAK SPACEｿｽｿｽShift_JISｿｽﾌ範囲難ｿｽﾉ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈので，?ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
sumomo 2008/02/01(ｿｽｿｽ) 06:58:10
ｿｽ答ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>6.0ｿｽﾜでゑｿｽ32bitｿｽｿｽVBｿｽﾍ，ｿｽｿｽｿｽｿｽｿｽUnicodeｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽoｿｽﾍ系ｿｽｿｽShift_JIS (ｿｽｿｽｿｽ{ｿｽｿｽﾅの場合) ｿｽﾅゑｿｽｿｽB
>U+00A0 NO-BREAK SPACEｿｽｿｽShift_JISｿｽﾌ範囲難ｿｽﾉ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈので，?ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈゑｿｽﾙど。
ｿｽmｿｽｿｽｿｽﾉ、domdoc50.load("C¥text.xml")ｿｽﾅ読み搾ｿｽｿｽｿｽXMLｿｽｿｽ
domdoc50.save("C:¥test2.xml")ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾉフｿｽ@ｿｽCｿｽｿｽｿｽﾉ出ｿｽﾍゑｿｽｿｽｿｽｿｽ
?ｿｽﾍ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾈ会ｿｽｿｽﾌようｿｽﾉなゑｿｽﾜゑｿｽｿｽB
---XMLｿｽtｿｽ@ｿｽCｿｽｿｽ(C:¥text.xml)-----
<?xml version="1.0" encoding="utf-8"?>
<sample> </sample>
---XMLｿｽtｿｽ@ｿｽCｿｽｿｽ(C:¥text2.xml)-----
<?xml version="1.0" encoding="utf-8"?>
<sample> </sample>
ｿｽｿｽｿｽｿｽﾅは、domdoc50.load("C¥text.xml")ｿｽﾅ読み搾ｿｽｿｽｿｽXMLｿｽｿｽAShift_JISｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅ編集ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、encording = utf-8ｿｽ`ｿｽｿｽｿｽﾅ出ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/02/01(ｿｽｿｽ) 11:11:56
> Shift_JISｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅ編集ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾍ具ｿｽﾌ的ｿｽﾉは、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ?
VB6 ｿｽｿｽ String ｿｽ^ｿｽﾍ、ｿｽｿｽｿｽｿｽIｿｽﾉゑｿｽ UTF-16 ｿｽｿｽｿｽｿｽｿｽﾌバｿｽCｿｽiｿｽｿｽｿｽﾆゑｿｽｿｽﾄ格ｿｽ[ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
Left / Mid / Right / Replace ｿｽｿｽﾍゑｿｽｿｽﾟとゑｿｽｿｽｿｽﾖ撰ｿｽｿｽQｿｽｿｽAｿｽｿｽｿｽｿｽｿｽOｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、
Shift_JIS ｿｽﾅエｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽ黷ｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽﾍでゑｿｽｿｽﾜゑｿｽｿｽｿｽB
StrConv ｿｽｿｽgｿｽｿｽｿｽﾈどゑｿｽｿｽﾄ、UTF-16 ｿｽﾈ外ｿｽｿｽ(Shift_JISｿｽﾈどゑｿｽ)ｿｽoｿｽCｿｽiｿｽｿｽｿｽｿｽAString ｿｽﾏ撰ｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟるこｿｽﾆは可能ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ場合ｿｽAVB ｿｽWｿｽｿｽｿｽﾌ関撰ｿｽｿｽﾍ使ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
Print # ｿｽXｿｽeｿｽ[ｿｽgｿｽｿｽｿｽｿｽｿｽgｿｽｿｽ Print ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾍ、String ｿｽｿｽuShift_JISｿｽvｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽA
Line Input # ｿｽXｿｽeｿｽ[ｿｽgｿｽｿｽｿｽｿｽｿｽgｿｽｿｽ InputBox ｿｽﾖ撰ｿｽｿｽﾍ、ｿｽuShift_JISｿｽvｿｽﾅデｿｽ[ｿｽ^ｿｽ得まゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾍ、String ｿｽﾌ難ｿｽｿｽｿｽｿｽ UTF-16 ｿｽﾅゑｿｽｿｽ骼厄ｿｽｿｽOｿｽｿｽﾉ、Unicode ｿｽｿｽ ANSI ｿｽﾏ奇ｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽｿｽB
> encording = utf-8ｿｽ`ｿｽｿｽｿｽﾅ出ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Save ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ茨ｿｽｿｽｿｽｿｽﾉ、ｿｽuｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ StringｿｽvｿｽﾅはなゑｿｽｿｽA
ｿｽuUTF-8 ｿｽGｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽ Streamｿｽvｿｽｿｽnｿｽｿｽｿｽｿｽ OK ｿｽﾅゑｿｽｿｽB
Set stm = New ADODB.Stream
stm.Type = adTypeText
stm.Charset = "UTF-8"
stm.Open
doc.save stm
stm.SaveToFile "C:¥sample.xml", adSaveCreateOverWrite
stm.Close
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾌ場合ｿｽA<?xml verion="1.0" encoding="ｿｽｿｽｿｽｿｽｿｽｿｽ"?> ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ行ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ出ｿｽﾍ前ｿｽﾉ編集ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
sumomo 2008/02/02(ｿｽy) 00:28:34
>ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽl
ｿｽｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>> Shift_JISｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅ編集ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
>ｿｽｿｽｿｽｿｽﾍ具ｿｽﾌ的ｿｽﾉは、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ?
ｿｽﾋゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽﾌ的ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆは以会ｿｽｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽBShift_JISｿｽﾅゑｿｽ
ｿｽ@ｿｽﾈゑｿｽUnicode(utf-16)ｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽBｿｽB
ｿｽ@ｿｽ@encording='utf-8'ｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽVB6.0ｿｽｿｽｿｽMSXMLｿｽpｿｽ[ｿｽT(DOM)ｿｽﾅ読み搾ｿｽｿｽﾞ。
ｿｽ@ｿｽAｿｽﾇみ搾ｿｽｿｽｿｽXMLｿｽｿｽVB6.0ｿｽｿｽｿｽMSXMLｿｽpｿｽ[ｿｽT(DOM)ｿｽﾅ編集ｿｽｿｽｿｽﾄ、nodeｿｽﾌ追会ｿｽｿｽAｿｽ除ｿｽﾈどゑｿｽsｿｽｿｽ)ｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽBｿｽﾒ集ｿｽｿｽｿｽｿｽXMLｿｽｿｽAUTF-8ｿｽ`ｿｽｿｽｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽｿｽB
ｿｽﾅゑｿｽｿｽB
>Save ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ茨ｿｽｿｽｿｽｿｽﾉ、ｿｽuｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ StringｿｽvｿｽﾅはなゑｿｽｿｽA
>ｿｽuUTF-8 ｿｽGｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽ Streamｿｽvｿｽｿｽnｿｽｿｽｿｽｿｽ OK ｿｽﾅゑｿｽｿｽB
>Set stm = New ADODB.Stream
>stm.Type = adTypeText
>stm.Charset = "UTF-8"
>stm.Open
>doc.save stm
>stm.SaveToFile "C:¥sample.xml", adSaveCreateOverWrite
>stm.Close
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾌ場合ｿｽA<?xml verion="1.0" encoding="ｿｽｿｽｿｽｿｽｿｽｿｽ"?> ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ行ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ出ｿｽﾍ前ｿｽﾉ編集ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽ>ｿｽﾜゑｿｽｿｽB
ｿｽﾋゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽ邇趣ｿｽｿｽｿｽﾄみまゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽﾜゑｿｽｿｽLｿｽﾚゑｿｽｿｽﾜゑｿｽｿｽB
sumomo 2008/02/02(ｿｽy) 09:03:00
ｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
>> Shift_JISｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅ編集ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
>ｿｽｿｽｿｽｿｽﾍ具ｿｽﾌ的ｿｽﾉは、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ?
>ｿｽﾋゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽﾌ的ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆは以会ｿｽｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽBShift_JISｿｽﾅゑｿｽ
>ｿｽ@ｿｽﾈゑｿｽUnicode(utf-16)ｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽBｿｽB
>ｿｽ@ｿｽ@encording='utf-8'ｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽVB6.0ｿｽｿｽｿｽMSXMLｿｽpｿｽ[ｿｽT(DOM)ｿｽﾅ読み搾ｿｽｿｽﾞ。
>ｿｽ@ｿｽAｿｽﾇみ搾ｿｽｿｽｿｽXMLｿｽｿｽVB6.0ｿｽｿｽｿｽMSXMLｿｽpｿｽ[ｿｽT(DOM)ｿｽﾅ編集ｿｽｿｽｿｽﾄ、nodeｿｽﾌ追会ｿｽｿｽAｿｽ除ｿｽﾈどゑｿｽsｿｽｿｽ)ｿｽｿｽｿｽｿｽB
>ｿｽ@ｿｽBｿｽﾒ集ｿｽｿｽｿｽｿｽXMLｿｽｿｽAUTF-8ｿｽ`ｿｽｿｽｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽｿｽB
ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ@ｿｽ@encording='utf-8'ｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽVB6.0ｿｽｿｽｿｽMSXMLｿｽpｿｽ[ｿｽT(DOM)ｿｽﾅ読み搾ｿｽｿｽﾞ。
ｿｽ@ｿｽAｿｽﾇみ搾ｿｽｿｽｿｽXMLｿｽｿｽVB6.0ｿｽｿｽｿｽMSXMLｿｽpｿｽ[ｿｽT(DOM)ｿｽﾅ編集ｿｽｿｽｿｽﾄ、nodeｿｽﾌ追会ｿｽｿｽAｿｽ除ｿｽﾈどゑｿｽsｿｽｿｽ)ｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽBDomDocument.xmlｿｽｿｽStringｿｽﾏ撰ｿｽｿｽﾉ托ｿｽｿｽｿｽB
ｿｽ@ｿｽCStringｿｽﾏ撰ｿｽｿｽﾉ格ｿｽ[ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽDOMｿｽｿｽloadｿｽB
ｿｽ@ｿｽDDOMｿｽｿｽloadｿｽｿｽｿｽｿｽstringｿｽｿｽｿｽｿｽｿｽｿｽｿｽAUTF-8ｿｽ`ｿｽｿｽｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽｿｽB
ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/02/02(ｿｽy) 12:50:23
>(1)encording='utf-8'ｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽVB6.0ｿｽｿｽｿｽMSXMLｿｽpｿｽ[ｿｽT(DOM)ｿｽﾅ読み搾ｿｽｿｽﾞ。
>(2)ｿｽﾇみ搾ｿｽｿｽｿｽXMLｿｽｿｽVB6.0ｿｽｿｽｿｽMSXMLｿｽpｿｽ[ｿｽT(DOM)ｿｽﾅ編集ｿｽｿｽｿｽﾄ、nodeｿｽﾌ追会ｿｽｿｽAｿｽ除ｿｽﾈどゑｿｽsｿｽｿｽ)ｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾜでは良ゑｿｽｿｽﾆゑｿｽｿｽﾄ。
>(3)DomDocument.xmlｿｽｿｽStringｿｽﾏ撰ｿｽｿｽﾉ托ｿｽｿｽｿｽB
>(4)Stringｿｽﾏ撰ｿｽｿｽﾉ格ｿｽ[ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽDOMｿｽｿｽloadｿｽB
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽﾌゑｿｽｿｽﾟに必ｿｽvｿｽﾈのでゑｿｽｿｽ蛯､?
>(5)DOMｿｽｿｽloadｿｽｿｽｿｽｿｽstringｿｽｿｽｿｽｿｽｿｽｿｽｿｽAUTF-8ｿｽ`ｿｽｿｽｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ UTF-8 ｿｽﾌテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、
ADODB.Stream ｿｽｿｽWriteText ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽ SaveToFile ｿｽｿｽｿｽｿｽｿｽ OKｿｽB
sumomo 2008/02/03(ｿｽｿｽ) 05:53:00
ｿｽｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>(3)DomDocument.xmlｿｽｿｽStringｿｽﾏ撰ｿｽｿｽﾉ托ｿｽｿｽｿｽB
>(4)Stringｿｽﾏ撰ｿｽｿｽﾉ格ｿｽ[ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽDOMｿｽｿｽloadｿｽB
>ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽﾌゑｿｽｿｽﾟに必ｿｽvｿｽﾈのでゑｿｽｿｽ蛯､?
ｿｽﾋ別の関撰ｿｽｿｽﾉ茨ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ渡ｿｽｿｽｿｽﾛゑｿｽStringｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
(ｿｽﾖ撰ｿｽｿｽﾅ要ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽStringｿｽﾌゑｿｽｿｽｿｽ)
ｿｽCｿｽﾉなゑｿｽ_ｿｽﾆゑｿｽｿｽﾄは、UTF-8ｿｽ`ｿｽｿｽｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽDOMｿｽﾉ読み搾ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ、
DOMｿｽｿｽｿｽAUTF-8ｿｽ`ｿｽｿｽｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽVB6.0ｿｽﾅ使ｿｽpｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽUnicode(UTF-16)ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽIｿｽﾉ変奇ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ_ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽIｿｽﾉ変奇ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、DOMｿｽﾌ各ｿｽmｿｽ[ｿｽhｿｽﾉ対ゑｿｽｿｽﾄ、nodeValueｿｽﾈどゑｿｽstringｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ直接托ｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽNGｿｽﾅ、ｿｽﾏ奇ｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
>ｿｽ@encording='utf-8'ｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽVB6.0ｿｽｿｽｿｽMSXMLｿｽpｿｽ[ｿｽT(DOM)ｿｽﾅ読み搾ｿｽｿｽﾞ。
>(5)DOMｿｽｿｽloadｿｽｿｽｿｽｿｽstringｿｽｿｽｿｽｿｽｿｽｿｽｿｽAUTF-8ｿｽ`ｿｽｿｽｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽｿｽB
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ UTF-8 ｿｽﾌテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、
>ADODB.Stream ｿｽｿｽWriteText ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽ SaveToFile ｿｽｿｽｿｽｿｽｿｽ OKｿｽB
ｿｽﾋ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/02/03(ｿｽｿｽ) 21:13:21
> DOMｿｽｿｽｿｽAUTF-8ｿｽ`ｿｽｿｽｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽVB6.0ｿｽﾅ使ｿｽpｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽUnicode(UTF-16)ｿｽｿｽ
> ｿｽｿｽｿｽｿｽｿｽIｿｽﾉ変奇ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ_ｿｽﾅゑｿｽｿｽB
String ｿｽ^ｿｽﾉ、ｿｽｿｽｿｽｿｽ UTF-8 ｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽnｿｽｿｽｿｽｿｽ骼厄ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
COM ｿｽﾌ撰ｿｽｿｽEｿｽﾉゑｿｽｿｽｿｽｿｽﾄは、String ｿｽ^ｿｽﾍ奇ｿｽ{ｿｽIｿｽｿｽ Unicode ｿｽfｿｽ[ｿｽ^ｿｽﾆゑｿｽｿｽｿｽ
ｿｽﾇ暦ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽIｿｽﾉは、ｿｽｿｽｿｽｿｽｿｽ UCS-2 (UTF-16) ｿｽｿｽｿｽｿｽｿｽﾌバｿｽCｿｽiｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾂまゑｿｽﾊ擾ｿｽﾍ、ｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ驍ｩｿｽｿｽﾓ趣ｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾍ厄ｿｽｿｽｿｽｿｽA
MSXML ｿｽﾉｿｽｿｽ[ｿｽhｿｽｿｽｿｽ黷ｽ XML ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽAnodeValue ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽｿｽｿｽﾊゑｿｽｿｽｿｽ
ｿｽuString ｿｽ^ｿｽvｿｽﾅ受け渡ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛには、ｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾍ、ｿｽｿｽｿｽ
UTF-16 ｿｽｿｽ Unicode ｿｽfｿｽ[ｿｽ^ｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ、MSXML ｿｽﾌ難ｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽAｿｽｿｽｿｽ UTF-16 ｿｽﾅ抵ｿｽﾅゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
MSXML ｿｽｿｽ load ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾍ、ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽURLｿｽｿｽ¥ｿｽｿｽｿｽuｿｽｿｽｿｽｿｽｿｽｿｽ(String ｿｽﾜゑｿｽｿｽｿｽ Byteｿｽzｿｽｿｽ)ｿｽvｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽA
ｿｽｿｽｿｽﾉゑｿｽ XML ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽuｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽ(IStream, ISequentialStream, IPersistStream)ｿｽvｿｽｿｽnｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB(ASP ｿｽｿｽ Request ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽAADODB ｿｽｿｽ Stream ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾈゑｿｽ)
MSXML ｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾝゑｿｽsｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉゑｿｽ(ｿｽﾜゑｿｽｿｽﾍ、ｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ MSXML ｿｽﾉ保托ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉゑｿｽ)ｿｽA
ｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽ UTF-8 ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉは、Call .Save("C:¥sample.xml") ｿｽﾌ鯉ｿｽｿｽﾊは、ｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽｿｽ
UTF-8 ｿｽ`ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾅ出ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽB(ｿｽｿｽｿｽｿｽ euc-jp ｿｽﾈゑｿｽAeuc-jp ｿｽﾌまゑｿｽ)
ｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽoｿｽﾍ鯉ｿｽｿｽﾊの包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、ｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌようｿｽﾉ、Save ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ茨ｿｽｿｽｿｽｿｽｿｽ
ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾅはなゑｿｽｿｽAｿｽuｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽvｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽ OK ｿｽﾅゑｿｽｿｽB
> nodeValueｿｽﾈどゑｿｽstringｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ直接托ｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽNGｿｽﾅ、ｿｽﾏ奇ｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽLｿｽﾌようｿｽﾈ暦ｿｽｿｽRｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏ奇ｿｽｿｽﾍ不ｿｽvｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽA(ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅはなゑｿｽ)ｿｽｿｽｿｽｿｽｿｽWｿｽｿｽｿｽﾌ点ｿｽｿｽｿｽ迪ｾｿｽｿｽｿｽﾎ、ｿｽ痰ｦｿｽｿｽ Shift_JIS ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ場合ｿｽA
http://support.microsoft.com/kb/170559/ja
http://support.microsoft.com/kb/286776/ja
ｿｽﾌようｿｽﾉ、Unicode ｿｽﾆの間での変奇ｿｽｿｽｿｽﾌ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂ能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
(UTF-8 ｿｽﾌ場合ｿｽﾍ、UTF-16 ｿｽｿｽｿｽｿｽｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ驍ｽｿｽﾟ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ費ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾈみゑｿｽ loadXML ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾍ、UTF-16 ｿｽoｿｽCｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ String ｿｽｿｽけ趣ｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽ <?xml version="1.0" encoding="ｿｽ`"?> ｿｽｿｽ encoding ｿｽwｿｽｿｽ無趣ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
sumomo 2008/02/10(ｿｽｿｽ) 14:26:27
ｿｽｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽeｿｽｿｽｿｽxｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽﾄ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾜで、ｿｽｿｽｿｽｿｽIｿｽﾈ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾜゑｿｽﾓ趣ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟ、
ｿｽｿｽｿｽｿｽﾌ変奇ｿｽｿｽﾌ厄ｿｽｿｽﾍ費ｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾟになゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽﾌ会ｿｽｿｽｿｽｿｽｿｽｿｽﾉ抵ｿｽｿｽJｿｽﾅ暦ｿｽｿｽｿｽﾌ手助ｿｽｿｽｿｽﾉなゑｿｽｿｽﾄまゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌトｿｽsｿｽbｿｽNｿｽﾌ最擾ｿｽｿｽﾅ起ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ" "ｿｽｿｽ"?"ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾄ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ搾ｿｽｿｽAｿｽｿｽｿｽｿｽﾆ撰ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾔでゑｿｽｿｽB
(ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽE)
ｿｽﾜゑｿｽｿｽA" "ｿｽﾍ、UTF-8,16ｿｽﾉは托ｿｽｿｽﾝゑｿｽｿｽ驍ｪｿｽAShift_JISｿｽﾉは托ｿｽｿｽﾝゑｿｽｿｽﾈゑｿｽｿｽB
ｿｽｿｽｿｽﾌゑｿｽｿｽﾟ、UTF-8ｿｽｿｽｿｽｿｽAShift_JISｿｽ`ｿｽｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽﾉ出ｿｽﾍゑｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽﾆ、
ｿｽﾏ奇ｿｽｿｽﾅゑｿｽｿｽｿｽ"?"ｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
UTF-8ｿｽｿｽUTF-16(VB6.0ｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽh)ｿｽｿｽShift_JIS(ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽoｿｽｿｽ)ｿｽｿｽUTF-16(VB6.0ｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽh)ｿｽｿｽUTF-8ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾌ変奇ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾛには、
Shitf_JISｿｽﾉ変奇ｿｽｿｽｿｽｿｽｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽｿｽ?ｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽﾌ鯉ｿｽUTF-8ｿｽﾉ変奇ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾄゑｿｽ?ｿｽﾌままになゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽLｿｽﾌ課托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは、" "ｿｽｿｽShift_JISｿｽﾉ変奇ｿｽｿｽｿｽｿｽｿｽﾛに、ｿｽｿｽｿｽｿｽｿｽ痰､ｿｽｿｽｿｽｿｽ(ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ"nbsp")ｿｽﾉ置ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽAShift_JISｿｽｿｽUNICODEｿｽﾉ変奇ｿｽｿｽｿｽｿｽｿｽﾛゑｿｽAｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ" "ｿｽﾉ変奇ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾜでは、ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽAｿｽｿｽｿｽﾌ会ｿｽｿｽｿｽｿｽｿｽﾍ搾ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ皷橸ｿｽrｿｽｿｽｿｽoｿｽﾟのみゑｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽBｿｽB
exp 2008/04/11(ｿｽｿｽ) 12:48:20
ｿｽｿｽｿｽｿｽｿｽｿｽdｿｽﾋてゑｿｽｿｽ驍､ｿｽｿｽｿｽﾉ、ｿｽ{ｿｽfｿｽｿｽｿｽﾂにゑｿｽｿｽﾇり着ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽBｿｽB
ｿｽｿｽｿｽｿｽuXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽUTF-8ｿｽ`ｿｽｿｽｿｽﾅの編集ｿｽAｿｽVｿｽKｿｽ成ｿｽvｿｽｿｽ
VB6.0(SP6)ｿｽﾉてコｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽﾈ会ｿｽｿｽﾌ難ｿｽeｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽBｿｽB
ｿｽｿｽｿｽｿｽｿｽﾊ費ｿｽｿｽｿｽｿｽﾅゑｿｽ
> encording = utf-8ｿｽ`ｿｽｿｽｿｽﾅ出ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Save ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ茨ｿｽｿｽｿｽｿｽﾉ、ｿｽuｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ StringｿｽvｿｽﾅはなゑｿｽｿｽA
ｿｽuUTF-8 ｿｽGｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽ Streamｿｽvｿｽｿｽnｿｽｿｽｿｽｿｽ OK ｿｽﾅゑｿｽｿｽB
Set stm = New ADODB.Stream
stm.Type = adTypeText
stm.Charset = "UTF-8"
stm.Open
doc.save stm
stm.SaveToFile "C:¥sample.xml", adSaveCreateOverWrite
stm.Close
ｿｽｿｽLｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾆ、MSXML2.Domdocument30ｿｽｿｽsaveｿｽｿｽｿｽ¥ｿｽbｿｽh
(doc.save stmｿｽﾌ包ｿｽｿｽｿｽ)ｿｽﾅ茨ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾌエｿｽｿｽｿｽ[ｿｽﾉてゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
MSXMLｿｽｿｽ XML Version,3.0
ADODBｿｽｿｽMicrosoft ActiveX Data Objects2.5
ｿｽｿｽQｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
xmlsdk30ｿｽwｿｽｿｽｿｽvｿｽｿｽmｿｽFｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAIStreamｿｽiStreamｿｽﾆは違うｿｽHｿｽjｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ可能ｿｽﾌようｿｽﾈ（ｿｽpｿｽｿｽﾈので。ｿｽBｿｽjｿｽｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽが、ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽ驍｢ｿｽﾍ托ｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽUTF-8ｿｽ`ｿｽｿｽｿｽﾅの作成ｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽ轤ｲｿｽｿｽｿｽｿｽｿｽﾌ抵ｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽ¥ｿｽｿｽｿｽ繧ｰｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/04/11(ｿｽｿｽ) 13:27:59
> ｿｽｿｽｿｽｿｽuXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽUTF-8ｿｽ`ｿｽｿｽｿｽﾅの編集ｿｽAｿｽVｿｽKｿｽ成ｿｽvｿｽｿｽ
> VB6.0(SP6)ｿｽﾉてコｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾆなゑｿｽﾌは、ｿｽuｿｽﾒ集ｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽuｿｽﾛ托ｿｽｿｽvｿｽｿｽｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ?
DomDocument.Save ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅの保托ｿｽｿｽﾍ、ｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽ XML ｿｽfｿｽ[ｿｽ^ｿｽｿｽ
<?xml version='1.0' encoding='euc-jp'?>
ｿｽﾈどゑｿｽ encoding ｿｽwｿｽｿｽﾉ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽﾓゑｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽwｿｽ閧ｵｿｽﾄ保托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、
ｿｽ@doc.Save stm
ｿｽﾌ托ｿｽｿｽｿｽﾉ、
ｿｽ@stm.WriteText doc.xml
ｿｽﾌ構ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽﾌ難ｿｽｿｽeｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽ
>>>> ADODB.Stream ｿｽｿｽWriteText ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽ SaveToFile ｿｽｿｽｿｽｿｽｿｽ OKｿｽB
ｿｽﾌ擾ｿｽｿｽｿｽｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
xml ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽgｿｽｿｽｿｽｿｽｿｽ@ｿｽﾌ場合ｿｽA<?xml version="1.0"?> ｿｽｿｽｿｽｿｽ
encoding ｿｽwｿｽ閧ｪｿｽtｿｽｿｽｿｽﾜゑｿｽｿｽが、UTF-8 (ｿｽｿｽｿｽ驍｢ｿｽｿｽ UTF-16)ｿｽﾌ場合ｿｽﾍ、
encoding ｿｽwｿｽ閧ｪｿｽsｿｽvｿｽﾈので、ｿｽｿｽｿｽﾉ厄ｿｽｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽ@
> ｿｽｿｽLｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾆ、MSXML2.Domdocument30ｿｽｿｽsaveｿｽｿｽｿｽ¥ｿｽbｿｽh
> (doc.save stmｿｽﾌ包ｿｽｿｽｿｽ)ｿｽﾅ茨ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾌエｿｽｿｽｿｽ[ｿｽﾉてゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ際の、ｿｽｿｽﾌ的ｿｽﾈエｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾍ会ｿｽｿｽﾅゑｿｽｿｽｿｽ?
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、doc.parseError.errorCode <> 0 ｿｽﾆなゑｿｽAｿｽﾙ擾ｿｽｿｽ XML ｿｽｿｽ
ｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽ黷ｽｿｽｿｽﾔゑｿｽ DOM ｿｽｿｽ Save ｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽｿｽ鼾ｿｽA
doc.parseError.reason ｿｽｿｽｿｽｿｽｿｽﾌエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ驍｢ｿｽﾍ、ｿｽﾛ托ｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾉゑｿｽｿｽﾄゑｿｽA
ｿｽ@doc.Save stm
ｿｽﾈゑｿｽﾎ撰ｿｽｿｽｿｽﾉ難ｿｽｿｽすｿｽｿｽRｿｽ[ｿｽhｿｽｿｽA
ｿｽ@doc.Save(stm)
ｿｽﾉゑｿｽｿｽｿｽﾆ、ｿｽGｿｽｿｽｿｽ[438ｿｽｿｽ
ｿｽuｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾍ、ｿｽｿｽｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾜゑｿｽｿｽﾍｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽv
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
> IStreamｿｽiStreamｿｽﾆは違うｿｽHｿｽjｿｽｿｽ
ADODB ｿｽｿｽ Stream ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽAMSXML ｿｽｿｽ DOMDocument ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾍ、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽuIStream ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽtｿｽFｿｽCｿｽXｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ COM ｿｽNｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽB
exp 2008/04/11(ｿｽｿｽ) 14:04:24
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽl
ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
>DomDocument.Save ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅの保托ｿｽｿｽﾍ、ｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽ XML ｿｽfｿｽ[ｿｽ^ｿｽｿｽ
><?xml version='1.0' encoding='euc-jp'?>
>ｿｽﾈどゑｿｽ encoding ｿｽwｿｽｿｽﾉ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽﾓゑｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽB
ｿｽﾈゑｿｽﾙど。ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾍ、encoding='euc-jp'ｿｽﾆ指ｿｽ閧ｳｿｽ黷ｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽDomDocument.Loadｿｽｿｽｿｽﾄ、ｿｽﾒ集ｿｽADomDocument.Saveｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽXｿｽﾌ形ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽﾄゑｿｽieuc-jpｿｽﾅなゑｿｽｿｽﾄゑｿｽjｿｽAeuc-jpｿｽ`ｿｽｿｽｿｽﾉなゑｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋー
ｿｽﾜ、ｿｽｿｽｿｽいｿｽ試ｿｽｿｽｿｽﾄみまゑｿｽｿｽB
>ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽwｿｽ閧ｵｿｽﾄ保托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、
>ｿｽ@doc.Save stm
>ｿｽﾌ托ｿｽｿｽｿｽﾉ、
>ｿｽ@stm.WriteText doc.xml
>ｿｽﾌ構ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽﾌ難ｿｽｿｽeｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽ
>>>> ADODB.Stream ｿｽｿｽWriteText ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽ SaveToFile ｿｽｿｽｿｽｿｽｿｽ OKｿｽB
>ｿｽﾌ擾ｿｽｿｽｿｽｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽLｿｽｿｽｿｽ@ｿｽﾅはゑｿｽｿｽﾜゑｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾚの通ゑｿｽAencoding=ｿｽﾌ包ｿｽｿｽｿｽｿｽが擾ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽﾋ。
>ｿｽｿｽｿｽﾌ際の、ｿｽｿｽﾌ的ｿｽﾈエｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾍ会ｿｽｿｽﾅゑｿｽｿｽｿｽ?
ｿｽuｿｽｿｽｿｽsｿｽｿｽｿｽGｿｽｿｽｿｽ[ '5'
ｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽﾌ呼び出ｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽﾍ茨ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽv
ｿｽﾅゑｿｽｿｽB
doc.parseError.errorCodeｿｽﾌ難ｿｽeｿｽｿｽｿｽｿｽﾗまゑｿｽｿｽｿｽｿｽｿｽｿｽA0ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽA
doc.Save stm
ｿｽﾅゑｿｽ
Call doc.Save(stm)
ｿｽﾅゑｿｽAｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽBｿｽBｿｽB
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽｿｽｿｽﾉ具ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/04/11(ｿｽｿｽ) 15:23:02
# ｿｽｿｽｿｽｿｽｿｽｿｽ sumomo ｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽﾉ対ゑｿｽｿｽｿｽXｿｽｿｽｿｽbｿｽhｿｽﾈので、expｿｽｿｽｿｽｿｽﾌ別趣ｿｽｿｽ竄ｪ
# ｿｽqｿｽｿｽｿｽｿｽﾌはゑｿｽｿｽﾜゑｿｽDｿｽﾜゑｿｽｿｽｿｽｿｽﾍ厄ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾖ係ｿｽﾆゑｿｽｿｽｿｽｿｽけｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾌで、
# ｿｽｿｽｿｽﾌまま回答を続ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
> DomDocument.Loadｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽｿｽｿｽ示ゑｿｽｿｽｿｽｿｽﾌゑｿｽ Load ｿｽﾅはなゑｿｽ LoadXml ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾍとゑｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ：
ｿｽｿｽｿｽﾓゑｿｽｿｽKｿｽvｿｽﾈのは、ｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾌ包ｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾍ、ｿｽｿｽｿｽﾉ関係ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
DOM ｿｽｿｽｿｽﾌは、XML ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽ Unicode ｿｽﾆゑｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで。
ｿｽｿｽｿｽﾆなゑｿｽﾌは、encoding ｿｽwｿｽｿｽﾅゑｿｽｿｽB
Set doc = New MSXML2.DOMDocument30
doc.loadXML "<?xml version='1.0' encoding='iso-2022-jp'?><ｿｽｿｽ/>"
doc.save "C:¥sample1.xml" 'JISｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ保托ｿｽｿｽｿｽｿｽｿｽｿｽ
doc.replaceChild _
doc.createProcessingInstruction( _
"xml", "version='1.0' encoding='euc-jp'"), _
doc.childNodes(0)
doc.save "C:¥sample2.xml" 'EUCｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ保托ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾈゑｿｽｿｽAｿｽ{ｿｽ閧ｩｿｽｿｽﾍ外ｿｽｿｽｿｽﾌで詳細は省ゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAXSLT ｿｽﾏ奇ｿｽｿｽｿｽ
ｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾍゑｿｽｿｽｿｽ鼾ｿｽﾉは、ｿｽﾜゑｿｽｿｽﾊの変奇ｿｽｿｽKｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
>>> MSXMLｿｽｿｽ XML Version,3.0
>>> ADODBｿｽｿｽMicrosoft ActiveX Data Objects2.5
>>> ｿｽｿｽQｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
>ｿｽuｿｽｿｽｿｽsｿｽｿｽｿｽGｿｽｿｽｿｽ[ '5'
> ｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽﾌ呼び出ｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽﾍ茨ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽv
MSXML3 + ADODB 2.5 ｿｽｿｽｿｽｿｽｿｽ
MSXML6 + ADODB 2.8 ｿｽﾌ暦ｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅは再鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
Private Sub Command1_Click()
Dim doc As MSXML2.DOMDocument30
Set doc = New MSXML2.DOMDocument30
doc.async = False
doc.loadXML "<?xml version='1.0' encoding='UTF-8'?><ｿｽF/>"
Dim stm As ADODB.Stream
Set stm = New ADODB.Stream
stm.Type = adTypeText
stm.Charset = "UTF-8"
stm.Open
doc.save stm
stm.SaveToFile "C:¥sample.xml", adSaveCreateOverWrite
stm.Close
End Sub
exp 2008/04/11(ｿｽｿｽ) 16:53:58
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽ
># ｿｽｿｽｿｽｿｽｿｽｿｽ sumomo ｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽﾉ対ゑｿｽｿｽｿｽXｿｽｿｽｿｽbｿｽhｿｽﾈので、expｿｽｿｽｿｽｿｽﾌ別趣ｿｽｿｽ竄ｪ
># ｿｽqｿｽｿｽｿｽｿｽﾌはゑｿｽｿｽﾜゑｿｽDｿｽﾜゑｿｽｿｽｿｽｿｽﾍ厄ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾖ係ｿｽﾆゑｿｽｿｽｿｽｿｽけｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾌで、
># ｿｽｿｽｿｽﾌまま回答を続ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>>>> MSXMLｿｽｿｽ XML Version,3.0
>>>> ADODBｿｽｿｽMicrosoft ActiveX Data Objects2.5
>>>> ｿｽｿｽQｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
>>ｿｽuｿｽｿｽｿｽsｿｽｿｽｿｽGｿｽｿｽｿｽ[ '5'
>> ｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽﾌ呼び出ｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽﾍ茨ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽv
>MSXML3 + ADODB 2.5 ｿｽｿｽｿｽｿｽｿｽ
>MSXML6 + ADODB 2.8 ｿｽﾌ暦ｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅは再鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ示ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽﾍゑｿｽGｿｽｿｽｿｽ[ｿｽB
ｿｽﾆゑｿｽｿｽがｿｽAOSｿｽｿｽ2000ｿｽｿｽｿｽｿｽXPｿｽﾉ奇ｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽうｿｽﾜゑｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾍ鯉ｿｽｿｽｿｽｿｽﾍ不ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾆゑｿｽｿｽﾈりそｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/04/11(ｿｽｿｽ) 17:34:37
ｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽAｿｽｿｽｿｽﾌ人ｿｽﾌスｿｽｿｽｿｽbｿｽhｿｽﾉ奇ｿｽｿｽ闕橸ｿｽｿｽﾅ便乗質ｿｽ竄ｵｿｽｿｽｿｽｿｽﾉ、
ｿｽｿｽｿｽｿｽﾉ会ｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌは、ｿｽ@ｿｽｿｽｿｽﾈゑｿｽﾌゑｿｽｿｽﾆ。
# ｿｽｿｽｿｽｿｽﾆゑｿｽAsumomoｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆは思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾇね。(^_^;)
exp 2008/04/11(ｿｽｿｽ) 18:21:05
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
>ｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽAｿｽｿｽｿｽﾌ人ｿｽﾌスｿｽｿｽｿｽbｿｽhｿｽﾉ奇ｿｽｿｽ闕橸ｿｽｿｽﾅ便乗質ｿｽ竄ｵｿｽｿｽｿｽｿｽﾉ、
>ｿｽｿｽｿｽｿｽﾉ会ｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌは、ｿｽ@ｿｽｿｽｿｽﾈゑｿｽﾌゑｿｽｿｽﾆ。
># ｿｽｿｽｿｽｿｽﾆゑｿｽAsumomoｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆは思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾇね。(^_^;)
ｿｽｿｽｿｽAｿｽAｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ謔ｭｿｽlｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽﾆゑｿｽﾆの趣ｿｽｿｽｿｽﾒゑｿｽsumomoｿｽｿｽｿｽがチｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾅゑｿｽｿｽｿｽﾋ。
ｿｽzｿｽｿｽｿｽgｿｽlｿｽｿｽｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾉゑｿｽｿｽﾝまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽﾍはゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾋ？ｿｽI
sumomoｿｽｿｽｿｽｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽIｿｽI
sumomo 2008/04/16(ｿｽｿｽ) 14:07:23
ｿｽｿｽｿｽeｿｽｿｽｿｽｿｽｿｽuｿｽｿｽﾔになゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾏ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽeｿｽﾆ鯉ｿｽｿｽﾊでゑｿｽｿｽB
ｿｽ@encording='utf-8'ｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽVB6.0ｿｽｿｽｿｽMSXMLｿｽpｿｽ[ｿｽT(DOM)ｿｽﾅ読み搾ｿｽｿｽﾞ。
ｿｽAｿｽﾇみ搾ｿｽｿｽｿｽXMLｿｽｿｽVB6.0ｿｽｿｽｿｽMSXMLｿｽpｿｽ[ｿｽT(DOM)ｿｽﾅ編集ｿｽｿｽｿｽﾄ、nodeｿｽﾌ追会ｿｽｿｽAｿｽ除ｿｽﾈどゑｿｽsｿｽｿｽ)ｿｽｿｽｿｽｿｽB
ｿｽBDomDocument.xmlｿｽｿｽStringｿｽﾏ撰ｿｽｿｽﾉ托ｿｽｿｽｿｽB
ｿｽCStringｿｽﾏ撰ｿｽｿｽﾉ格ｿｽ[ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽDOMｿｽｿｽloadｿｽB
ｿｽDDOMｿｽｿｽloadxmlｿｽｿｽｿｽｿｽstringｿｽｿｽｿｽｿｽｿｽｿｽｿｽAUTF-8ｿｽ`ｿｽｿｽｿｽｿｽXMLｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ出ｿｽﾍゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽ
*Test.xml*
<?xml version='1.0' encoding='UTF-8'?>
<TEST>test</TEST>
*output.xml*
<?xml version='1.0'?>
<TEST><TEST2>aaaa</TEST2></TEST>
Private Sub Command1_Click()
Dim doc As MSXML2.DOMDocument50
Dim output as String
Set doc = New MSXML2.DOMDocument50
doc.async = False
doc.load "C:¥Test.xml"
output = doc.xml
'methodｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾉ擾ｿｽｿｽｿｽｿｽﾋ暦ｿｽ
'(ｿｽｿｽｿｽｿｽｿｽﾅは、ｿｽｿｽｿｽｿｽｿｽｿｽ"<TEST><TEST2>aaaa</TEST2></TEST>"ｿｽｿｽｿｽﾔゑｿｽlｿｽﾆゑｿｽｿｽﾄ返ゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ)
output = method(output)
output = "<?xml version='1.0' encoding='UTF-8'?>" & output
doc.loadxml output
doc.save "C:¥output.xml"
