今日学习目标

  • 理解正则表达式基础
  • 掌握RegExp对象的使用
  • 学会用正则处理文本

知识点

RegExp对象

vba
Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "模式"
reg.Test(字符串)  ' 测试
reg.Execute(字符串)  ' 执行

今日代码

vba
Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")

reg.Pattern = "模式"
reg.Test(字符串)  ' 测试
reg.Execute(字符串)  ' 执行

练习题

  1. 提取字符串中的数字
  2. 验证邮箱格式
  3. 替换文本内容

参考解答

1. 使用正则\d+匹配连续数字，Execute方法获取所有匹配，遍历提取并拼接。 2. 邮箱正则：^\w+@\w+(.\w+)+$，用Test方法验证字符串是否符合格式。 3. 用Replace方法替换匹配内容，如reg.Replace(原字符串, 替换文本)。

由在线工具箱(www.vba.net)整理制作