ヘッダー
Visual Basic サンプル集
VB.NET 2002 対応 VB.NET 2003 対応 VB2005 対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応

XMLを整形する

1.XMLに見やすいように改行やインデントを付けて整形する例

次の関数はXMLに見やすいように改行やインデントを付けて整形する。

VB2005 対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応
''' <summary>
''' XMLに改行やインデントを付けて見やすいように整形します。
''' 文字コードとしてUTF8を使用します。
''' </summary>
Public Function FormatXml(xml As String) As String

    Dim xdoc = New System.Xml.XmlDocument()
    xdoc.LoadXml(xml)

    Using stream As New IO.MemoryStream
        xdoc.Save(stream)
        Dim result As String = System.Text.Encoding.UTF8.GetString(stream.ToArray())
        Return result
    End Using

End Function

 

参考

XmlDocument.Saveメソッド

http://msdn.microsoft.com/ja-jp/library/z5250dbd.aspx