- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]谁有空来看个正则的项目。。。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45764)
-- 发布时间：2014/2/10 17:15:00
-- [求助]谁有空来看个正则的项目。。。
目标，实现从表A数据到表B数据的转换，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:接收邮件示例.rar |
-- 发布时间：2014/2/10 17:23:00
--
可以参考论坛中的获取网页数据的例子哦.西瓜哥!~
-- 发布时间：2014/2/10 17:33:00
--
给出补全代码
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)
-- 发布时间：2014/2/10 17:41:00
--
继续完善啊，有兴趣的同学们
-- 发布时间：2014/2/10 17:49:00
--
其实你用网页抓取数据的方式不是会相对容易一点么?