vb.net html to xml,VB.NET linq to xml

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

F1内容F1内容F1内容F1内容F1内容

F1内容F1内容F1内容

F1内容F1内容

F1内容

F1内容F1内容F1内容

F2内容

F2F2内容F2内容F2内容

F2内容F2内容F2内容F2内容

F2内容F2内容F2内容F2内容

F2内容

建立一个操作类,

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的序列,然后大家怎么使用就可以自由发挥了。





总结

如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。

小编个人微信号 jb51ccc

喜欢与人分享编程技术与工作经验,欢迎加入编程之家官方交流群!

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值