使⽤vba做⼀个正则表达式提取⽂本⼯具
1、⾸先是界⾯设计，很清晰
⼀个原始⽂本框，⼀个正则表达式输⼊框，⼀个提取⽂本显⽰框，⼀个执⾏按钮。
2、程序出⼊⼝
由于是单独的⼀个⼩⼯具，简单起见，不做加载宏或者Ribbon了，直接保存⼀个xla，在⽂件打开时启动⽤户窗体展⽰，窗体关闭后，关闭本⽂件；实现⼀个闭环。
（1）打开⽂件启动UserForm
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 Sub
3、提取⽂本实现，使⽤VBScript.RegExp对象，实现了基本的匹配，再进⾏拼接⽂本
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 Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。