Foxtable(狐表)用户栏目专家坐堂 → 请问我有一个文件,如何导入


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

主题:请问我有一个文件,如何导入

帅哥哟,离线,有人找我吗?
hongyefor
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
请问我有一个文件,如何导入  发帖心情 Post By: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/&lt;-&lt;145&lt;+02--3*68&lt;64*+21*09246-9+-41204360&lt;7*4+*//7&gt;6-3563565/-8&gt;135-9/88*+59-54985/6&lt;0+&lt;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

 

这是文件里的内容


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
hongyefor
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
  发帖心情 Post By:2016/7/25 15:14:00 [只看该作者]

1.这个文件后缀名是log,我的意思不改后缀名的情况下导入(如果不改后缀名是导入不了的)

2.就算改了后缀名,导入时不知道为什么会出问题,看下图:


图片点击可在新窗口打开查看此主题相关图片如下:cw4.jpg
图片点击可在新窗口打开查看

 

用什么办法解决?

 

项目是源文件:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:20150120.rar


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
hongyefor
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
  发帖心情 Post By:2016/7/25 16:30:00 [只看该作者]

看不懂,能帮我改一下吗

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目119.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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 16:34:47编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
hongyefor
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
  发帖心情 Post By:2016/7/25 17:18:00 [只看该作者]

看一楼,我想把整个SignLog里的记录导入到表中,只需要一个按键,里面是开piao的fa piao信息图片点击可在新窗口打开查看

这个里面有各项开piao的明细,包括内容。

 


 回到顶部
帅哥哟,离线,有人找我吗?
hongyefor
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
  发帖心情 Post By:2016/7/25 17:18:00 [只看该作者]

按照道理应该是两个表

这里面很清楚的对应了开piao的名称和内容,还有fa piao的机器码还有fa piao代码、fa piao号码、以及最重要的开piao明细

 

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:img027.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/7/25 17:26:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/25 17:19:00 [只看该作者]

看懂6楼代码,一个一个获取。

 回到顶部
帅哥哟,离线,有人找我吗?
hongyefor
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
  发帖心情 Post By:2016/7/25 17:31:00 [只看该作者]

有那么一点点看懂了,不过如果fa piao明细里有两条货物名称,要变两行的,请问怎么写呢?

 回到顶部
总数 29 1 2 3 下一页