| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1033 人关注过本帖
标题:彩票2元网2014年3月18日中奖号码数据提取vfp代码
只看楼主 加入收藏
月沐庭轩
Rank: 9Rank: 9Rank: 9
来 自:京城
等 级:贵宾
威 望:17
帖 子:393
专家分:1106
注 册:2011-7-24
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:7 
彩票2元网2014年3月18日中奖号码数据提取vfp代码
程序代码:
*!*    彩票2元网2014年3月18日中奖号码数据提取vfp代码
*!*    **********此程序由月沐庭轩制作QQ306805680如需要其他网站更新代码请与作者联系。*
*!*    ***********只适用于http://www./彩票2元网
*!*    *******如该网站升级变更网页代码,此程序也许不能再用********
*!*        适合用于2014年3月18日网站彩票2元网升级后下载数据
*!*    ****将此程序命名为:彩票2元网中奖号码*********************
*!*    ***利用方法:共有一个参数,参数是
*!*    ***如:七星彩:彩票2元网中奖号码("http://www./7xc/7xckj/")
*!*    *******************************************************************
*!*    二元网福彩3D
LPARAMETERS weblites
starttime=SECONDS()*1000
CLEAR
PUBLIC test
test=CREATEOBJECT("Msxml2.XMLHTTP")
test.OPEN("GET",weblites,.f.)
test.SEND
tempstr=""
tempstr=test.responsetext
startstr=ATC([class="fbl">],tempstr)
endstr=ATc([</table>],tempstr,2)
shuchu=SUBSTR(tempstr,startstr,endstr-startstr)
shuchu=STRTRAN(shuchu,CHR(32),"")
shuchu=STRTRAN(shuchu,CHR(10),"")
shuchu=STRTRAN(shuchu,CHR(13),"")
shuchu=STRTRAN(shuchu,CHR(8),"")
shuchu=STRTRAN(shuchu,CHR(9),"")
shuchu=STRTRAN(shuchu,CHR(11),"")
shuchu=STRTRAN(shuchu,CHR(12),"")
endstr=ATc("</td>",shuchu,2)
shuchukuai=left(shuchu,endstr)
clenleft=RAT([">],shuchukuai)
clenright=RAT([</i>],shuchukuai)
clen=clenright-clenleft-2
        ishuzi=OCCURS("</i",shuchukuai)
CREATE CURSOR mytable2se (期号 c(10),对奖号 c(16))
DO WHILE .NOT. startstr=0
        shuchu=SUBSTR(shuchu,13)
        endstr=AT("<",shuchu)
        qihao=LEFT(shuchu,endstr-1)
        jianghao=""
        FOR i=1 TO ishuzi
        startstri=ATC([</i],shuchu)
        shuchu=SUBSTR(shuchu,startstri-clen)
        jianghao=jianghao+LEFT(shuchu,clen)    
        shuchu=SUBSTR(shuchu,5)
        endfor    
        startstr=ATC([class="fbl">],shuchu)
        shuchu=SUBSTR(shuchu,startstr)
        INSERT INTO mytable2se VALUES(qihao,jianghao)
ENDDO
GO TOP
endtime=SECONDS()*1000
TIMES=endtime-starttime
?"程序开始时间:"
??starttime
?"程序结束时间:"
??endtime
?"程序花费时间"
??TIMES
??"毫秒"
MESSAGEBOX("你所花费的时间为"+ALLTRIM(STR(TIMES,20))+"毫秒",64,"测试")
BROWSE
RELEASE test


[ 本帖最后由 月沐庭轩 于 2014-3-22 18:59 编辑 ]
搜索更多相关主题的帖子: 中奖号码 彩票 中奖号码 彩票 
2014-03-22 17:14
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:2 
实际上,截取到下面这段字符串,问题就解决了一半
        
            
                <i class="ml6 i-ball i-b20_1">3</i>
            
                <i class="ml6 i-ball i-b20_1">8</i>
            
                <i class="ml6 i-ball i-b20_1">2</i>
            
                <i class="ml6 i-ball i-b20_1">1</i>
            
                <i class="ml6 i-ball i-b20_1">0</i>
            
                <i class="ml6 i-ball i-b20_1">1</i>
            
                <i class="ml6 i-ball i-b20_2">7</i>

 这些字符串都有一个共同特点,数据位置都是一样的。用函数STREXTRACT( )可提取到每行中的黑体数据

坚守VFP最后的阵地
2014-03-22 18:45
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:1 
高手

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2014-03-22 18:45
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:1 
        <div><span class="dib w200">开奖日期:2014-03-18</span><span>本期七星彩投注总额:15,717,100 元</span>
开奖日期的提取还是用上面提到的函数:STREXTRACT()
?STREXTRACT([查看原文件中的内容],[<div><span class="dib w200">开奖日期:],[</span><span>本期七星彩投注总额:])
实际上这个网页上的数据还是很容易提取的,数据都是在别的窗口中打开的,提取方便。

坚守VFP最后的阵地
2014-03-22 18:53
月沐庭轩
Rank: 9Rank: 9Rank: 9
来 自:京城
等 级:贵宾
威 望:17
帖 子:393
专家分:1106
注 册:2011-7-24
收藏
得分:0 
回复 4楼 sdta
s版主说得太对了,我也想过用STREXTRACT()函数的。以前做过几个这样的提取数据的,用的方法都不一样。谢谢版主指教。

坚持学习vfp,QQ:306805680
2014-03-22 18:56
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:14 
2楼问题的代码大致如下
程序代码:
lc=FILETOSTR([7xc.txt]) && 本示例中,我是将2楼的网页数据保存在文本文件中,实际操作中是从网页文件中,根据特定字符串截取的
nRow=ALINES(ASJ,lc,CHR(13)+CHR(10))
lcStr=[]
FOR lnI=1 TO nRow
    IF [</i>]$ASJ[lnI]
       lcStr=lcStr+STREXTRACT(ASJ[lnI],[<i class="ml6 i-ball i-b20_1">],[</i>])+STREXTRACT(ASJ[lnI],[<i class="ml6 i-ball i-b20_2">],[</i>])
    ENDIF
ENDFOR
?lcStr


坚守VFP最后的阵地
2014-03-22 18:57
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:1 
以下是引用月沐庭轩在2014-3-22 18:56:43的发言:

s版主说得太对了,我也想过用STREXTRACT()函数的。以前做过几个这样的提取数据的,用的方法都不一样。谢谢版主指教。
只有相互交流,才能共同提高。只是谈些我个人的看法,谈不上指教。

坚守VFP最后的阵地
2014-03-22 18:58
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:1 
以下是引用hu9jj在2014-3-22 18:45:40的发言:

高手
真是
2014-03-22 19:39
快速回复:彩票2元网2014年3月18日中奖号码数据提取vfp代码
数据加载中...
 
   



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

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