XMLファイルのインデント整形
以下の投稿の追加説明です。
XMLのインデント整形する前は、以下のように、改行もインデントもありません。
<?xml version="1.0" encoding="utf-8"?>
<all><row><A attrid="attrV"><AA>データ１</AA><C id="text">データ２</C></A><D><E>データ３</E><F>データ４</F></D><G><H><I klm="post"><J year="2024">データ５</J><K>データ６</K></I><L>データ７</L></H><M>データ８<N>データ９</N></M></G><O>データ１０</O></row><row><A attrid="attrV"><AA>データ１１</AA><C id="text">データ１２</C></A><D><E>データ１３</E><F>データ１４</F></D><G><H><I klm="post"><J year="2024">データ１５</J><K>データ１６</K></I><L>データ１７</L></H><M>データ１８<N>データ１９</N></M></G><O>データ２０</O></row><row><A attrid="attrV"><AA>２１</AA><C id="text"></C></A><D><E>２３</E><F>２４</F></D><G><H><I klm="post"><J year="2024"></J><K>２６</K></I><L></L></H><M>２８<N></N></M></G><O></O></row></all>以下のマクロにより、整形できます。
' xmlのインデント整形
xw.CodeBeautifyXMLのコードを整形し、インデントを整えます。XmlWriterクラスに設定されている以下「CodeBeautify」を実行します。
' xmlのインデント整形
' https://teratail.com/questions/118314
Public Sub CodeBeautify()
'Reader/Writerを用意する
Dim oXmlReader As New SAXXMLReader60
Dim oXmlWriter As New MXXMLWriter60
'Writerでインデント設定する
oXmlWriter.indent = True
'ReaderとWriterを紐づける
Set oXmlReader.contentHandler = oXmlWriter
'作成したXMLをReaderで読み込む
oXmlReader.Parse xmlDocument.XML
'出力用DOMにWriterの整形結果を読ませる
xmlDoc2.LoadXML oXmlWriter.output
End Subこのマクロにより、改行やインデントが追加され、見やすくなります。
<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<all>
<row>
<A attrid="attrV">
<AA>データ１</AA>
<C id="text">データ２</C>
</A>
<D>
<E>データ３</E>
<F>データ４</F>
</D>
<G>
<H>
<I klm="post">
<J year="2024">データ５</J>
<K>データ６</K>
</I>
<L>データ７</L>
</H>
<M>データ８<N>データ９</N>
</M>
</G>
<O>データ１０</O>
</row>
<row>
<A attrid="attrV">
<AA>データ１１</AA>
<C id="text">データ１２</C>
</A>
<D>
<E>データ１３</E>
<F>データ１４</F>
</D>
<G>
<H>
<I klm="post">
<J year="2024">データ１５</J>
<K>データ１６</K>
</I>
<L>データ１７</L>
</H>
<M>データ１８<N>データ１９</N>
</M>
</G>
<O>データ２０</O>
</row>
<row>
<A attrid="attrV">
<AA>２１</AA>
<C id="text"/>
</A>
<D>
<E>２３</E>
<F>２４</F>
</D>
<G>
<H>
<I klm="post">
<J year="2024"/>
<K>２６</K>
</I>
<L/>
</H>
<M>２８<N/>
</M>
</G>
<O/>
</row>
</all>ただし、1行目が、書き換えられてしまいました。整形前は
<?xml version="1.0" encoding="utf-8"?>だったのに、以下に、変わってしまいました。
<?xml version="1.0" encoding="UTF-16" standalone="no"?>そこで、以下のマクロにより、戻しました。
' UTF-16からUTF-8に変換
xw.ChangeEncodingUTF-16形式からUTF-8形式にエンコーディングを変換します。XmlWriterクラスに設定されている以下「ChangeEncoding」を実行します。
' XMLファイルのencodingの変更
' https://tsuyorid.hatenadiary.org/entry/20051216/p2
Public Sub ChangeEncoding()
' UTF-16からUTF-8に変換
Dim domDecXml As IXMLDOMProcessingInstruction
'UTF-8に変換
Set domDecXml = xmlDoc2.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
'元々のencodingを無視して変更する
Call xmlDoc2.replaceChild(domDecXml, xmlDoc2.FirstChild)
End Subこのマクロを実行すると、以下の通り、元に戻りました。
<?xml version="1.0" encoding="UTF-8"?>原因はわかりませんが、元に戻ってよかったです。
以下が、このExcelファイルです。
この投稿に関する追加解説です。
Follow me!
