主题：合并文本文件

下面

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

 

 

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

 

文本文件.和项目文件发上来看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导入文本文件不显示文本.zip

 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

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

 

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