测试中常常会遇到对数据的处理，好比我要删除某些特定数据，数据源是从网页请求中抓取，这时候可能复制下来一大堆内容，其中咱们只须要特定的某些部分，笔者一般作法是拷贝到notepad++中处理，结合RegTester工具，可是RegTest须要导出匹配数据，不能直接拷贝，稍微麻烦了一点点......因而想用vba写一个正则表达式提取工具好了，又不花时间。(晕，刚想起来其实会有在线工具的，好比：http://tool.oschina.net/regex/)，虽然找到了在线工具，仍是说一下本身作的这个吧~~~正则表达式
一、首先是界面设计，很清晰工具
一个原始文本框，一个正则表达式输入框，一个提取文本显示框，一个执行按钮。测试
二、程序出入口.net
因为是单独的一个小工具，简单起见，不作加载宏或者Ribbon了，直接保存一个xla，在文件打开时启动用户窗体展现，窗体关闭后，关闭本文件；实现一个闭环。设计
(1)打开文件启动UserFormorm
Private Sub Workbook_Open()
Application.Wait Now() + TimeSerial(0, 0, 1)
RegGetFrm.Show 0
End Sub
(2)关闭UserForm时，关闭文件对象
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Close
End Subblog
三、提取文本实现，使用VBScript.RegExp对象，实现了基本的匹配，再进行拼接文本ip
Set regex = CreateObject("VBScript.RegExp")
With regex
.pattern = myPattern
.Global = True
.IgnoreCase = False
Set matchs = .Execute(origiText)
End With
For Each m In matchs
txtTarget.Text = txtTarget.Text + m + Chr(10)
Next
Exit Subget
四、效果图以下，放到了网盘里，须要的同窗能够下载玩玩，连接：https://pan.baidu.com/s/1V2O4kd-Jl-mkiHyJMD93Gg 密码：1ily