如何正则替换掉2个字符之前的字符串
时间:2011-11-04
来源:互联网
2个字符是 【 】
这2个字符中可能包含一些乱七八糟的字符串, 如 【uws d(sd】 等等。
Dim reg
Set reg = New RegExp
reg.Global=TRUE
reg.Pattern="..." '这里怎么写?
reg.IgnoreCase = True
str=reg.Replace(str,"")
谢谢。
这2个字符中可能包含一些乱七八糟的字符串, 如 【uws d(sd】 等等。
Dim reg
Set reg = New RegExp
reg.Global=TRUE
reg.Pattern="..." '这里怎么写?
reg.IgnoreCase = True
str=reg.Replace(str,"")
谢谢。
作者: helloclm 发布时间: 2011-11-04
两个字符之前还是之间?
之间:
VBScript code
之间:
VBScript code
str = "【uws d(sd】" Dim reg Set reg = New RegExp reg.Global=TRUE reg.Pattern = "(【)([\s\S]*?)(】)" reg.IgnoreCase = True str = reg.Replace(str,"$1$3") WScript.Echo str
作者: hookee 发布时间: 2011-11-04
参考:
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合,并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
调用 RemoveHTML(Content)
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合,并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
调用 RemoveHTML(Content)
作者: hefeng_aspnet 发布时间: 2011-11-04
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28