tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^3: XMLファイルにデータを追加したいです
投稿日： 2006/01/13(Fri) 15:19
投稿者： なおこ(・∀・)
お世話になります。

> 最初の<Name>のデータが同じ場合上書きをするという処理がしたいです。
> お願いします

こんな感じでしょうか。

Private Enum ChildNode
　　Name = 0
　　Link = 1
　　Data = 2
End Enum

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
　　Dim xmlpath As String = System.IO.Path.Combine(Application.StartupPath, "test.xml&qu
ot;)
　　Dim doc As Xml.XmlDocument = New Xml.XmlDocument
　　doc.Load(xmlpath)
　　Dim membersNode As Xml.XmlNode
　　membersNode = doc.SelectSingleNode("Contents2/Members")

　　For Each accountNode As Xml.XmlElement In membersNode.ChildNodes
　　　　If accountNode.Name = "Account2" AndAlso _
　　　　   accountNode.ChildNodes(ChildNode.Name).InnerText = "Account2" Then
　　　　　　accountNode.ChildNodes(ChildNode.Link).InnerText = "Link_Update"
　　　　　　accountNode.ChildNodes(ChildNode.Data).InnerText = "Data_Update"
　　　　　　Exit For
　　　　End If
　　Next
　　doc.Save(xmlpath)
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。