| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3480 人关注过本帖
标题:如何编程批量采集高考成绩
取消只看楼主 加入收藏
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1711
专家分:3318
注 册:2012-2-29
结帖率:93.55%
收藏
已结贴  问题点数:10 回复次数:18 
如何编程批量采集高考成绩
我现有考生信息表,主要包含考生号ksh、准考证号zkzh、身份证号sfzh三个字段。
请问如何采用编程方式一次性查询全部学生的高考成绩,并生成数据表文件。
查询网址:http://cx.
我的电脑无法上传附件,只有将考生信息罗列如下
create dbf ks(ksh c(15),ZKZH c(9),sfzh c(18))
insert into ks values("16511801162617","180190219","513901199702272318")
insert into ks values("16511801162643","180190329","51012119980327782X")
insert into ks values("16511801170066","180180920","513901199809110220")
请高手帮忙,谢谢!
2016-10-16 14:06
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1711
专家分:3318
注 册:2012-2-29
收藏
得分:0 
谢谢版主,我试一下哈。
2016-10-16 18:29
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1711
专家分:3318
注 册:2012-2-29
收藏
得分:0 
版主,你已经获取了高考成绩的数据,请把代码传给我,邮箱schtg@,非常感谢!我对网页html的知识知之太少,修改起来难度很大,谢谢你的帮助!
2016-10-16 18:51
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1711
专家分:3318
注 册:2012-2-29
收藏
得分:0 
版主,这是我修改的代码,没有成功,请指教,谢谢!
DECLARE LONG WSAStartup  IN Ws2_32 LONG, STRING@
DECLARE LONG WSACleanup  IN Ws2_32
DECLARE LONG socket      IN Ws2_32 LONG, LONG, LONG
DECLARE LONG connect     IN Ws2_32 LONG, STRING@, LONG
DECLARE LONG send        IN Ws2_32 LONG, STRING@, LONG, LONG
DECLARE LONG recv        IN Ws2_32 LONG, STRING@, LONG, LONG
DECLARE LONG closesocket IN Ws2_32 LONG
CREATE CURSOR fff (姓名 C(14), 考生号 C(14), 语文 C(6), 数学 C(6), 外语 C(6), 理科综合 c(6),物理 c(6),化学 c(6),生物 c(6),文科综合 C(6), 政治 C(6), 历史 C(6), 地理 C(6), 加试分 C(6), 总分 C(6))
CREATE CURSOR hhh (考生号 C(14), 准考号 C(9), 身分证号 C(18))
INSERT INTO hhh VALUES ("16511801162617","180190219","513901199702272318")
INSERT INTO hhh VALUES ("16511801162640","180180705","513901199707036429")
INSERT INTO hhh VALUES ("16511801162623","180180516","513901199702166419")
 SCAN
     szGet = 0h474554202F48616E646C65722F4765745370636A6B48616E646C65722E617368783F6A736F6E63616C6C50503D6A517565727931363032303731353130373239303730303438355F31343231313936343333363137266B73683D;
           + hhh.考生号 + 0h2673667A683D;
           + hhh.身分证号 + 0h267A6B7A683D;
           + hhh.准考号 + 0h26797A6D3D254538254146254237254537253832254239254535253837254242265F3D3134323131393634333337323320485454502F312E310D0A;
           + 0h4163636570743A206170706C69636174696F6E2F6A6176617363726970742C202A2F2A3B713D302E380D0A;
           + 0h526566657265723A20687474703A2F2F63782E73636565612E636E2F68746D6C2F474B434A526573756C742E68746D0D0A;
           + 0h4163636570742D4C616E67756167653A207A682D48616E732D434E2C7A682D48616E733B713D302E350D0A;
           + 0h557365722D4167656E743A204D6F7A696C6C612F352E30202857696E646F7773204E5420362E333B2054726964656E742F372E303B2072763A31312E3029206C696B65204765636B6F0D0A;
           + 0h4163636570742D456E636F64696E673A20677A69702C206465666C6174650D0A;
           + 0h486F73743A206170692E73636565612E636E0D0A444E543A20310D0A436F6E6E656374696F6E3A204B6565702D416C6976650D0A0D0A
     _Get(szGet)
 ENDSCAN
