XMLファイルのencodingの変更

VB6、xmlファイルのエンコーディングを変更する。
参照設定は
Microsoft XML,Version 2.0

'変数
Dim dom As MSXML.DOMDocument
Dim domDecXml As IXMLDOMProcessingInstruction

'インスタンス生成
Set dom = New DOMDocument
'XMLファイルの読み込み
dom.Load ("c:\temp\test.xml")

'UTF-8に変換
Set domDecXml = dom.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
'元々のencodingを無視して変更する
Call dom.replaceChild(domDecXml, dom.firstChild)
'ファイルを保存する
dom.save ("c:\temp\mmm.xml")

DOMでファイルを読み込むときには、XMLファイルのencodingに記述されている形式で読み込まれる。その後、VBの内部では、unicodeで処理され、ファイルを記述にはDOMで指定されたencodingのコードでファイルが作成される。