[已解决]VBS正则提取（删除）指定字符串

batman

近日在vbs中遇到一个问题，先看代码：

1. 
   
2. Dim str
   
3. str = "<br>对于他来说，保护&#456贺一鸣的任务&123序列，远在烤鱼之上，既然贺一&#11111990;鸣脱离了他的视&#o39;伐范围，那么他就必须最上去。</br>"
   
4. MsgBox RegTest(str, "<br>([^&#.*;]+)</br>")
   
5. 
   
6. Function RegTest(vbstr, pattern)
   
7.   dim regEx, Matches, Match, regstr
   
8.   set regEx = New RegExp
   
9.   regEx.Pattern = pattern
   
10.   regEx.Global = true
    
11.   regEx.IgnoreCase = false
    
12.   set Matches = regEx.execute(vbstr)
    
13.   for each Match in Matches
    
14.     regstr = regstr & Match.value
    
15.   Next
    
16.   RegTest = regstr
    
17. End Function

复制代码

我的原意是去掉str两头的标签以及以$#打头并以;结束的字符串（在例子中为&#11111990;和&#o39;），但搞了n久都没有成功，特来请教大家，还望知道的不吝赐教于我，先在此表示感谢了!

又仔细看了正则的资料并转换了思路，成功解决，代码如下：

1. 
   
2. Dim str
   
3. str = "<br>对于他来说，保护&#456贺一鸣的任务&123序列，远在烤鱼之上，既然贺一&#11111990;鸣脱离了他的视&#o39;伐范围，那么他就必须最上去。</br>"
   
4. MsgBox RegTest(str, "([<br>/]|&#.[0-9]+;)")
   
5. 
   
6. Function RegTest(vbstr, pattern)
   
7.   dim regEx, Matches, Match
   
8.   set regEx = New RegExp
   
9.   regEx.Pattern = pattern
   
10.   regEx.Global = true
    
11.   regEx.IgnoreCase = false
    
12.   set Matches = regEx.Execute(vbstr)
    
13.   for each Match in Matches
    
14.     vbstr = Replace(vbstr, Match, "")
    
15.   Next
    
16.   RegTest = vbstr
    
17. End Function
    

复制代码

asnahu

是提取中文字符吗？

1. (?:[^>]*(?=[$])|[^0-9#&a-zA-Z<>;/]*)

复制代码

batman

2# asnahu
不是的，提取后为：
对于他来说，保护&#456贺一鸣的任务&123序列，远在烤鱼之上，既然贺一鸣脱离了他的视伐范围，那么他就必须最上去。

asnahu

这样呢？

1. (?:[^>;]*(?=&)|(?!=[0-9];)[^;</>a-z0-9#]*)

复制代码

powerbat

为什么不直接用正则自己的Replace:
regEx.Pattern = "<\/?[^<>]+>|&#[^&#;]+;"
regEx.Replace(vbstr, "")

batman

5# powerbat
有区别吗？

powerbat

对正则来说，你调用的那个Replace()函数是“第三方”，更何况用它自己的更方便（至少代码简省一些）。