http://888.qq.com/info/award/index.php?mod=kuaicai&lab=11X5&qihao=获取开奖数据正则表达式
解决方案 »
- 高手们帮看看这个vba怎么修正,谢谢!
- VB中关于crc校验算法问题
- 关于string的问题.
- 为什么在局域网内用VB连接SQLSERVER2000还要先访问那台装有SQLSERVER2000的服务器,才能连成功,否则出错?
- 找几个图标
- 几个简单问题,帮帮忙,菜鸟问题.
- 大家帮我看看这个错误是怎样造成的?如何解决?
- 谁有mshflexgrid控件与数据环境一起使用的例子!!
- 从电子称到com口怎么知道某一次的传输已经结束?急急急
- 能否用DataGrid来显示记录,但当我对其所显示的记录进行修改时,它并不直接保存到数据库,而由所编写的程序来控制其是否保存到数据库?
- 求助:网站学习每十分钟弹出一个确定窗口,让电脑自己点确定。
- 关于ACCESS数据库的问题
大致这样吧。
http://888.qq.com/info/chart/dlc/index.php
On Error Resume Next
Dim i&
Dim RegExp As Object, Matches As Object
Set RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = True
RegExp.Pattern = "align=""center"">(\d{6,})</td>[\s\S]*?(?:.*?)>(\d{2})</td>[\s\S]*?(?:.*?)>(\d{2})</td>[\s\S]*?(?:.*?)>(\d{2})</td>[\s\S]*?(?:.*?)>(\d{2})</td>[\s\S]*?(?:.*?)>(\d{2})</td>[\s\S]*?(?:.*?)<td"
Set Matches = RegExp.Execute(Source)
MsgBox Matches.Count
For i = 0 To Matches.Count - 1 '遍历所有匹配项
Debug.Print Matches(i).SubMatches(0) & "|" & Matches(i).SubMatches(1) & "," & Matches(i).SubMatches(2) & "," & Matches(i).SubMatches(3) & "," & Matches(i).SubMatches(4) & "," & Matches(i).SubMatches(5)
Next i
Set Matches = Nothing
Set Matches = Nothing
End Function
结果:
13032544|09,01,10,06,07
13032545|09,07,01,10,03
13032546|03,04,06,09,02
13032547|07,10,08,11,03
13032548|09,07,01,11,02
13032549|06,03,05,07,01
13032550|01,05,09,03,07
13032551|08,04,09,03,10
13032552|02,07,09,03,06
13032553|07,11,08,04,03
13032554|08,02,09,05,04
13032555|08,09,05,02,03
13032556|11,01,06,09,02
13032557|05,06,07,04,08
13032558|08,06,02,07,01
13032559|09,08,03,11,10
13032560|02,08,06,07,01
13032561|09,03,08,07,02
13032562|03,09,10,04,11
13032563|01,03,11,02,09
13032564|05,09,04,06,01
13032565|05,09,02,07,11
13032566|09,08,11,02,07
13032567|02,08,03,09,01
13032568|02,10,11,05,08
13032569|05,02,04,09,10
13032570|01,10,04,11,03
13032571|08,11,09,02,01
13032572|04,02,08,07,10
13032573|03,04,08,06,02
13032574|01,11,03,08,10
13032575|07,11,02,08,06
13032576|08,01,03,04,10
13032577|03,01,10,04,02
13032578|05,02,09,01,10
13032601|07,01,09,11,06
13032602|04,05,03,07,11
13032603|08,07,03,01,04
13032604|10,02,05,07,11
13032605|09,03,01,04,05
13032606|10,04,08,02,05
13032607|01,10,04,02,05
13032608|03,11,02,01,09
13032609|03,11,04,07,09
13032610|07,02,11,10,06
13032611|01,04,02,08,03
13032612|06,04,03,01,10
13032613|02,04,11,07,10
13032614|03,11,07,06,01
13032615|02,05,03,04,10
13032616|02,04,03,01,09
13032617|08,09,01,10,03
13032618|11,10,01,02,05
13032619|06,08,01,10,09
13032620|09,07,01,11,05
13032621|09,07,03,05,01
13032622|01,09,08,02,07
13032623|03,08,06,04,07
13032624|10,03,02,01,06
13032625|10,01,04,05,08
13032626|04,08,10,02,01
13032627|07,01,08,03,04
13032628|04,01,11,08,09
13032629|03,02,01,06,09
13032630|10,03,08,06,11
13032631|05,09,04,07,10
13032632|04,02,10,06,09
13032633|06,02,04,08,10
13032634|02,11,07,04,06
13032635|08,03,05,11,09
13032636|09,10,01,08,06
13032637|05,10,09,07,01
13032638|10,05,04,07,01
13032639|11,03,10,01,06
13032640|11,06,01,03,09
13032641|11,10,03,08,02
13032642|01,11,05,08,10
13032643|07,09,10,08,01