【正则族系】自定义函数REGSPLIT

ggmmlol

因为VBScript正则表达式对象不支持Split方法，所以，在需要按特定规则把字符串拆分成字符串数组时，就颇为不便。为此，开发一个把正则表达式匹配到的内容作为拆分符的自定义函数REGSPLIT。它比转用JS中的正则SPLIT方法高效。因为后者，需要有一个用于间接运行JS的“容器”对象，而每次创建和销毁这个对象，都会耗时不少。

功能：

使用正则表达式，把源字符串中每一个匹配到的字符串或位置，作为一个“分隔符”，以此把源字符串拆分成一个一维的字符串数组。
参数：
1、源字符串。此参数为必需。
2、正则表达式。此参数为必需。
3、是否忽略大小写。

此参数可选，默认值为False，表示正则表达式匹配时，区分大小写。

4、拆分得到的字符串中，是否忽略空字符串。

此参数可选，默认值为False，表示不忽略空字符串。如为TRUE，则所得结果之中不会包含空字符串。

1. Public Function REGSPLIT(ByVal text1$, ByVal pttn$, Optional ByVal ICase As Boolean = False, Optional ignore_empty As Boolean = False)
   
2.     Dim tmp(), n&, p&, ma As Object, s$, f&
   
3.     Set oReg = CreateObject("VBScript.RegExp")
   
4.     oReg.Global = True
   
5.     oReg.IgnoreCase = ICase
   
6.     oReg.Pattern = pttn
   
7.     n = -1: p = 1
   
8.     For Each ma In oReg.Execute(text1)
   
9.         f = ma.FirstIndex + 1
   
10.         If Not ignore_empty Or (f > p) Then
    
11.             n = n + 1
    
12.             ReDim Preserve tmp(0 To n)
    
13.             tmp(n) = Mid(text1, p, f - p)
    
14.         End If
    
15.         p = f + ma.Length
    
16.     Next
    
17.     If Not ignore_empty Or p <= Len(text1) Then
    
18.         n = n + 1
    
19.         ReDim Preserve tmp(0 To n)
    
20.         tmp(n) = Mid(text1, p)
    
21.     End If
    
22.     REGSPLIT = tmp
    
23. End Function

复制代码

killq

直接vsto开发一个小组件不是更好吗？不但支持split，还支持lookbehind等等很有用的特性，哈哈

killq

还有，不知道先replace成一个特殊符号，然后再split会不会更好一些，唯一要考虑的是这个特殊符号是否存在于源字串中。

ggmmlol

killq 发表于 2019-10-2 12:32
还有，不知道先replace成一个特殊符号，然后再split会不会更好一些，唯一要考虑的是这个特殊符号是否存在于 ...

虽然说，先REGREPLACE，再SPLIT也可以，但是，还是不如“一步到胃”感觉爽利~
我此前做的【超级查找替换】，就是基于REGREPLACE+内置“分列”功能。下一步，计划开发【超级分列】，嘿嘿~~~

至于用VSTO开发更强的SPLIT功能，因为它需要.Net支持，对于一些还在用XP系统的老旧办公电脑，友好度就差了些。而免费的东东，可以不那么“高大上”，但一定不可以忽视低端的需求。

如果用VSTO开发了，那也就是针对高端用户了，可以保留做为收费插件的理由之一。我没有做收费插件的打算，但也不想断别人开发收费插件的财路，哈哈~~

ggmmlol

上一个附件，演示一些它可能的用法：

REGSPLIT_Example.rar (17.32 KB, 下载次数: 94)

2019-10-23 12:27 上传

点击文件名下载附件

killq

ggmmlol 发表于 2019-10-2 13:08
虽然说，先REGREPLACE，再SPLIT也可以，但是，还是不如“一步到胃”感觉爽利~
我此前做的【超级查找替换 ...

好吧，我只是觉得replace代码可能会更少，条理会更清晰，只是效率上会不会高就不清楚了
分列这个，我想了很久了，一直在想怎么处理后续空列的判断问题
如果上面处理好了，还可以顺手加个分行，，，，哈哈

ggmmlol

EXCEL内置“分列”的按照“固定宽度”的选项，总是从字符串开始位置计数的。如果，想要逆向地从字符串的结尾位置向左以“固定宽度”分列，内置的“分列”就要表示“臣妾做不到~~”
而REGSPLIT却可以表示“毫无鸭梨”，请见5楼附件中的例子6

killq

ggmmlol 发表于 2019-10-2 13:48
EXCEL内置“分列”的按照“固定宽度”的选项，总是从字符串开始位置计数的。如果，想要逆向地从字符串的结 ...

字符串不都是从左向右的吗？只有数字才是从右向左这种方式吧？如果是数字，使用千分位不知道可不可用，我去试试，哈哈

killq

killq 发表于 2019-10-2 13:56
字符串不都是从左向右的吗？只有数字才是从右向左这种方式吧？如果是数字，使用千分位不知道可不可用，我 ...

好吧，不能直接利用。。。。

ggmmlol

killq 发表于 2019-10-2 13:45
好吧，我只是觉得replace代码可能会更少，条理会更清晰，只是效率上会不会高就不清楚了
分列这个，我想 ...

加分行功能，也可以考虑啊，并不难的。此前，就有人发表过含有“拆分到行”功能的插件。

如果把替换（提取）、分列、拆分到行的功能等综合起来之后，那么，对数据进行前期的清洗、整理工作，就可以不劳PQ这个大块头了。而且，低版本的2003、2007也可以享受“旧时王谢堂前燕,飞入寻常百姓家”的心情了。对于整理好了的数据表做统计分析，也可以用SQL，不劳PQ大驾。

不过，这样的做法可是在和MS唱对台戏，对于MS推广OFFICE365可没有一丁点好处，如果想混一个MS的MVP头衔的，就不要这样搞事了。