田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论



拉伸板筋演示 已通过策略在机器上禁用用户安装
未知 vb.net xml 操作   [ 日期:2021-08-08 ]   [ 来自:本站原创 ]  HTML
https://blog.csdn.net/weixin_33762130/article/details/86047429
程序代码:

<?xml version="1.0" encoding="gb2312"?>
<bookstore>
  <book ISBN="2-3631-4">
    <title>Oberon's   Legacy</title>
    <author>Corets,   Eva</author>
    <price>5.95</price>
  </book>
</bookstore>

程序代码:

Imports System.Xml
 
Public Class Form1
 
    Dim xmlDoc As New XmlDocument()
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '往<bookstore>节点中插入一个<book>节点:
 
        xmlDoc.Load("bookstore.xml")
        Dim root As XmlNode = xmlDoc.SelectSingleNode("bookstore") '查找<bookstore>  
        Dim xe1 As XmlElement = xmlDoc.CreateElement("book") '创建一个<book>节点  
        xe1.SetAttribute("genre", "李赞红") '设置该节点genre属性  
        xe1.SetAttribute("ISBN", "2-3631-4") '设置该节点ISBN属性  
        Dim xesub1 As XmlElement = xmlDoc.CreateElement("title")
        xesub1.InnerText = "CS从入门到精通" '设置文本节点  
        xe1.AppendChild(xesub1) '添加到<book>节点中  
        Dim xesub2 As XmlElement = xmlDoc.CreateElement("author")
        xesub2.InnerText = "候捷"
        xe1.AppendChild(xesub2)
        Dim xesub3 As XmlElement = xmlDoc.CreateElement("price")
        xesub3.InnerText = "58.3"
        xe1.AppendChild(xesub3)
 
        root.AppendChild(xe1) '添加到<bookstore>节点中  
        xmlDoc.Save("bookstore.xml")
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim nodeList As XmlNodeList = xmlDoc.SelectSingleNode("bookstore").ChildNodes '获取bookstore节点的所有子节点  
        Dim xn As XmlNode
        For Each xn In nodeList '遍历所有子节点  
            Dim xe As XmlElement = CType(xn, XmlElement) '将子节点类型转换为XmlElement类型  
            If xe.GetAttribute("genre") = "李赞红" Then '如果genre属性值为“李赞红”  
                xe.SetAttribute("genre", "update李赞红") '则修改该属性为“update李赞红”  
                Dim nls As XmlNodeList = xe.ChildNodes '继续获取xe子节点的所有子节点  
                Dim xn1 As XmlNode
                For Each xn1 In nls '遍历  
                    Dim xe2 As XmlElement = CType(xn1, XmlElement) '转换类型  
                    If xe2.Name = "author" Then '如果找到  
                        xe2.InnerText = "亚胜" '则修改  
                        Exit For '找到退出来就可以了  
                    End If
                Next xn1
                Exit For
            End If
        Next xn
 
        xmlDoc.Save("bookstore.xml") '保存。
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim xnl As XmlNodeList = xmlDoc.SelectSingleNode("bookstore").ChildNodes
 
        Dim xn As XmlNode
        For Each xn In xnl
            Dim xe As XmlElement = CType(xn, XmlElement)
            If xe.GetAttribute("genre") = "fantasy" Then
                xe.RemoveAttribute("genre") '删除genre属性  
            Else
                If xe.GetAttribute("genre") = "update李赞红" Then
                    xe.RemoveAll() '删除该节点的全部内容  
                End If
            End If
        Next xn
        xmlDoc.Save("bookstore.xml")
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim xn As XmlNode = xmlDoc.SelectSingleNode("bookstore")
 
        Dim xnl As XmlNodeList = xn.ChildNodes
 
        Dim xnf As XmlNode
        For Each xnf In xnl
            Dim xe As XmlElement = CType(xnf, XmlElement)
            Console.WriteLine(xe.GetAttribute("genre")) '显示属性值  
            Console.WriteLine(xe.GetAttribute("ISBN"))
 
            Dim xnf1 As XmlNodeList = xe.ChildNodes
            Dim xn2 As XmlNode
            For Each xn2 In xnf1
                Console.WriteLine(xn2.InnerText) '显示子节点点文本  
            Next xn2
        Next xnf
    End Sub
End Class





暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:1*2=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©