[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
qq76020500

Rank: 2

帖子
18 
积分
164 
技术
0  
捐助
0  
注册时间
2009-7-22 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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 编辑 ]
1

评分人数

    • Batcher: 感谢主动给标题标注[已解决]字样PB + 2
收藏 分享

qq76020500

Rank: 2

帖子
18 
积分
164 
技术
0  
捐助
0  
注册时间
2009-7-22 
2楼
发表于 2009-10-27 18:10 | 只看该作者

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

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

TOP

qq76020500

Rank: 2

帖子
18 
积分
164 
技术
0  
捐助
0  
注册时间
2009-7-22 
3楼
发表于 2009-10-27 18:20 | 只看该作者
[attach]1967[/attach]

TOP

qq76020500

Rank: 2

帖子
18 
积分
164 
技术
0  
捐助
0  
注册时间
2009-7-22 
4楼
发表于 2009-10-27 18:42 | 只看该作者

下面期号不一样，但希望用批处理能输入地址后也截取到。

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

TOP

asnahu

Rank: 5Rank: 5

帖子
206 
积分
963 
技术
16  
捐助
0  
注册时间
2008-3-9 
5楼
发表于 2009-10-27 19:26 | 只看该作者
试试VBS吧：

  1. With CreateObject("InternetExplorer.Application")

  2.   .Visible = true

  3.   .Navigate "http://sports.sina.com.cn/l/2009-10-19/09444643737.shtml"

  4.   Do While .readyState <> 4

  5.   Loop

  6.   str = .document.body.innerText

  7.   str = Split(str, vbCrLf)

  8.   For i = 0 To Ubound(str) - 1

  9.     If Instr(str(i), "欧洲投注火线") > 0 Then

  10.       colLines = colLines & str(i) & vbCrLf

  11.     End If

  12.   Next

  13.   Wscript.Echo colLines

  14. End With
复制代码
1

评分人数

TOP

返回列表