- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 读xml的错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170915)
-- 发布时间：2021/8/11 11:37:00
-- 读xml的错误
读XML文件报错。麻烦帮忙看一下，问题在哪里？
代码如下：
Dim File As String = args(0)
Dim JA As JArray
Dim strReturn As String
Dim XML As String = filesys.ReadAllText(file,Encoding.default)
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(XML)
If xo("TONGZHISXJ")("FUJIANLB") IsNot Nothing Then
If xo("TONGZHISXJ")("FUJIANLB")("FUJIAN") IsNot Nothing Then
If xo("TONGZHISXJ")("FUJIANLB")("FUJIAN")("WENJIANMC") IsNot Nothing Then
strReturn = xo("TONGZHISXJ")("FUJIANLB")("FUJIAN")("WENJIANMC").Tostring()
If xo("TONGZHISXJ")("FUJIANLB")("FUJIAN")("YEWULX") IsNot Nothing Then
If xo("TONGZHISXJ")("FUJIANLB")("FUJIAN")("YEWULX").Tostring() = "1" Then strReturn = xo("TONGZHISXJ")("FUJIANLB")("FUJIAN")("WENJIANMC").Tostring()
End If
....
错误提示：
.NET Framework 版本：4.0.30319.18063
Foxtable 版本：2020.5.29.8
错误所在事件：自定义函数,get官文XML中指定值
详细错误信息：
Exception has been thrown by the target of an invocation.
Accessed JArray values with invalid key value: "WENJIANMC". Int32 array index expected.
xml文件内容如下：
<?xml version="1.0" encoding="GBK"?>
<data-bus>
<FAWENXLH>2021080082620</FAWENXLH>
<TONGZHISID>GA0002398</TONGZHISID>
<TONGZHISXJ>
<QIANMINGXX>
<QIANMINGXX>GA006398_ca.txt</QIANMINGXX>
</QIANMINGXX>
<SHUXINGXX>
<ANJUANH>348042460</ANJUANH>
<DMHFLAG>1</DMHFLAG>
<SHENQINGR>20201218</SHENQINGR>
<FAMINGLX>1</FAMINGLX>
<ZIPBID>20202629</ZIPBID>
<TONGZHISBM>200602</TONGZHISBM>
<TONGZHISMC>办理登记手续通知书</TONGZHISMC>
<FAWENR>20210805</FAWENR>
<SHENQINGH>202077</SHENQINGH>
<FAMINGMC>一种置</FAMINGMC>
<QIXIAN>60</QIXIAN>
</SHUXINGXX>
<FUJIANLB>
<FUJIAN>
<YEWULX>1</YEWULX>
<WENJIANMC>824734364.zip</WENJIANMC>
<WENJIANMS>1</WENJIANMS>
</FUJIAN>
</FUJIANLB>
</TONGZHISXJ>
</data-bus>
-- 发布时间：2021/8/11 11:50:00
--
把源XML文件发过来测试
[此贴子已经被作者于2021/8/11 11:50:52编辑过]
-- 发布时间：2021/8/11 13:25:00
--
请测试。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:list.txt |
-- 发布时间：2021/8/11 13:49:00
--
测试没有问题，请给出出错的完整代码