不打开excel如何从从20万份文件（200000）中批量提取手机号码在线急盼高手支持

duquancai · 发表于 2019-2-12 13:45

好牛简历发表于 2019-2-12 13:25
若是按这样的实施方式，预计有多少步骤呢？
还想多请教一下
^V^

核心代码给你了，后面的靠自己完善而已！

好牛简历 · 发表于 2019-2-12 16:28

duquancai 发表于 2019-2-12 13:45
核心代码给你了，后面的靠自己完善而已！

收到，我再根据大家的帮助，现在一步步的处理
非常劳驾，若是再有不会的地方，专门发上来，请教大伙
真开心^v^

Zamyi · 发表于 2019-2-12 17:26

假如数据文件都是csv格式，20W个像示例文件大小，不计输出，1小时内可以完成。

Private Fs As New FileSystemObject, Rx As RegExp, n&, a(), s
Sub TQHM()
t = Timer
Set Rx = New RegExp
Set Fs = New FileSystemObject
Rx.Global = True
Rx.Pattern = "\d{11}"
n = 0
ReDim a(1 To 1000000, 1 To 1)
GetFile ThisWorkbook.Path & ""
[e1] = Timer - t
Range("a1:a" & n) = a
End Sub
Sub GetFile(p$)
For Each f In Fs.GetFolder(p).Files
If f Like "*.csv*" Then
s = Fs.OpenTextFile(f).ReadAll
For Each c In Rx.Execute(s)
n = n + 1
a(n, 1) = c
Next
End If
Next
For Each pp In Fs.GetFolder(p).SubFolders
GetFile CStr(pp)
Next
End Sub

复制代码

好牛简历 · 发表于 2019-2-12 17:35

Zamyi 发表于 2019-2-12 17:26
假如数据文件都是csv格式，20W个像示例文件大小，不计输出，1小时内可以完成。

1，非常感谢
2，文件格式会有几千种（目前就是分步执行）
某一类来一批
这样的话，咱们还能扩展么？
再次感谢^V^

weseeyou · 发表于 2019-2-12 17:42

怎么看起来好像是在搞电诈的，收集那么多的手机号码。

乐乐2006201505 · 发表于 2019-2-12 19:36

几千种格式？文件格式有这么多种？

好牛简历 · 发表于 2019-2-12 20:07

乐乐2006201505 发表于 2019-2-12 19:36
几千种格式？文件格式有这么多种？

https://fileinfo.com/
这在国外有一个专门的文件格式查询数据库
确实有成千上万种
你设想一下，光软件都有上千万，每种软件都有自己固有的格式哇
^V^

opiona · 发表于 2019-2-12 21:56

我觉得楼主就是收集手机号码然后出卖信息的！

ivccav · 发表于 2019-2-12 22:38

本帖最后由 ivccav 于 2019-2-12 22:39 编辑

你有几千种文件格式，VBA是没有办法提前处理这些数据的。
很多文件格式，在电脑上如果不安装相应的软件根本打不开。
Open语句也不能打开软件专用格式（如doc，xls等都是软件专有格式）
就拿记事本来说，还有ansi，utf-8，utf-16be,utf-16le的区别,还可能不带bom，
不知道文件编码，记事本都会显示乱码（因为无法正确解码），何况软件专有格式！

建议你把文件全部列出来，按文件格式分类，然后单独处理不同格式的文件。
当然了，你那么多文件格式，肯定很多格式是无法处理的，需要你做取舍了。
只提供一个获取文件列表的VBA给你（指定文件夹，会获取该文件夹下面和子文件下面的文件）。

获取指定文件夹和子文件夹下所有文件.zip (58.06 KB, 下载次数: 7)

好牛简历 · 发表于 2019-2-13 10:38

ivccav 发表于 2019-2-12 22:38
你有几千种文件格式，VBA是没有办法提前处理这些数据的。
很多文件格式，在电脑上如果不安装相应的软件 ...

非常感谢你的提醒
1，文件格式分类
2，同时还有不同编码
看得出来，划分恰当
能接受你的科学办法
^V^

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

[求助] 不打开excel如何从从20万份文件（200000）中批量提取手机号码在线急盼高手支持

评分

最新热点 /1