Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮我看看哪里错了？


  共有2901人关注过本帖树形打印复制链接

主题：帮我看看哪里错了？
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/22 14:57:00 [显示全部帖子]

里面有不属于xml内容的字符，要去掉才能作为xml解析


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/22 15:01:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/22 20:34:00 [显示全部帖子]

具体代码？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/23 9:19:00 [显示全部帖子]

文件里面是N段XML而不是只有一个

Dim txt As String = FileSys.ReadAllText("d:\问题\_2020-12-19.log", Encoding.Default)
Dim idx As Integer = txt.IndexOf("<?xml version")
Dim idx2 As Integer = txt.IndexOf("</business>",idx)
Do While idx > -1 And idx2 > -1
    Dim s2 As String = txt.SubString(idx,idx2-idx+11)
    Output.Show(s2)
    Output.Show("-------------------------------")
‘对xml的处理
    idx  = txt.IndexOf("<?xml version",idx2)
    If idx > -1
        idx2  = txt.IndexOf("</business>",idx)
    Else
        idx2=-1
    End If
Loop
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/23 10:02:00 [显示全部帖子]

这个您要自己调试分析xml的节点

                Dim ndList1  = xmlDoc.GetElementsByTagName("fyxm")(0).ChildNodes
msgbox(ndList.count )
                For i As Integer = 0 To ndList.count - 1
                    Dim spmc As String = ndList1(i).Item("spmc").InnerText
msgbox(spmc  )
                    Dim ggxh As String = ndList1(i).Item("ggxh").InnerText
msgbox(ggxh )
……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/23 11:05:00 [显示全部帖子]

我没有时间帮您分析xml数据，请自行调试，调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/23 12:03:00 [显示全部帖子]

           Dim ndList2  = xmlDoc.GetElementsByTagName("fyxm")
if ndList2.count > 0
Dim ndList   = ndList2(0).ChildNodes
            For i As Integer = 0 To ndList.count - 1
[此贴子已经被作者于2021/3/23 14:41:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/23 14:49:00 [显示全部帖子]

当前这段xml不存在这个节点

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/23 15:12:00 [显示全部帖子]

自行测试能用就可以

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/23 15:21:00 [显示全部帖子]

到表格里使用find查询如果有已经导入的数据就不要新增了

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询