谁能帮忙给看下网页获取数据的代码，有点难度。
网页平台上获取相关信息。需要提取三个信息，分别是：单号、类型和反馈
单号类似于：45509
关键词：<span class="os-comm-oid ">#45509</span>
类型类似于：3_【SIM】服务器迁移操作
关键词：<span class="workarea">[3_【SIM】服务器迁移操作]</span>
反馈类似于：机器交给物流发往JX机房
关键词：<td>向RMS反馈信息:机器交给物流发往JX机房</td>
有效反馈有的单子是没有的，没有即没有关键词：向RMS反馈信息，则自动记录：无
每个单子的反馈可以搜索<table class="os-logs"> 至<div class="actions">，仅提取最上面的一项:向RMS反馈信息：后面的内容即可。
最后要的效果是生成一个数组，可以一一对应上如：
outs（1,1）=45509
outs（1,2）=3_【SIM】服务器迁移操作
outs（1,3）=机器交给物流发往JX机房
outs（2,1）=44485
outs（2,2）=2_【SIM】服务器故障处理
outs（2,3）=无
......................
现在难点在：
1，提取相关信息
2，信息一一对应
目标源代码已放入网盘，下载地址：http://115.com/file/aqauo58m#scode.txt --------------------编程问答-------------------- 看看正则表达式的使用教程。 --------------------编程问答-------------------- '此代码由“正则测试工具 v1.1.35”自动生成，请直接调用TestReg过程
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, match As Object
strData = "需要提取三个信息，分别是：单号、类型和反馈" & vbCrLf & _
"单号类似于：45509" & vbCrLf & _
"关键词：<span class=""os-comm-oid "">#45509</span>" & vbCrLf & _
"类型类似于：3_【SIM】服务器迁移操作" & vbCrLf & _
"关键词：<span class=""workarea"">[3_【SIM】服务器迁移操作]</span>" & vbCrLf & _
"反馈类似于：机器交给物流发往JX机房" & vbCrLf & _
"关键词：<td>向RMS反馈信息:机器交给物流发往JX机房</td> " & vbCrLf & _
"有效反馈有的单子是没有的，没有即没有关键词：向RMS反馈信息，则自动记录：无"
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = True
reg.MultiLine = True
reg.Pattern = "os-comm-oid "">(.*?)</span>[\s\S]*?workarea"">(.*?)</span>[\s\S]*?<td>(.*?)</td> "
Set matchs = reg.Execute(strData)
For Each match In matchs
'Debug.Print match.Value
Debug.Print match.SubMatches(0),match.SubMatches(1),match.SubMatches(2)
Next
End Sub
关于反馈的那一项你只提供了在td标签中，页面源代码中可能有很多td标签，所以需要知道更多的源码以便定位到需要的数据
补充：VB , 基础类
