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

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

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

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

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

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

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

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

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

问题就是还会重复导入，这是为什么？

哦，知道了。原来是打错字了

代码打成号码了

[此贴子已经被作者于2021/3/17 17:51:00编辑过]

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