SELECT fff
BROWSE
 CLEAR DLLS
RETURN
FUNCTION _Get(szGet)
     LOCAL i, stWsaData, stSockAddr, szBuffer, hSocket, szData, ddLen
     szData     = ""
     ddLen      = 0  
     stWsaData  = REPLICATE(0h00, 398)
     szBuffer   = REPLICATE(0h00, 2048)
     stSockAddr = 0h020000507D400FD10000000000000000
     WSAStartup(0x202, @stWsaData)
     hSocket = socket(2, 1, 6)
     IF connect(hSocket, @stSockAddr, LEN(stSockAddr)) != -1
         IF send(hSocket, @szGet, LEN(szGet), 0) != -1
             FOR i = 1 TO 10
                 ddLen = recv(hSocket, @szBuffer, LEN(szBuffer), 0)
                 IF ddLen != -1
                     EXIT
                 ENDIF
             ENDFOR
         ENDIF
     ENDIF
     closesocket(hSocket)
     WSACleanup()
     IF ddLen > 0
         szData = STRCONV(LEFT(szBuffer, ddLen), 11)
         szData = SUBSTR(szData, AT("姓名", szData))
         INSERT INTO fff VALUES (STREXTRACT(szData, [姓名","QValue":"], ["]),;
                                 STREXTRACT(szData, [考生号","QValue":"], ["]),;
                                 STREXTRACT(szData, [语文","QValue":"], ["]),;
                                 STREXTRACT(szData, [数学","QValue":"], ["]),;
                                 STREXTRACT(szData, [外语","QValue":"], ["]),;
                                 STREXTRACT(szData, [理科综合","QValue":"], ["]),;
                                 STREXTRACT(szData, [物理","QValue":"], ["]),;
                                 STREXTRACT(szData, [化学","QValue":"], ["]),;
                                 STREXTRACT(szData, [生物","QValue":"], ["]),;
                                 STREXTRACT(szData, [文科综合","QValue":"], ["]),;
                                 STREXTRACT(szData, [政治","QValue":"], ["]),;
                                 STREXTRACT(szData, [历史","QValue":"], ["]),;
                                 STREXTRACT(szData, [地理","QValue":"], ["]),;
                                 STREXTRACT(szData, [加试分","QValue":"], ["]),;
                                 STREXTRACT(szData, [总分","QValue":"], ["]))
     ENDIF
 ENDFUNC
2016-10-16 18:57
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1711
专家分:3318
注 册:2012-2-29
收藏
得分:0 
我的不成功,没有数据,请版主指教,谢谢!
2016-10-16 20:03
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1711
专家分:3318
注 册:2012-2-29
收藏
得分:0 
好的,我检查一下,我使用的浏览器时MyIE9,难道与此有关?我改用Internet Explorer试一下,谢谢!
2016-10-17 06:43
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1711
专家分:3318
注 册:2012-2-29
收藏
得分:0 
卸载MyIE9,改为Internet Explorer作为浏览器,重试版主提供的代码,得到数据,完全成功,原因可能就出在浏览器方面,版主,非常感谢!
2016-10-17 06:57
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1711
专家分:3318
注 册:2012-2-29
收藏
得分:0 
成功啦!谢谢各位,谢谢版主!
2016-10-17 06:58
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1711
专家分:3318
注 册:2012-2-29
收藏
得分:0 
版主,请问如果有"验证码"时,如何处理?请指教,谢谢!
2016-10-17 07:18
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1711
专家分:3318
注 册:2012-2-29
收藏
得分:0 
有验证码的,比如查询录取情况:http://cx.,该如何获取验证码?如何验证呢?请版主、高手赐教,谢谢!
2016-10-17 07:39
快速回复:如何编程批量采集高考成绩
数据加载中...
 
   



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

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