在vb.net中用正则表达式做复杂替换

来源：巧巧读书网 作者：douces 出处：巧巧读书 2008-01-16 进入讨论组

• 关 键 词：
• express
• vb.net
• html

上一页 1 2 3 4 

访问 http://www.qqread.com/book/myvbnet/my0049.html

我们上面了解了 MatchEvaluator 委托的作用，现在把我们最开始的替换函数修改一下。

先声明一个回调过程用于处理每个匹配项，这里我们是判断匹配项是否为"<img"格式，代码如下：

Public Function ReplaceCC(ByVal m As Match) As String

Dim str As String

If Strings.LCase(Strings.Left(m.Value, 4)) = "<img" Then

str = m.Value

Else

str = ""

End If

Return str

End Function

http://www.qqread.com/book/myvbnet/my0049.html

然后修改myReplace函数，代码如下：

Public Function myReplace(ByVal Str As String) As String

'设置匹配公式

Dim strPattern As String = "<[^>]*>"

'声明一个不可变的正则表达式

Dim oRegex As New Regex(strPattern, RegexOptions.Multiline)

'声明一个MatchEvaluator委托

Dim myEvaluator As MatchEvaluator = New MatchEvaluator(AddressOf ReplaceCC)

Str = oRegex.Replace(Str, myEvaluator)

Return Str

End Function

现在运行，清除代码的效果是和最初的一样的，保留了"<img"标记，其它的HTML代码全部清除。

我们还可以在回调过程ReplaceCC中进行更多更复杂的操作。

本文到此结束，这里我们主要是深入了解正则表达式的Replace方法以及它的回调方法。

更多内容请看.NET移动与嵌入式技术、.NET开发手册专题，或进入讨论组讨论。

上一页 1 2 3 4 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：ListView中屏蔽双击时改变CheckBox状态

较新的文章：vb.net入门——TreeView 控件的使用