直接复制它不香吗,顺手也给翻译了一下. //字符串 = Plugin.Sys.GetCLB()获取剪切板内容 字符串 ="啊啊啊啊啊的的的的aaad" TracePrint 正则搜索(字符串,"[a-z]") Function 正则搜索(字符串, 元字符) Dim 正则, 获取, 比对 Set 正则 = New regExp 正则.[Global] = True // 正则.IgnoreCase = False//忽略大小写关闭 正则.pattern = 元字符 Set 获取 = 正则.execute(字符串) For Each 比对 In 获取 正则搜索 = 正则搜索 & 比对 Next End Function 字符串 ="啊啊啊啊啊的的的的aaad" TracePrint 正则表达式搜索(字符串,"[a-z]") Function 正则表达式搜索(字符串, 元字符) Dim regEx, Matches获取, Match Set regEx = New regExp regEx.[Global] = True // regEx.IgnoreCase = False//忽略大小写关闭 regEx.pattern = 元字符 Set matches = regEx.execute(字符串) For Each Match In Matches 正则表达式搜索 = 正则表达式搜索 & Match Next End Function