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 メニュー

09.要素を追加する

UPDATE:2004/11/23 

<< 前のTips  次のTips >>

 


 新しい要素はCreateElementとCreateTextNodeメソッドを使用して作成ます。また作成した要素を追加するには、AppendChildメソッドを使用します。
  CreateElementメソッドは「」のようにタグの部分を作成するメソッドです。またCreateTextNodeメソッドは要素の値の部分を作成します。
 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

    'XmlDocumentオブジェクトを作成
    xmlDoc.Load("Test.xml")
    Try
        Dim xmlRoot As XmlElement = xmlDoc.DocumentElement

        '<TEL></TEL>タグ作成用
        Dim xmlTel As XmlElement
        '<TEL>タグの値作成用
        Dim xmlValue As XmlText

        '<TEL></TEL>タグを作成
        xmlTel = xmlDoc.CreateElement("TEL")
        '<TEL>タグの中身(値)を作成
        xmlValue = xmlDoc.CreateTextNode("012-345-6789")

        '<TEL>タグの中身(値)を<TEL>タグに追加します
        xmlTel.AppendChild(xmlValue)
        'ルートタグに<TEL>タグを追加します
             xmlRoot.AppendChild(xmlTel)

        'ファイルに保存します
        xmlDoc.Save("After.xml")


    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>

'変更後のXMLファイル(After.xml)
<?xml version="1.0" encoding="shift_jis"?>
<ADDRESS_DATA>
    <ZIP>012-3456</ZIP>
    <ADDRESS>東京都港区赤坂XXX</ADDRESS>
    <NAME>ひろずどっとねっと</NAME>
    <TEL>012-345-6789</TEL>
</ADDRESS_DATA>