XML文件读取 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → XML文件读取

共有2883人关注过本帖树形打印复制链接主题：XML文件读取

newsun2k

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1478 积分：10984 威望：0 精华：0 注册：2014/8/13 16:19:00

XML文件读取 发帖心情

Post By：2021/5/21 17:33:00 [显示全部帖子]

<?xml version="1.0" encoding="UTF-8"?>

<!DOCTYPE dmh SYSTEM "20010101.dtd"><cn_notice_info>

<notice_name name="通知书名称">受理通知书</notice_name>

<address_info name="收件人地址">江苏省</address_info>

<receiver_name name="收件人姓名">苏州</receiver_name>

....

XML文件格式如上，请教这个文件如何读取啊。

想获得通知书名称。

Dim XML As String = filesys.ReadAllText(file,Encoding.UTF8) 好像不行啊。

newsun2k

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1478 积分：10984 威望：0 精华：0 注册：2014/8/13 16:19:00

Post By：2021/5/22 17:14:00 [显示全部帖子]

帮助里面的代码。稍微修改一下数据就报错了。

要求员工必须2个以上才行，如果只有1个，用下面这种方式获得就会出错。

怎么解决？我不能确保过来的XML中，对应的表格中的数据是1个还是多个。

Dim xml As String = "<xml><公司>宏兴贸易</公司><部门><名称>销售部</名称><员工>张三</员工></部门>"

xml = xmL & "<部门><名称>行政部</名称><员工>王五</员工><员工>赵六</员工></部门></xml>"

Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(xml)

Output.Show(xo("公司"))

Dim bms As JArray = xo("部门")

For i As Integer = 0 To bms.Count - 1

Output.show(bms(i)("名称"))

Dim ygs As JArray = bms(i)("员工")

For n As Integer = 0 To ygs.Count - 1

Output.Show(ygs(n))

主题：XML文件读取