求一段VB比较d盘的两个.txt文件并提取不同数据的代码

附件按钮程序运行速度太慢，请帮我优化一下代码以达到提速的效果或换一种更高效的写法，谢谢  ！！！

题意：

1、d盘有两个.txt文件分别为aaa.txt与bbb.txt，两个.txt文件内容格式是一行一个口令。
2、aaa.txt文件逐行在bbb.txt文件中查找对比，当aaa.txt文件某行不存在bbb.txt文件时则将aaa.txt文件中的这一行文本提取到list1。

版主你好，我实际用到的aaa与bbb二个txt文件的总行数分别在800万行左右，我的电脑每次要跑20分钟才有结果，先消化一下你的代码，谢谢！！！

版主你好，我数据加大到各3万行，用你的方法时间是22秒，用附件中的字典法用时1秒（vb6.0、excel都测了），所以方法有待改进，能在程序中增加某个自定义函数可能会快很多，谢谢！

[此贴子已经被作者于2023-2-4 19:31编辑过]

谢谢！！！

用grep和awk，不重复的800万找800万也只要7秒

[此贴子已经被作者于2023-2-5 16:39编辑过]

谢谢版主！！！

另外请教一下access数据库txt数据导入问题：
F盘有access数据库：数据条件源.mdb，仅有一个字段：表1，用下面程序将txt文件逐行写入到表1各记录，速度很慢，请版主提提速度！



Private Sub Command9_Click()
Dim log1 As String
Dim Con As New adodb.Connection
Dim Rs As New adodb.Recordset

Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\数据条件源.mdb;Persist Security Info=False"
 Con.Open '打开数据库
Con.Execute ("delete from 表1") '清空表1
CommonDialog1.ShowOpen '打开对话框
t = CommonDialog1.FileName '获取文件名
Open t For Input As #1 '打开文件并读入
Do While Not EOF(1) '表示1号文件没有尾部
Input #1, log1
Con.Execute ("insert into 表1 values( '" & log1 & "')")
Loop
Close #1
ErrHandler: '

Exit Sub
End Sub

版主你好我写了一下没成功，麻烦你在附件按钮2中写段代码，谢谢！


F盘有access数据库：数据条件源，在电脑中选择.txt文本导入到表1的数据字段中其结果如附件“导入数据按钮”。

版主你好，我弄来弄去就是不成功，提示包含没知字段名或者是找不到[DAFA.TXT],你试一下我发的附件数据能否导入，谢谢！

[此贴子已经被作者于2023-2-6 19:00编辑过]

老师你好，请问这个程序为啥我这里要双击按钮才出数据呀（不双击没有数据显示），谢谢！

[此贴子已经被作者于2024-2-19 23:11编辑过]