VB.NET linq to xml

最新推荐文章于 2024-08-01 09:50:42 发布

qianjiu

最新推荐文章于 2024-08-01 09:50:42 发布

阅读量961

点赞数

分类专栏： asp.net WINform 基础库文章标签： VB.NET LI linq to xml

本文链接：https://blog.csdn.net/qianjiu/article/details/41113619

版权

asp.net 同时被 3 个专栏收录

59 篇文章 0 订阅

订阅专栏

WINform

29 篇文章 0 订阅

订阅专栏

基础库

3 篇文章 0 订阅

订阅专栏

首先一个名称为DATA.XML文件，内容如下

<?xml version="1.0" encoding="utf-8" ?>
<mykeys>
  <myitem ID="1" order="1" kyes="F1" title="F1标题">
    F1内容F1内容F1内容F1内容F1内容
    F1内容F1内容F1内容
    F1内容F1内容
    F1内容
    F1内容F1内容F1内容
  </myitem>
  <myitem ID="2" order="2" kyes="F2" title="F2标题">
    F2内容
    F2F2内容F2内容F2内容
    F2内容F2内容F2内容F2内容
    F2内容F2内容F2内容F2内容
    F2内容
  </myitem>
</mykeys>

建立一个操作类，

Public Class myKeysXml
    Public Structure DTinf
        Public ID As Integer
        Public order As Integer
        Public kyes As String
        Public title As String
        Public sbody As String
    End Structure
     
End Class

使用之前导入

Imports System.Xml.Linq

下面是点击一个按钮执行的操作。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Dim SXML As XElement = XElement.Load(Application.StartupPath & "\data.xml")
         If SXML Is Nothing Then Exit Sub
         Dim Rows = From item In SXML.Elements("myitem")
                    Order By item.Attribute("order").Value
                    Select item

        Dim itemList As New List(Of myKeysXml.DTinf)
         For Each it As XElement In Rows
             Dim item As New myKeysXml.DTinf
             item.ID = it.Attribute("ID")Value
             item.kyes = it.Attribute("kyes")Value
             item.order = it.Attribute("order")Value
             item.title = it.Attribute("title")Value
             item.sbody = it.Value

            itemList.Add(item)
         Next
          
     End Sub

取得itemList的序列，然后大家怎么使用就可以自由发挥了。