从大量TXT文档中提取所需内容到Excel

dahaixing2004 · 发表于 2019-12-3 15:06

求助各位大佬，希望能使用VBA解决一下这个问题：
在同一个文件夹内，有几百个文本文档，以不同的公司名称命名。
文档中包含了公司选择使用的方案，但是每家公司叙述的方式不一致，手动打开每个文档并填写到Excel可是太麻烦了。
希望能自动从中分析提取并整理到Excel文件中。

示例文本文档请见附件。

希望达到的效果：

dahaixing2004 · 发表于 2019-12-3 15:10

看了论坛很多帖子，大多是数据有规律的，这个都是文字描述，有一定规律，但也不是特定的规律，比较难做。

kevinchengcw · 发表于 2019-12-3 15:32

示例要多一点，最好是真实的

Yalishanda30 · 发表于 2019-12-3 15:32

数据样本很少，不是很有规律

dahaixing2004 · 发表于 2019-12-3 15:38

kevinchengcw 发表于 2019-12-3 15:32
示例要多一点，最好是真实的

以这几种为例子吧，都是基于原始文字描述的。

原始TXT文档较大，包含信息较多，不便上传。还请理解。

假如就是这三种的话，该怎么做呢？

dahaixing2004 · 发表于 2019-12-3 15:39

Yalishanda30 发表于 2019-12-3 15:32
数据样本很少，不是很有规律

我个人看的话，基本上规律就是都包含了
“第几” 个/种/套方案
等等，这样子的话，还请费心~

Yalishanda30 · 发表于 2019-12-3 15:42

dahaixing2004 发表于 2019-12-3 15:39
我个人看的话，基本上规律就是都包含了
“第几” 个/种/套方案
等等，这样子的话，还请费心~

“第几” 个/种/套在你的同一个txt文件里面如果不是唯一的就不好办，代码框架写好了，然后你根据你自己理解的规律去提取相对应的数据，应该不是难事

dahaixing2004 · 发表于 2019-12-3 15:48

Yalishanda30 发表于 2019-12-3 15:42
“第几” 个/种/套在你的同一个txt文件里面如果不是唯一的就不好办，代码框架写好了，然后你根据你自己理 ...

这个我也发现了，绝大部分是唯一的，部分有重复。
不过每个公司只采用了一套方案，所以即使重复，内容也是一致的。

有代码的话，还请帮忙分享，感谢~

kevinchengcw · 发表于 2019-12-3 16:00

就这几个样本的话，这样就行了

Sub test()
Dim FN$, Str$, N&, RegEx As Object
FN = Dir(ThisWorkbook.Path & "\*.txt")
Set RegEx = CreateObject("vbscript.regexp")
RegEx.Pattern = "([一二三四五六七八九十]).*?方案|方案.*?([一二三四五六七八九十])"
N = 1
Cells(N, 1).Resize(, 2).Value = Split("原始文件名,方案选择", ",")
With CreateObject("scripting.filesystemobject")
While FN <> ""
N = N + 1
Cells(N, 1).Value = Left(FN, Len(FN) - 4)
Str = ""
With .opentextfile(ThisWorkbook.Path & "" & FN)
If Not .atendofstream Then Str = .readall
.Close
End With
If RegEx.test(Str) Then
With RegEx.Execute(Str)(0)
Cells(N, 2).Value = .submatches(0) & .submatches(1)
End With
End If
FN = Dir
Wend
End With
Set RegEx = Nothing
End Sub

复制代码

Yalishanda30 · 发表于 2019-12-3 16:04

本帖最后由 Yalishanda30 于 2019-12-3 16:07 编辑

dahaixing2004 发表于 2019-12-3 15:48
这个我也发现了，绝大部分是唯一的，部分有重复。
不过每个公司只采用了一套方案，所以即使重复，内容也 ...

不会正则，只能帮到这里了

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

[求助] 从大量TXT文档中提取所需内容到Excel