批处理之家 - Powered by Discuz! Board

标题: [网络连接] [已解决]网页中截取数值的批处理 [打印本页]

作者: qq76020500 时间: 2009-10-27 18:09 标题: [已解决]网页中截取数值的批处理

网页中截取数值的批处理
输入地址为：
http://sports.sina.com.cn/l/2009-10-19/09444643737.shtml
取得每一场的【欧洲投注火线】3个数值,
如前面1-4场下载到txt中每场一行排列一场的胜平负3个数值用空格或其他隔开
11.30 21.86 66.84
52.60 27.48 19.92
67.11 21.74 11.15
51.91 27.40 20.69
.....
.....
.....

[attach]1960[/attach]
[attach]1959[/attach]

[ 本帖最后由 qq76020500 于 2009-10-27 20:00 编辑 ]

作者: qq76020500 时间: 2009-10-27 18:10 标题: 总共14场，谢谢老师帮忙写代码。

总共14场，谢谢老师帮忙写代码。

作者: qq76020500 时间: 2009-10-27 18:20

[attach]1967[/attach]

作者: qq76020500 时间: 2009-10-27 18:42 标题: 下面期号不一样，但希望用批处理能输入地址后也截取到。

http://sports.sina.com.cn/l/2009-10-17/12234638889.shtml

作者: asnahu 时间: 2009-10-27 19:26

试试VBS吧：

With CreateObject("InternetExplorer.Application")
  .Visible = true
  .Navigate "http://sports.sina.com.cn/l/2009-10-19/09444643737.shtml"
  Do While .readyState <> 4
  Loop
  str = .document.body.innerText
  str = Split(str, vbCrLf)
  For i = 0 To Ubound(str) - 1
    If Instr(str(i), "欧洲投注火线") > 0 Then
      colLines = colLines & str(i) & vbCrLf
    End If
  Next
  Wscript.Echo colLines
End With
复制代码

欢迎光临批处理之家 (http://www.bathome.net/)