如何在VB.NET中添加/更新/删除XML元素？ [英] How to add/update/delete the XML element in VB.NET?

问题描述

当您从文本框，组合框等控件输入值时，如何添加xml元素节点。
当您选择需要更新时间的组合框值时，
/删除现有的xml文件数据。





任何帮助都会受到赞赏。谢谢



我尝试了什么：

 私人  Sub  btnPgAdd_Click（发件人作为 对象，e  As  EventArgs）句柄 btnPgAdd.Click 
 < span class =code-comment>' 稍后验证txtbox  
 xmldoc1 = XDocument.Load（XMLFile）
  Dim  xmls 作为 新 XElement（   Page，新 XElement（ 标题，cmbtitle.Text），新 XAttribute（  id，cmbtitle.Text），新 XElement（  MenuDescription，新 XElement（  ShortDesc，txtstdesc.Text），新 XElement（  LongDesc，txtlongdesc.Text），新 XElement（  Link，新 XAttribute （  Path，txtlink.Text），t xtlink.Text）））
 xmldoc1.Element（  AddPage）。添加（xmls ）
 xmldoc1.Save（XMLFile）
  Dim  i  As  整数 
 对于 i =  0    dtgrdPage.RowCount  -   1  
 如果 dtgrdPage.Rows（i）。Cells.Item（ 1 ）。值   Nothing  然后 
 使用 dtgrdPage 
 .Rows （i）.Cells（  ShortDesc）。Value = txtstdesc.Text.ToString（）
。行（i）。细胞（ 链接）。Value = txtlink.Text.ToString（）
 结束 使用 
 结束 如果 
 下一步 
 cmbtitle.Text =   
 txtstdesc.Text =   
 txtlongdesc.Text =   
 txtlink.Text =   
 结束  Sub  

这是更新按钮

 私有  Sub  btnUpdate_Click（发件人 As   Object ，e  As  EventArgs）
 doc1。加载（XMLFile）
  Dim  TitleID  As   String  = cmbtitle.Text 
  Dim  ShortDesc 作为  String  = txtstdesc.Text 
  Dim  LongDesc  As  字符串 = txtlongdesc.Text 
  Dim 链接 As  字符串 = txtlink.Text 
  Dim  xmlnode1 正如 XmlNode = doc1.SelectSingleNode（  Page）
 ' 如果xmlnode1 IsNot Nothing则 
 xmlnode1.ChildNodes（ 0  ）.InnerText = TitleID 
 xmlnode1.ChildNodes（ 0 ）。InnerText = ShortDesc 
 xmlnode1.ChildNodes（ 0 ）。InnerText = LongDesc 
 xmlnode1.ChildNodes（ 0 ）。InnerText = Link 
 ' 结束如果 
 '  xmldoc1.Element（Page）。添加（xmlnode1） 
 doc1.Save（XMLFile）
 结束 < span class =code-keyword> Sub  

解决方案

您可以使用2个众所周知的类进行操作xml文件：

XmlDocument Clas s（System.Xml） [ ^ ]

XDocument类（System.Xml.Linq） [ ^ ]



祝你好运！

How to add the xml element node when you are entering the values from controls like textbox,combobox etc.
when you select the combobox value that time need to update /delete in/from the existing xml file data.


any help would be appreciated..Thanks

What I have tried:

Private Sub btnPgAdd_Click(sender As Object, e As EventArgs) Handles btnPgAdd.Click
        'validate txtboxes later
        xmldoc1 = XDocument.Load(XMLFile)
        Dim xmls As New XElement("Page", New XElement("Title", cmbtitle.Text), New XAttribute("id", cmbtitle.Text), New XElement("MenuDescription", New XElement("ShortDesc", txtstdesc.Text), New XElement("LongDesc", txtlongdesc.Text), New XElement("Link", New XAttribute("Path", txtlink.Text), txtlink.Text)))
        xmldoc1.Element("AddPage").Add(xmls)
        xmldoc1.Save(XMLFile)
        Dim i As Integer
        For i = 0 To dtgrdPage.RowCount - 1
            If dtgrdPage.Rows(i).Cells.Item(1).Value Is Nothing Then
                With dtgrdPage
                    .Rows(i).Cells("ShortDesc").Value = txtstdesc.Text.ToString()
                    .Rows(i).Cells("Link").Value = txtlink.Text.ToString()
                End With
            End If
        Next
        cmbtitle.Text = ""
        txtstdesc.Text = ""
        txtlongdesc.Text = ""
        txtlink.Text = ""
    End Sub

this is on update button

Private Sub btnUpdate_Click(sender As Object, e As EventArgs)
        doc1.Load(XMLFile)
        Dim TitleID As String = cmbtitle.Text
        Dim ShortDesc As String = txtstdesc.Text
        Dim LongDesc As String = txtlongdesc.Text
        Dim Link As String = txtlink.Text
        Dim xmlnode1 As XmlNode = doc1.SelectSingleNode("Page")
        ' If xmlnode1 IsNot Nothing Then
        xmlnode1.ChildNodes(0).InnerText = TitleID
        xmlnode1.ChildNodes(0).InnerText = ShortDesc
        xmlnode1.ChildNodes(0).InnerText = LongDesc
        xmlnode1.ChildNodes(0).InnerText = Link
        'End If
        ' xmldoc1.Element("Page").Add(xmlnode1)
        doc1.Save(XMLFile)
    End Sub

解决方案

There are 2 well known classes you can use to operate on xml files:
XmlDocument Class (System.Xml)[^]
XDocument Class (System.Xml.Linq)[^]

Good luck!

这篇关于如何在VB.NET中添加/更新/删除XML元素？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！