提速，提取4000多个txt，耗时56.39秒，谢谢prome3、wanghan519、lxdexcel等诸位老师！

prome3

lhj323323 发表于 2024-2-12 13:31
提取全部4415支，耗时18秒！！

这个没提示拒绝权限吗？你是怎么解决拒绝权限的问题的。

还有就是为什么上面说 6.13 秒，这里又是 18.38 秒，你对代码做了哪些修改？

我自己运行的时候，第一次运行要 27 秒，第二次以及后面的所有运行时间都只需要 3 秒左右。猜测是 CPU 或者 VBA 编译器在运行时做了缓存优化。

lhj323323

prome3 发表于 2024-2-12 14:41
这个没提示拒绝权限吗？你是怎么解决拒绝权限的问题的。

还有就是为什么上面说 6.13 秒，这里又是 18. ...

既然无法定位到【同路径】，我就只能暂时不管这个问题
仍采用你的原有语句（没有添加任何修改的语句）

第一次说的6.13秒，数据源仅1081个
第二次则是全部4415个txt

lhj323323

prome3 发表于 2024-2-12 14:41
这个没提示拒绝权限吗？你是怎么解决拒绝权限的问题的。

还有就是为什么上面说 6.13 秒，这里又是 18. ...

CPU 或者 VBA 编译器在运行时做了缓存优化。
的确可能是这个原因，如同WIN10的重启一样，并不是真正意义的重启。

lhj323323

perfect131 发表于 2024-2-12 14:13
open读取大文件 几十M的文件（几十万、几百万行的txt）时比较慢

还是用 fso的OpenTextFile才是最快的方 ...

的确，硬件也是一项重要的因素。

lhj323323

prome3 发表于 2024-2-12 14:41
这个没提示拒绝权限吗？你是怎么解决拒绝权限的问题的。

还有就是为什么上面说 6.13 秒，这里又是 18. ...

好奇怪，第二次运行，耗时减一半。

prome3

lhj323323 发表于 2024-2-12 14:59
好奇怪，第二次运行，耗时减一半。

是吧？哈哈

但我这边运行，5000 个文件也才需要不到 4 秒。

飞天篮球猪

可以换个工具，4510个txt，电脑win虚拟机4核8g内存。
可以写进VBA：



也可以写在公式编辑栏：

lhj323323

prome3 发表于 2024-2-12 15:29
是吧？哈哈

但我这边运行，5000 个文件也才需要不到 4 秒。

老师：
请看下图

prome3

lhj323323 发表于 2024-2-12 16:11
老师：
请看下图

这就不是改一句代码能解决的了。

思路是，在内循环中，把制表符计数改为对日期字符串的匹配。也就是从换行符开始，判断接下来的10个字节是否等于指定日期。

lhj323323

prome3 发表于 2024-2-12 16:49
这就不是改一句代码能解决的了。

思路是，在内循环中，把制表符计数改为对日期字符串的匹配。也就是从 ...

明白了，谢谢老师，晚上再来改。