请高手指点对长字符串的有效拆分

sjdzzzz · 发表于 2022-3-31 00:03

无力吐槽这破工单系统了，内容部分又臭又长，超过255个字符。从系统里导出后，拿EXCEL看非常不方便，眼都可以看晕。当时导入ACCESS时，老师格式选长文本，发现导入后再导出老是丢了很多内容，后发现去掉@才成功导入。

想把内容里拆分成规范的字段，方便分析及后期做相关处理。
已知是用；来间隔各字段，但里面的长度、内容、包扩固定格式还有不一致的。
有些有内容，有些重要内容又填到不相关的字段，如第4例的红字。选择分列，错位明显，希望在ACCESS里能够处理出较为规范的数据。

本人有点点ACCESS基础，比小白多一点而已。求各位大神指点，感激不尽！

（原始平台是一班妹子填的，千人千面，就算统一培训，依然有很多不规范的地方。导致系统了的内容就看瞎眼，想批量处理难度直线上升，再次吐槽）

NSD3N]YE}R2]T418CP}2[PP.jpg

zpy2 · 发表于 2022-3-31 05:45

力吐槽这破工单系统了

如果数据分析比较多，能否考虑重构一下工单系统

sjdzzzz · 发表于 2022-3-31 08:54

zpy2 发表于 2022-3-31 05:45
力吐槽这破工单系统了

如果数据分析比较多，能否考虑重构一下工单系统

前辈吐槽的对，但真无力重构系统，那都是些不接地气非一线的的高级人材搞出来的（也许外包的）。

主要是用1个平台，上千人操作录入，对应百万级信息来源。想标准的让人开心，我觉的也是个天大的难题。
只是希望在二次处理时，能把信息规范起来，大的规律性还是有，就是如何处理才能包容那些可能存在的不规范的内容?想破头了。

希望各位前辈、高手给挑战一下，谢谢！

zpy2 · 发表于 2022-3-31 10:27

sjdzzzz 发表于 2022-3-31 08:54
前辈吐槽的对，但真无力重构系统，那都是些不接地气非一线的的高级人材搞出来的（也许外包的）。

主要 ...

主要是用1个平台，上千人操作录入，对应百万级信息来源。

如果真如你所言，百万级信息，你这样导出一次数据，需要多久？如果是百万级的数据分析，恐怕不是excel能完成的，有专门的大数据平台。

Chip_Kenny · 发表于 2022-3-31 11:30

重整一下資料

Sub zz()
Dim a, d As Object, b(), k, t, s$
Set d = CreateObject("scripting.dictionary")
a = Range("c2:c" & [c65536].End(3).Row)
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "[\u4e00-\u9fa5]+(?=：)"
For i = 1 To UBound(a)
For Each m In .Execute(a(i, 1))
d(CStr(m)) = ""
Next
Next
k = d.keys
ReDim b(1 To UBound(a) + 1, 1 To d.Count)
For j = 1 To UBound(b, 2)
b(1, j) = k(j - 1): d(k(j - 1)) = j
Next
.Pattern = "[\u4e00-\u9fa5]+：.*?(?=;)"
For i = 1 To UBound(a)
For Each m In .Execute(a(i, 1))
t = Split(m, "：")
b(i + 1, d(CStr(t(0)))) = t(1)
Next
Next
End With
Workbooks.Add 1
[a1].Resize(i, d.Count) = b
End Sub

复制代码

sjdzzzz · 发表于 2022-3-31 16:11

Chip_Kenny 发表于 2022-3-31 11:30
重整一下資料

感谢前辈，很有启发。正在仔细研读中。谢谢！不懂的地方再来请教。

sjdzzzz · 发表于 2022-3-31 16:14

zpy2 发表于 2022-3-31 10:27
主要是用1个平台，上千人操作录入，对应百万级信息来源。

如果真如你所言，百万级信息，你这样导出一 ...

Kenny前辈帮忙处理了下EXCEL下的，还在研读中。

对于您的疑问，其实我的意思是，平台是全国性的，所以导致接单的小姐姐是一个信息中转的池子，所以这个数据录入就变化多端，大体规矩是有，但各种不严谨的地方太多。

至于数据量，我这边当然只是负责我们区域内的，数据量不是那么大，1个月千把条而已。目前在分析2年的内容，逐条那也是非人的待遇。所以想着偷下懒。还请看在ACCESS上如何搞搞，谢谢！

zpy2 · 发表于 2022-4-1 13:32

sjdzzzz 发表于 2022-3-31 16:14
Kenny前辈帮忙处理了下EXCEL下的，还在研读中。

对于您的疑问，其实我的意思是，平台是全国性的，所以 ...

数据量不多，excel足矣，access的sql不支持正则表达式，也是一样的循环。

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

[求助] 请高手指点对长字符串的有效拆分

评分