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

10.要素を挿入する

UPDATE:2006/11/15 

<< 前のTips  次のTips >>

 


　要素を挿入するにはInsertBeforeメソッドまたはInsertAfterメソッドを使用します。どちらのメソッドも第１引数には挿入する新しい要素を、第２引数には参照ノードを指定します。InsertBeforeメソッドは参照ノードの前に要素を挿入し、InsertAfterメソッドは参照ノードの後ろに要素を挿入します。
　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 = xmlDoc.CreateElement("TEL")

        '<TEL></TEL>の値を作成
        xmlTel.InnerText = "012-345-6789"

        'ルートの最初の要素(FirstChild)の後ろに「<TEL>」要素を挿入
        xmlRoot.InsertAfter(xmlTel, xmlRoot.FirstChild)

        'ファイルに保存します
        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>
    <TEL>012-345-6789</TEL>
    <ADDRESS>東京都港区赤坂XXX</ADDRESS>
    <NAME>ひろずどっとねっと</NAME>
</ADDRESS_DATA>