本文目录
Excel 怎么样写VBA正则表达式
分享一个以前的qq日记做一个从word文档读取数据写入excel的工具，遇到一个问题是word表格中包含一些隐藏字符，例如换行、回车等不可见字符时，要将这些字符去除后才能同关键字进行比较运算。从百度找到了一段代码修改成一个去除字符的函数，感觉挺好用，在这里记录一下。Function qczf(A)With CreateObject("vbscript.RegExp") .Global = True .ignorecase = True .Pattern = ""qczf = .Replace(A, "")End WithEnd Function取一串字符串中的数字Sub RegTest() Dim oRegExp As Object Dim oMatches As Object Dim sText As String sText = "柴塘河节制闸3300×4960平面钢闸门AAA9999BBB888" Set oRegExp = CreateObject("vbscript.regexp") With oRegExp .Pattern = "\D+(\d+)\D+(\d+)\D+(\d+)\D+(\d+)" Set oMatches = .Execute(sText) Debug.Print oMatches(0).submatches(0) ’第一个数 Debug.Print oMatches(0).submatches(1) ’第二个数 Debug.Print oMatches(0).submatches(2) ’第三个数 Debug.Print oMatches(0).submatches(3) ’第四个数 End With Set oRegExp = Nothing Set oMatches = NothingEnd Sub下面这段代码实现：去除所有中文Sub RegTest3() ’定义正则表达式对象 Dim oRegExp As Object ’定义匹配字符串集合对象 Dim oMatches As Object ’创建正则表达式 ’定义要执行正则查找的文本变量 Dim sText As String sText = "这是v一个正则表达式b的范例程序a代码" Set oRegExp = CreateObject("vbscript.regexp") With oRegExp ’设置是否匹配所有的符合项，True表示匹配所有, False表示仅匹配第一个符合项 .Global = True ’设置是否区分大小写，True表示不区分大小写, False表示区分大小写 .IgnoreCase = True ’设置要查找的字符模式 .Pattern = "+" ’判断是否可以找到匹配的字符，若可以则返回True ’MsgBox .test(sText) ’对字符串执行正则查找，返回所有的查找值的集合，若未找到，则为空 ’Set oMatches = .Execute(sText) ’把字符串中用正则找到的所有匹配字符替换为其它字符 ’MsgBox .Replace(sText, "") mys = .Replace(sText, "") Debug.Print mys End With Set oRegExp = Nothing Set oMatches = NothingEnd Sub
正则表达式工具 Match Tracer 1.2 怎么用
表达式框中，表达式中的不同成分使用不同颜色显示。在表达式的编写过程中，表达式的树状结构和分组信息会同步更新，使表达式的结构一目了然。在框中移动光标时，所在位置的整个相关元素会突出显示。 本软件的特点：1. 可视化编写环境，树状结构，分组信息同步更新。2. 可导出表达式到多种程序语言代码。3. 可从 C++ 等程序语言代码导入表达式。4. 支持 Perl 兼容的正则语法，支持递归匹配、条件表达式、命名分组等高级特性。
一个字符串,每隔10个字符就添加一个换行符\n,用你的正则表达式，最后一行不见了
替换模式
每个字符串末尾有一个字符串识别码，不知道你的程序怎么写的，最后一行处理的不对把字符串末尾的识别码处理到10个字符的第6为位后面所以不出来了，不用特意控制，在程序循环外加一个判断是否达到字符串最大长度，达到不执行就可以解决你的问题！
