批处理之家 - Powered by Discuz! Board

标题: [问题求助] [已解决]VBS正则提取（删除）指定字符串 [打印本页]

作者: batman 时间: 2011-5-7 17:20 标题: [已解决]VBS正则提取（删除）指定字符串

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

Dim str
str = "<br>对于他来说，保护&#456贺一鸣的任务&123序列，远在烤鱼之上，既然贺一&#11111990;鸣脱离了他的视&#o39;伐范围，那么他就必须最上去。</br>"
MsgBox RegTest(str, "<br>([^&#.*;]+)</br>")

Function RegTest(vbstr, pattern)
  dim regEx, Matches, Match, regstr
  set regEx = New RegExp
  regEx.Pattern = pattern
  regEx.Global = true
  regEx.IgnoreCase = false
  set Matches = regEx.execute(vbstr)
  for each Match in Matches
    regstr = regstr & Match.value
  Next
  RegTest = regstr
End Function
复制代码

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

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

Dim str
str = "<br>对于他来说，保护&#456贺一鸣的任务&123序列，远在烤鱼之上，既然贺一&#11111990;鸣脱离了他的视&#o39;伐范围，那么他就必须最上去。</br>"
MsgBox RegTest(str, "([<br>/]|&#.[0-9]+;)")

Function RegTest(vbstr, pattern)
  dim regEx, Matches, Match
  set regEx = New RegExp
  regEx.Pattern = pattern
  regEx.Global = true
  regEx.IgnoreCase = false
  set Matches = regEx.Execute(vbstr)
  for each Match in Matches
    vbstr = Replace(vbstr, Match, "")
  Next
  RegTest = vbstr
End Function
复制代码

作者: asnahu 时间: 2011-5-7 19:33

是提取中文字符吗？

(?:[^>]*(?=[$])|[^0-9#&a-zA-Z<>;/]*)
复制代码

作者: batman 时间: 2011-5-7 19:45

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

作者: asnahu 时间: 2011-5-7 19:52

这样呢？

(?:[^>;]*(?=&)|(?!=[0-9];)[^;</>a-z0-9#]*)
复制代码

作者: powerbat 时间: 2011-5-7 21:06

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

作者: batman 时间: 2011-5-7 22:22

5# powerbat
有区别吗？

作者: powerbat 时间: 2011-5-7 22:31

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

欢迎光临批处理之家 (http://bbs.bathome.net/)