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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问如何读取这个文件里的数据呢？

共有2784人关注过本帖树形打印复制链接主题：请问如何读取这个文件里的数据呢？

hongye

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

加好友

发短信

等级：一尾狐帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00

请问如何读取这个文件里的数据呢？ 发帖心情

Post By：2021/3/17 9:46:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:20210316190645.rar

请问如何提取这个文件里全部的作废日期，fa piao号码，客户识别号，税额，fa piao状态，fa piao代码，原fa piao号码，价税合计，客户名称，开piao日期，合计金额，作废人，一条信息一行

有点蓝

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

加好友

发短信

等级：超级版主帖子：106187 积分：540058 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/17 9:51:00 [只看该作者]

参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=161169&skin=0

hongye

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

加好友

发短信

等级：一尾狐帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00

Post By：2021/3/17 10:34:00 [只看该作者]

不理解，主要是这个文件里是双引号，不知道怎么写代码

有点蓝

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

加好友

发短信

等级：超级版主帖子：106187 积分：540058 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/17 11:11:00 [只看该作者]

Dim xml As String = FileSys.ReadAllText("D:\问题\已开fa piao增值税fa piao导出_20210316190645.xml",Encoding.Default)

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

Output.Show(xo.Tostring) '属性使用@+名称表示，看完整json就明白了

Output.Show(xo("@INFO"))

Dim bms As JArray = xo("YKFP")("Row")

Output.Show(cstr(bms(0)("@主要商品名称")) & "=" & cstr(bms(0)("@合计金额")))

hongye

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

加好友

发短信

等级：一尾狐帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00

Post By：2021/3/17 11:38:00 [只看该作者]

Dim dlg As new OpenFileDialog

If dlg.ShowDialog = DialogResult.OK Then

Dim txt As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)

Dim idx1 As Integer = txt.IndexOf("<YKFP>")

Dim idx2 As Integer = txt.IndexOf("</YKFP>")

Dim xmlDoc As New System.XML.XmlDocument

xmlDoc.Loadxml(txt.Trim)

Dim ndList = xmlDoc.GetElementsByTagName("Row")

For Each dr As object In ndlist

Dim ndr As DataRow = DataTables("表A").find("第一列 = '" & dr("fa piao代码").innertext & "'And 第二列 = '" & dr("fa piao号码").innertext & "'")

If ndr Is Nothing Then ndr = DataTables("表A").addnew

For Each n As System.XML.XmlNode In dr.childNodes

output.show(n.Name & " = " & n.InnerText)

If n.name = "fa piao代码" Then

ndr("第一列") = n.innertext

End If

If n.name = "fa piao号码" Then

ndr("第二列") = n.innertext

End If

If n.name = "客户识别号" Then

ndr("第三列") = n.innertext

End If

If n.name = "开piao日期" Then

Dim str = n.innertext

ndr("第四列") = str.SubString(0,4) + "-" + str.SubString(4,2) + "-" + str.SubString(6,2)

End If

If n.name = "合计金额" Then

ndr("第五列") = n.innertext

End If

If n.name = "税额" Then

ndr("第六列") = n.innertext

End If

If n.name = "fa piao状态" Then

ndr("第七列") = n.innertext

End If

帮我看看这个代码错哪了？

有点蓝

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

加好友

发短信

等级：超级版主帖子：106187 积分：540058 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/17 12:01:00 [只看该作者]

https://blog.csdn.net/qq_40868987/article/details/94575707

https://docs.microsoft.com/zh-cn/dotnet/api/system.xml.xmldocument?redirectedfrom=MSDN&view=netframework-4.7.2

hongye

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

加好友

发短信

等级：一尾狐帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00

Post By：2021/3/17 12:41:00 [只看该作者]

能不能帮我改改，你发的链接看不懂

有点蓝

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

加好友

发短信

等级：超级版主帖子：106187 积分：540058 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/17 13:35:00 [只看该作者]

暂时没有时间去研究这些用法，要使用请自行研究。

或者看4楼的用法和帮助：http://www.foxtable.com/mobilehelp/topics/0171.htm

hongye

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

加好友

发短信

等级：一尾狐帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00

Post By：2021/3/17 17:28:00 [只看该作者]

Dim dlg As new OpenFileDialog

If dlg.ShowDialog = DialogResult.OK Then

Dim txt As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)

Dim idx1 As Integer = txt.IndexOf("<YKFP>")

Dim idx2 As Integer = txt.IndexOf("</YKFP>")

Dim xmlDoc As New System.XML.XmlDocument

xmlDoc.Loadxml(txt.Trim)

Dim ndList = xmlDoc.GetElementsByTagName("Row")

For Each dr As object In ndlist

Dim ndr As DataRow = DataTables("表A").find("第一列 = '" & dr.Attributes("fa piao号码").value & "'And 第二列 = '" & dr.Attributes("fa piao号码").value & "'")

If ndr Is Nothing Then ndr = DataTables("表A").addnew

ndr("第一列") = dr.Attributes("fa piao代码").value

ndr("第二列") = dr.Attributes("fa piao号码").value

ndr("第三列") = dr.Attributes("客户识别号").value

'Dim str = dr.Attributes("开piao日期").value

'ndr("第四列") = str.SubString(0,4) + "-" + str.SubString(4,2) + "-" + str.SubString(6,2)

ndr("第四列") = dr.Attributes("开piao日期").value

ndr("第五列") = dr.Attributes("合计金额").value

ndr("第六列") = dr.Attributes("税额").value

ndr("第七列") = dr.Attributes("fa piao状态").value

End If

这样写代码可以导入数据了，但是怎么解决它的重复导入呢？

有点蓝

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

加好友

发短信

等级：超级版主帖子：106187 积分：540058 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/17 17:41:00 [只看该作者]

上面红色代码就是限制重复导入的呀，找不到才新增。

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：请问如何读取这个文件里的数据呢？