HIRO's.NET

VB.NET, C#, PowerShell Tipsサイト

 VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。

 基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。

HIRO's.NET RSSHIRO's.NET RSS

VB.NET 2003の開発でお困りのことはありませんか？
そんな悩みは当サイトで解決！！

HOME > VB.NET 2003 Tips > XML Tips メニュー

03.DOMドキュメントをShift Jisで書き出す

UPDATE:2004/11/13 

<< 前のTips  次のTips >>

 


　DOMドキュメントをShift Jisで書き出すには、XmlTextWriterを使用します。XmlTextWriterクラスのインスタンスを作成する際に、コンストラクタの第１引数に書き込み先のストリーム、第２引数に生成するエンコーディングを指定します。
　XmlDocumentsクラスを使用するには、Imports System.Xmlを追加します。

　
サンプル1
Imports System.Xml
:
: 省略
:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim xmlDoc As New XmlDocument
    Dim strXml As String

    'DOMドキュメント文字列を変数にセット
    strXml = "<?xml version='1.0'?>" & _
        "<ADDRESS_DATA>" & _
        "<ZIP>012-3456</ZIP>" & _
        "<ADDRESS>東京都港区赤坂XXX</ADDRESS>" & _
        "<NAME>ひろずどっとねっと</NAME>" & _
        "</ADDRESS_DATA>"

    'DOMドキュメント文字列からXmlDocumentオブジェクトを作成
    xmlDoc.LoadXml(strXml)
    Try
        'ストリームをShift Jisで作成
        Dim xmlWrite As New XmlTextWriter("Test.Xml", System.Text.Encoding.GetEncoding("Shift_Jis"))
        '保存する
        xmlDoc.Save(xmlWrite)
        'ストリームを閉じる
        xmlWrite.Close()
        MessageBox.Show("Shift Jisで作成完了！！")
    Catch ex As XmlException
        MessageBox.Show(ex.Message)
    End Try
End Sub


　
サンプル2
'サンプルで作成されるXMLファイル(Test.xml)
<?xml version="1.0" encoding="shift_jis"?><ADDRESS_DATA><ZIP>012-3456</ZIP> 
<ADDRESS>東京都港区赤坂XXX</ADDRESS><NAME>ひろずどっとねっと< /NAME></ADDRESS_DATA>