Visual Basic サンプル集

XMLを整形する

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

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

''' <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