主题：[求助]导入txt去重！！！！！！！

txt文件导入数据的时候把重复的数据删掉怎么做啊，帮助文档全都是excel导入去重。

很急啊，求大佬帮忙啊

我的是用逗号分隔符的文本文档，

 上传txt文件测试。

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

点击浏览该文件:20170711120351790.txt

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("表A").StopRedraw
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 cs() As String = rs(i).Split(",")
        If cs.Length = 7 Then
            Dim dr As DataRow = DataTables("表A").Find("第一列 = '" & cs(0) & "'")
            If dr Is Nothing Then
                dr = DataTables("表A").Addnew()
            End If
            dr("第一列") = cs(0)
            dr("第二列") = cs(1)
            dr("第三列") = cs(2)
        End If
    Next
End If
Tables("表A").ResumeRedraw

 

谢谢甜大佬，受教了