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

CAONI · 发表于 2023-2-3 16:24

本帖最后由 CAONI 于 2023-2-3 16:25 编辑

求一段VBA比较d盘的两个.txt文件并提取不同数据的代码
1、d盘有两个.txt文件分别为aaa.txt与bbb.txt。
2、具体要求是:两个.txt文件内容格式是一行一个口令。
3、aaa.txt文件逐行在bbb.txt文件中查找对比，当aaa.txt文件某行不存在bbb.txt文件中时则将aaa.txt文件中的这一行文本提取出来。
4、提取的数据填在d5开始的列。

谢谢！！！

txt比较.rar (17.52 KB, 下载次数: 8)

ykcbf1100 · 发表于 2023-2-3 16:54

用字典可以解决。

fzxba · 发表于 2023-2-3 17:18

txt比较.rar (20.33 KB, 下载次数: 9)

7NI{{0KS9VB$ZX8$]C8%XM2.png

CAONI · 发表于 2023-2-3 17:25

ykcbf1100 发表于 2023-2-3 16:54
用字典可以解决。

老师你好，测试了一下程序结果正常，速度比我现在用的慢很多，我要用到800万行对800万行进行比较，要是能提速一下就好了，谢谢！

65861954 · 发表于 2023-2-3 17:36

用python吧

wanghan519 · 发表于 2023-2-3 17:50

速度要求达到多少？

CAONI · 发表于 2023-2-3 18:56

wanghan519 发表于 2023-2-3 17:50
速度要求达到多少？

cpu i5 在300万对300万查找，能在2分钟完成就很优秀了！

ykcbf1100 · 发表于 2023-2-3 19:17

CAONI 发表于 2023-2-3 17:25
老师你好，测试了一下程序结果正常，速度比我现在用的慢很多，我要用到800万行对800万行进行比较，要是能 ...

用sql应该会快一些。

wanghan519 · 发表于 2023-2-3 19:24

本帖最后由 wanghan519 于 2023-2-3 19:56 编辑

两个文件分别复制到了300万行，用perl试了一下，1秒多，可能是重复的多所以快
大概是：创建一个字典d，以第一个文件的每一行为key值为1创建字典项目，以第二个文件的每一行为key值自加2，遍历字典值为1的打印出来，不知道有没有错误

CAONI · 发表于 2023-2-3 20:35

本帖最后由 CAONI 于 2023-2-3 20:53 编辑

wanghan519 发表于 2023-2-3 19:24
两个文件分别复制到了300万行，用perl试了一下，1秒多，可能是重复的多所以快
大概是：创建一个字典d，以 ...

老师你好，麻烦你把代码发来测试一下，跟我的代码差不多：
Sub 按钮6_Click()
t = Timer
Range("f3:f1048576").ClearContents

Dim i As Long, j As Long, a As Long, b As Long, m As Long, n As Long, k As Long
Dim arr, brr, crr()
Dim d As Object, bb, aa

  '打开对比数据arr

  Open "d:\bbb.txt" For Input As #1
'将txt文件内容赋值给数组a，a的元素为txt的一行
aa = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) '将文件号为1的文件的全部字符转换成国际标准化组织 (ISO) 字符标准后传送给a
Close #1
Set d = CreateObject("scripting.dictionary")
For j = 0 To UBound(aa)
      If Len(aa(j)) Then
         d(Trim(aa(j))) = ""
      End If
Next j


   '打开总数据crr

Open "d:\aaa.txt" For Input As #1
bb = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) '将文件号为1的文件的全部字符转换成国际标准化组织 (ISO) 字符标准后传送给a
Close #1
ReDim brr(1 To 500000, 1 To 1)
For i = 0 To UBound(bb)
      If Len(bb(i)) Then
      If Not d.exists(Trim(bb(i))) Then '如果总数据不在要删除的数据中就提取出来
      k = k + 1
      brr(k, 1) = bb(i)
      End If
      End If
      Next i


Range("f5").Resize(k, 1) = brr '原总数据余数
Range("f4") = "数据共:" & Application.CountIf(Range("f5:f" & Range("f1048576").End(3).Row), "<>" & "") & "组"

MsgBox "用时 " & Format(Timer - t, "0.00") & "秒"
End Sub

		自动登录	找回密码
密码			免费注册

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

评分

评分