正则表达式截取指定内容的问题

[susan0603]

在网上找到这段用正则式截取内容的函数,请问怎么移值到.NET中来, MM_objRegexp = New regexp 这一句总是出错.

''''正则式内容截取函数
Function mymid(ByVal A_strString, ByVal A_strPattern, ByVal A_strBlip)
Dim MM_objRegexp
Dim MM_strExecute

MM_objRegexp = New regexp
With MM_objRegexp
.Pattern = A_strPattern
.IgnoreCase = True
.Global = False
MM_strExecute = .Execute(A_strString)
If MM_strExecute.count <> 0 Then
mymid = .replace(MM_strExecute.item(0).value, A_strBlip)
End If
End With
mymid = Trim(Replace(mymid, " ", " "))
MM_objRegexp = Nothing
End Function

[zeng_c_h]

首先添加using System.Text.RegularExpressions;
該出錯語句改為:
System.Text.RegularExpressions.Regex reg = new Regex(A_strPattern);

[sayu820115]

应该是VB.NET吧，用imports System.Text.RegularExpressions
出错语句改为dim MM_objRegexp = New regexp

[susan0603]

照楼上老兄的说的改成这样了:
Function mymid(ByVal A_strString, ByVal A_strPattern, ByVal A_strBlip)
Dim MM_strExecute
Dim MM_objRegexp = New Regex(A_strPattern)
With MM_objRegexp
.Pattern = A_strPattern
.IgnoreCase = True
.Global = False
MM_strExecute = .Execute(A_strString)
If MM_strExecute.count <> 0 Then
mymid = .replace(MM_strExecute.item(0).value, A_strBlip)
End If
End With
mymid = Trim(Replace(mymid, " ", " "))
MM_objRegexp = Nothing
End Function

但在调用时执行到.Pattern = A_strPattern这一句时出错:
未找到类型“Regex”的公共成员“Pattern”。
不知是什么意思,还是要请教一下!先谢了!

[susan0603]

那们老兄指点一下呀!先谢了!

[susan0603]

这个问题没人遇到过吗?