智能提取txt文件的数据信息到excel单元格中

leolee95 · 发表于 2019-4-9 18:47

txt中存着从微信直接复制过来的群聊天记录信息，按特定的格式或关键字把里面内容提取出来，实现账务统计，报账形式有几种，不是统一固定一种，想比较智能一些，都能从聊天记录中识别出来，具体请看附件中描述
请高手帮忙下，这样功能在VBA中能否实现，能的话怎么实现，跪求帮助，在线等，急！！

liulang0808 · 发表于 2019-4-9 20:05

楼主可以先根据冒号做个拆分，能简化下，然后再根据情况处理吧

liulang0808 · 发表于 2019-4-10 07:58

Sub 按钮1_Click()
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "\d+"
reg.Global = True
Application.ScreenUpdating = False
Open ThisWorkbook.Path & "\微信记录.txt" For Input As #1
s = Replace(StrConv(InputB(LOF(1), 1), vbUnicode), " ", "")
arr = Split(s, ":")
Close #1
str1 = arr(0)
r = 2
For j = 1 To UBound(arr)
Set mh = reg.Execute(arr(j))
brr = Split(reg.Replace(arr(j), "##"), "##")
For x = 0 To UBound(brr) - 1
Cells(r, 6) = brr(x)
Cells(r, 7) = mh(x)
Cells(r, 8) = str1
r = r + 1
Next x
str1 = brr(UBound(brr))
Next j
Application.ScreenUpdating = True
End Sub

复制代码

liulang0808 · 发表于 2019-4-10 07:59

部分处理了，对于个，各部分，需要实现指定拆词的可能性，本次没有处理。供楼主参考

leolee95 · 发表于 2019-4-10 16:07

liulang0808 发表于 2019-4-10 07:59
部分处理了，对于个，各部分，需要实现指定拆词的可能性，本次没有处理。供楼主参考

太感谢了，给我很大帮助，对于“个”和“各：，我想能不能判断字符串中有没有这两个汉字，有的话，对他进行另外的解释，把这些关键字放到字典里，逐一检测，还想请问下，提取单个汉字有什么方法或函数吗

liulang0808 · 发表于 2019-4-10 19:26

leolee95 发表于 2019-4-10 16:07
太感谢了，给我很大帮助，对于“个”和“各：，我想能不能判断字符串中有没有这两个汉字，有的话，对他进 ...

有无个跟各这个很好判断，但是前面的字符串怎么去拆呢？

leolee95 · 发表于 2019-4-11 13:15

liulang0808 发表于 2019-4-10 19:26
有无个跟各这个很好判断，但是前面的字符串怎么去拆呢？

硬盘打印机交换机各 100 用你上面的方法这个已提到表中的两个列中了，
现想定义一个产品名称表（上面都是所有产品的名称，电脑，硬盘，打印机，交换机这些都包含在里面了），在”硬盘打印机交换机各“中来和产品名称表来一一比对，能匹配到就添加一个，只到比对结束，因为有各字，后面的列的值就都填100，这个是不是能用字典，KEY就是名称，
这样用代码怎么实现，大哥，再帮忙下

liulang0808 · 发表于 2019-4-11 16:56

leolee95 发表于 2019-4-11 13:15
硬盘打印机交换机各 100 用你上面的方法这个已提到表中的两个列中了，
现想定义一个产品名称表（上面都 ...

如果有固定的产品名称，可以先从长名称到短名称去匹配，然后根据匹配结果拆分的

zpy2 · 发表于 2019-4-11 20:08

leolee95 发表于 2019-4-11 13:15
硬盘打印机交换机各 100 用你上面的方法这个已提到表中的两个列中了，
现想定义一个产品名称表（上面都 ...

狼图腾 : 电脑 10 耳机 15 鼠标 50 键盘 50 路由器 50 狼图腾 : 硬盘打印机交换机各 100 狼图腾 : 笔计本 30 音箱 100 狼图腾 :100 鼠标狼图腾 : 退电脑耳机各 90 狼图腾 : 电脑 100/ 鼠标 100/ 音箱 10 狼图腾 : 耳机键盘个 100 指尖飞舞 : 电脑 30 耳机 40 鼠标 70 指尖飞舞 :100 耳机， 100 鼠标狼图腾 : 电脑 100 ，耳机 100 狼图腾 : 退，电脑 50 耳机 50 狼图腾 : 退电脑 50 耳机 50

可以考虑先分词。。。

kzg2013 · 发表于 2019-4-13 21:58

原理就是把关键词列一表（KEYWORDS），然后用正则提处理，当然聊天内容格式不一，本方法只是处理了附件这种，供参考

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

[求助] 智能提取txt文件的数据信息到excel单元格中

评分

评分

最新热点 /1