以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  合并文本文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58528)
--  作者：xiaohu2008
--  发布时间：2014/10/18 12:38:00
--  合并文本文件

下面

Dim mg As New Merger
mg.SourcePath = "c:\\data\\" \'指定数据文件所在目录
mg.Format = "Delimited" \'指定格式
mg.SourceTableName = "订单" \'指定要合并的文件，无需扩展名
mg.DataTableName = "订单" \'指定接收数据的表
mg.Merge() \'开始合并

 

 

上面合并的文本文件怎么是空白的？

 
--  作者：Bin
--  发布时间：2014/10/18 12:57:00
--  
文本文件.和项目文件发上来看看
--  作者：xiaohu2008
--  发布时间：2014/10/19 12:02:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:导入文本文件不显示文本.zip
--  作者：有点甜
--  发布时间：2014/10/19 12:11:00
--  
 Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 0 To rs.Length - 1
        
        Dim dr As DataRow = DataTables("条码采集").Addnew()
        dr("条码") = rs(i)
    Next
End If
--  作者：xiaohu2008
--  发布时间：2014/10/19 19:43:00
--  

可以了，还有个问题，我要导入的文本文件，不要有重复又改怎么写代码呢？

 
--  作者：有点甜
--  发布时间：2014/10/19 19:55:00
--  
Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 0 To rs.Length - 1
        If DataTables("条码采集").Find("条码 = \'" & rs(i) & "\'") Is Nothing Then
            Dim dr As DataRow = DataTables("条码采集").Addnew()
            dr("条码") = rs(i)
        End If
    Next
End If