关于一个replace的问题?
来源:百度知道 编辑:UC知道 时间:2024/05/22 03:40:27
6+asdf><基本原则在职>
我想把<>中间所有的内容换掉如何写
我感觉栽培者的答案比较接近,但是我看不太懂,能否将各个变量的说明也备注一下,意思就是把说明弄的详细些,谢谢
最好能把实现的思路讲一下
去掉只留<>吗?如果的话,用 “<.+?>”来替换,如:
'************************************************
'** 转换正则表达式
'************************************************
Private Function ReplaceExp(strPatternIn,strPatternOut,strContent)
Dim regEx, strTemp ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.IgnoreCase = true ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
regEx.Pattern = strPatternIn ' 设置模式。
strTemp = regEx.Replace(strContent,strPatternOut)
strContent = strTemp
Set regEx = Nothing
End Function
Dim strValue
strValue = "<asdfkjaskdfjalskdfjlaksdfjlaskdjflak654-9+6+asdf><基本原则在职>dfasfasd"
Call ReplaceExp("<.+?>","<>",strValue)
msgbox strValue
str="我是谁<asdfkjaskdfjalskdfjlaksdfjlaskdjflak654-9+6+asdf>rttywt<基本原则在职>不知道"
newstr="