主题：[求助]谁有空来看个正则的项目。。。

目标，实现从表A数据到表B数据的转换，

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:接收邮件示例.rar

给出补全代码

Dim resumer As String = FileSys.ReadAllText("d:\s.txt")
output.show("====================================================")
Dim catchs As New System.Text.RegularExpressions.Regex("<style[^>]*>[^<]*<\/style[^>]*>|<[^>]+>")
Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(resumer)
For i As Integer = 0 To mc.Count - 1
    output.show(mc(i).Value)
    resumer=resumer.Replace(mc(i).Value,"")
Next
   
output.show("====================================================")
output.show(resumer)