VBA之正则表达式(48)-- 快速拆分中文语句

实例需求:对于任意一段文字,按照中文标点符号拆分为数组,并在立即窗口输出。

例如对于如下内容:

复制代码
本文为博主原创文章,未经博主允许不得转载。访问本人博客123,测试完成

VBE【立即窗口】中输出为:

复制代码
本文为博主原创文章
未经博主允许不得转载
访问本人博客123
测试完成

示例代码如下:

vb 复制代码
Sub Demo()
    Dim objRegExp As Object, strTxt As String, aTxt, i As Long
    Set objRegExp = CreateObject("vbscript.regexp")
    objRegExp.Pattern = "[。?!,、;:「」『』''""()〔〕【】---...--.《》〈〉]"
    objRegExp.Global = True
    objRegExp.IgnoreCase = True
    objRegExp.MultiLine = False
    strTxt = "本文为博主原创文章,未经博主允许不得转载。访问本人博客123,测试完成"
    strTxt = objRegExp.Replace(strTxt, vbTab)
    aTxt = Split(strTxt, vbTab)
    For i = 0 To UBound(aTxt)
        Debug.Print aTxt(i)
    Next
End Sub

【代码解析】

第3行代码创建正则对象。

第4行代码设置匹配模式,此处只是包含了常用的中文标点符合,如果输入文本中使用了更多标点,请自行添加。

第5~7行代码设置正则匹配模式。

第8行代码为测试文本。

第9行代码是正则替换,将中文标点符号替换为Tab,如果输入文本中包含Tab字符,那么也可以使用其他分界符。

第19行代码使用分界符将替换的文档拆分为数组。

第11~13行代码循环遍历数组,并输出到【立即窗口】中。

相关推荐
Zzz_睡不醒1 天前
JS(正则表达式)
javascript·正则表达式·c#
啊啊啊啊8431 天前
函数,数组与正则表达式
前端·chrome·正则表达式
MediaTea2 天前
Python:正则表达式
开发语言·c++·python·正则表达式
会飞的鱼_1233 天前
Shell编程从入门到实践:基础语法与正则表达式文本处理指南
正则表达式
Vic101014 天前
优化正则表达式性能:预编译与模式匹配的最佳实践
数据库·mysql·正则表达式
三坛海会大神5554 天前
正则表达式与grep文本过滤详解
linux·运维·正则表达式
叁仟叁佰4 天前
Shell脚本编程:函数、数组与正则表达式详解
运维·服务器·网络·chrome·正则表达式
Lin南舟4 天前
掌握正则表达式与文本处理:提升 Shell 编程效率的关键技巧
linux·正则表达式
Learn Beyond Limits5 天前
Bias / variance and neural networks|偏差/方差和神经网络
人工智能·深度学习·神经网络·机器学习·ai·正则表达式·吴恩达
三水彡彡彡彡6 天前
Java中使用正则表达式的正确打开方式
java·开发语言·正则表达式