正则表达式

ME.李

请教下论坛大神 我现在用正则测试器做的一个表达式  但是还是无法实现我想要的效果 请教下万能的网友  有没有其他办法  

taller

ME.李

taller 发表于 2024-11-17 09:04

跟我做的那个表达式一样的 朋友

DevilW

DevilW

1. Sub test()
   
2.     s = [g5:g8]
   
3.     Set reg = CreateObject("Vbscript.Regexp")
   
4.     reg.Global = True
   
5.     reg.Pattern = "(^|，).*?贴|(\d+[一-龥])?[(（].*?[)）](?=，|$)"
   
6.     For i = 1 To UBound(s)
   
7.         s(i, 1) = Trim(reg.Replace(s(i, 1), " "))
   
8.     Next
   
9.     [h10].Resize(UBound(s), 1) = s
   
10. End Sub

复制代码

wanghui834

我测试过，我电脑上的vba不支持\w，不知道其他人的是不是也是这样

ME.李

DevilW 发表于 2024-11-17 09:27

道友 能解释下这个表达式的逻辑吗

ME.李

DevilW 发表于 2024-11-17 09:27

朋友 能解释下这个表达式运行的逻辑吗

ME.李

wanghui834 发表于 2024-11-17 09:53
我测试过，我电脑上的vba不支持\w，不知道其他人的是不是也是这样

可以啊  测试器可以测试出来啊

tcdatongye

.*?([^（）贴]+?)(\d+.)?(?=（)替换为$1/