| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 1456 人关注过本帖
标题:请帮忙,提取网上下载的数据,谢谢!
只看楼主 收藏
红星二锅头
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:336
专家分:498
注 册:2016-8-25
  得分:0 
*!*    提取学校和代码:
Clear
Create Cursor Url_tab ( No I, URL C(100), university C(30) )

*!*    oHTTP = Createobject("Winhttp.winhttprequest.5.1")
oHTTP = Createobject("MSXML2.ServerXmlHttp")
oHTTP.SetTimeouts(10000, 10000, 10000, 40000)  && 设置超时
=GetURL(1, 120)  && 枚举页数范围,范围尽量不要太大,会引起超时,分批提取
oHTTP = .Null.
Go Top
Browse Last


Function GetURL(StartNo As Integer, EndNo As Integer)
    For I = StartNo To EndNo
        oHTTP.Open("GET", 'http://www.5151tzy.com/university/details/' + Transform(I), .F.)
        oHTTP.Send()
        Try
            If oHTTP.Status = 200
                Wait Window Transform(I) Nowait At 10, 10
                lcName = Strextract(oHTTP.ResponseText,[<div class="centbot1" title="], [">], 1)
                Insert Into Url_tab Values ( I, 'http://www.5151tzy.com/university/details/' + Transform(I), lcName )
            Endif
        Catch
            * error handling code here.
            * ? "Error"
            Return
        Endtry
    Endfor
    ? "Finish"
Endfunc

团队红星二锅头,队长王猛,领队李冲,顾问杨伟,副队张挺,外联马彪,内勤韩秀,人事顾闯,财务赵魁,后勤周强
2017-05-07 17:31
红星二锅头
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:336
专家分:498
注 册:2016-8-25
  得分:0 
有了 Url_tab 表中的地址
就可以提取你所需要的:历史录取分数、历史录取统计、专业录取分数等几个标的内容了

自己试试看吧

[此贴子已经被作者于2017-5-7 17:38编辑过]


团队红星二锅头,队长王猛,领队李冲,顾问杨伟,副队张挺,外联马彪,内勤韩秀,人事顾闯,财务赵魁,后勤周强
2017-05-07 17:32
schtg
Rank: 6Rank: 6
等 级:贵宾
威 望:10
帖 子:312
专家分:418
注 册:2012-2-29
  得分:0 
回复 22楼 红星二锅头
好的,谢谢红斑竹!
2017-05-07 20:12
schtg
Rank: 6Rank: 6
等 级:贵宾
威 望:10
帖 子:312
专家分:418
注 册:2012-2-29
  得分:0 
回复 21楼 红星二锅头
红版主,得到的数据仍然是文科的,不是理科的数据,请有时间时再帮我看一下,谢谢!
2017-05-09 15:11
山狼LS
Rank: 2
来 自:河南商丘
等 级:论坛游民
威 望:1
帖 子:83
专家分:31
注 册:2015-9-9
  得分:0 
vfp作业,课程设计代做,二级,考试援助 qq:1043462884

有人能,我就能!
2017-05-10 12:04
红星二锅头
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:336
专家分:498
注 册:2016-8-25
  得分:0 
文科的网址是哪个?我不知道哪里进入文科的网页。

团队红星二锅头,队长王猛,领队李冲,顾问杨伟,副队张挺,外联马彪,内勤韩秀,人事顾闯,财务赵魁,后勤周强
2017-05-10 13:33
红星二锅头
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:336
专家分:498
注 册:2016-8-25
  得分:0 
或者发一张有文科网址的图片上来

[此贴子已经被作者于2017-5-10 13:37编辑过]


团队红星二锅头,队长王猛,领队李冲,顾问杨伟,副队张挺,外联马彪,内勤韩秀,人事顾闯,财务赵魁,后勤周强
2017-05-10 13:33
schtg
Rank: 6Rank: 6
等 级:贵宾
威 望:10
帖 子:312
专家分:418
注 册:2012-2-29
  得分:0 
回复 27楼 红星二锅头
1、如果使用http://www.5151tzy.com,就会出现登录选择:


2、如果使用http://www.5151tzy.com/home/main,直接出现文科界面:


3、如果使用http://www.5151tzy.com入网,用注册的理科生的身份进入网页就显示理科信息


通过三步选择之后,出来的就是理科数据:


理科信息也是我需要的,请帮忙,非常感谢!

[此贴子已经被作者于2017-5-10 16:01编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2017-05-10 15:57
schtg
Rank: 6Rank: 6
等 级:贵宾
威 望:10
帖 子:312
专家分:418
注 册:2012-2-29
  得分:0 
回复 27楼 红星二锅头
红版主,我已把理科生的注册信息通过“发短消息”发给你啦,请有时间时帮忙看一下,谢谢!

[此贴子已经被作者于2017-5-10 19:48编辑过]

2017-05-10 16:04
schtg
Rank: 6Rank: 6
等 级:贵宾
威 望:10
帖 子:312
专家分:418
注 册:2012-2-29
  得分:0 
回复 9楼 厨师王德榜
谢谢版主!
2017-05-10 20:03







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.059626 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved