- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问我有一个文件，如何导入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88027)
-- 发布时间：2016/7/25 14:30:00
-- 请问我有一个文件，如何导入
此主题相关图片如下：cw.jpg
此主题相关图片如下：cw2.jpg
此主题相关图片如下：cw3.jpg
请问我有一个文件是后缀名为*.log的，用记事本打开后可以看到他的文件类型应该是XML的格式（只是应该），我想将里面的数据用按键的形式提取出来（一次性提取全部的文件夹，除了里面名为：009_1100111650_00168991_sign的log文件不要），请问在不改后缀名的情况下如何提取文件夹SignLog里的所有文件内容。
<?xml version="1.0" encoding="gbk"?>
<business comment="签名与验签"><body yylxdm="1"><input><skpbh>499903525524</skpbh><skpkl>88888888</skpkl><fplxdm>004</fplxdm><fpzt>3</fpzt><xhdwsbh>31022875380680X</xhdwsbh><xhdwmc>上海彬阳制衣有限公司</xhdwmc><xhdwdzdh>上海市金山区张堰镇甪里村2046号021-57272037</xhdwdzdh><xhdwyhzh>上海农村商业银行张堰支行327397-08010187317</xhdwyhzh><ghdwsbh>310104703252984</ghdwsbh><ghdwmc>上海拉夏贝尔服饰股份有限公司</ghdwmc><ghdwdzdh>上海市漕溪路270号3300T：61955241</ghdwdzdh><ghdwyhzh>交行闸北支行310066441018003792865</ghdwyhzh><fyxm count="1"><group xh="1"><fphxz>0</fphxz><spmc>内搭类黑色伞裙</spmc><spsm></spsm><ggxh>450018304</ggxh><dw>件</dw><spsl>3774</spsl><dj>26.495726</dj><je>99994.87</je><sl>0.17</sl><se>16999.13</se><hsbz>0</hsbz></group></fyxm><qdxm count="0"/><qtxm count="1"><group xh="1"><sl>0.17</sl><se>16999.13</se><je>99994.87</je></group></qtxm><zhsl>0.17</zhsl><hjje>99994.87</hjje><hjse>16999.13</hjse><jshj>116994.00</jshj><bz>B002678</bz><skr></skr><fhr>朱建斌</fhr><kpr>朱建斌</kpr><jmbbh></jmbbh><zyspmc>内搭类黑色伞裙</zyspmc><spsm>0</spsm><qdbz>0</qdbz><ssyf>201501</ssyf><kpjh>0</kpjh><tzdbh></tzdbh><yfpdm></yfpdm><yfphm></yfphm><fpdm>3100144130</fpdm><fphm>31452376</fphm><kprq>20150120</kprq><skm>033*0/<-<145<+02--3*68<64*+21*09246-9+-41204360<7*4+*//7>6-3563565/-8>135-9/88*+59-54985/6<0+<01690703497*+6+81/</skm><jym></jym><swjgdm>131022841</swjgdm><swjgmc>第七税务所（新）</swjgmc><tspzbz></tspzbz><qmz></qmz></input></body></business>
31001441303145237620150120033*0/<-<145<+02--3*68<64*+21*09246-9+-41204360<7*4+*//7>6-3563565/-8>135-9/88*+59-54985/6<0+<01690703497*+6+81/499903525524上海拉夏贝尔服饰股份有限公司310104703252984上海市漕溪路270号3300T：61955241交行闸北支行31006644101800379286599994.8716999.13116994.00上海彬阳制衣有限公司31022875380680X上海市金山区张堰镇甪里村2046号021-57272037上海农村商业银行张堰支行327397-08010187317朱建斌朱建斌B002678Y1内搭类黑色伞裙450018304件3774.0000000026.4957260099994.870.1716999.13
MIIBQwYJKoZIhvcNAQcCoIIBNDCCATACAQExCzAJBgUrDgMCGgUAMAsGCSqGSIb3DQEHATGCAQ8wggELAgEBMGkwXjELMAkGA1UEBhMCY24xFTATBgNVBAseDFb9W7Z6DlKhYDtcQDEdMBsGA1UEAx4Ueg5SoXU1W1CLwU5me6F0Bk4tX8MxGTAXBgNVBA0eEABjAGEAMQAwADAAMAAwADICBxIBAAAGE5cwCQYFKw4DAhoFADANBgkqhkiG9w0BAQEFAASBgDa3pRSb5c0DCppBmMYrIs8nSJi10cCM8dnsIoBcff1cNKlxA9rb9fkKx9kmq3ooiS6fXGdmx3Ob+pT2HAXuHyjbld/ZXYrvLAtEWCR3GpA8KYDzvUeirzf+cAiN9gwVIAJOb7X1zS7uHTuU9P4nTm8LaIHUXZp48Oas59yDKyrD
这是文件里的内容
-- 发布时间：2016/7/25 14:51:00
--
高速合并，不是可以合并xml文件吗？
用代码也可以，比如代码
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("d:\\xml.xml")
Dim ndList = xmlDoc.GetElementsByTagName("出库明细")
For i As Integer = 0 To ndList.count - 1
Dim id As String = ndList(i).Item("出库单编号").InnerText
Dim lb As String = ndList(i).Item("商品类别").InnerText
output.show(id & " " & lb)
Next
-- 发布时间：2016/7/25 15:14:00
--
1.这个文件后缀名是log，我的意思不改后缀名的情况下导入（如果不改后缀名是导入不了的）
2.就算改了后缀名，导入时不知道为什么会出问题，看下图：
此主题相关图片如下：cw4.jpg
用什么办法解决？
项目是源文件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:20150120.rar |
-- 发布时间：2016/7/25 15:38:00
--
参考代码
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim txt As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
Dim idx As Integer = txt.IndexOf("</business>")
Dim s1 As String = txt.SubString(0, idx+11)
Dim s2 As String = txt.SubString(idx+12)
\'output.show(s1)
\'output.show(s2)
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Loadxml(s1)
Dim ndList = xmlDoc.GetElementsByTagName("input")
For i As Integer = 0 To ndList.count - 1
Dim id As String = ndList(i).Item("fphm").InnerText
output.show(id)
Next
End If
-- 发布时间：2016/7/25 16:30:00
--
看不懂，能帮我改一下吗
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目119.foxdb |
-- 发布时间：2016/7/25 16:35:00
--
没看懂你想做什么
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim txt As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
Dim idx As Integer = txt.IndexOf("</business>")
Dim s1 As String = txt.SubString(0, idx+11)
Dim s2 As String = txt.SubString(idx+12)
msgbox(s1)
msgbox(s2)
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Loadxml(s1)
Dim ndList = xmlDoc.GetElementsByTagName("input")
For i As Integer = 0 To ndList.count - 1
Dim fphm As String = ndList(i).Item("fphm").InnerText
msgbox(fphm)
Dim xhdwmc As String = ndList(i).Item("xhdwmc").InnerText
msgbox(xhdwmc)
Next
End If
-- 发布时间：2016/7/25 17:18:00
--
看一楼，我想把整个SignLog里的记录导入到表中，只需要一个按键，里面是开票的发票信息
这个里面有各项开票的明细，包括内容。
-- 发布时间：2016/7/25 17:18:00
--
按照道理应该是两个表
这里面很清楚的对应了开票的名称和内容，还有发票的机器码还有发票代码、发票号码、以及最重要的开票明细
此主题相关图片如下：img027.jpg
-- 发布时间：2016/7/25 17:19:00
--
看懂6楼代码，一个一个获取。
-- 发布时间：2016/7/25 17:31:00
--
有那么一点点看懂了，不过如果发票明细里有两条货物名称，要变两行的，请问怎么写呢？