各位大侠,能把这些内容用VFP 下载下来并能实时更新放到一个表中吗
各位大侠,能把http://www.lottery.
”出球顺序: 26 30 02 33 31-12 11(本期使用:第3套摇奖球)“
的这些内容用VFP 实时更新下载下来放到一个表中吗
[ 本帖最后由 jinanshui 于 2013-8-7 14:59 编辑 ]
If "出球顺序"$aResult[ncolumn]&&检索含开奖顺序的数组,应该是aResult[8] n1=Substr(aResult[ncolumn],At(":",aResult[ncolumn],1)+2,2)&&球1,用网页复制来的“:”定位,是双字节 n2=Substr(aResult[ncolumn],At(" ",aResult[ncolumn],1)+1,2)&&2 n3=Substr(aResult[ncolumn],At(" ",aResult[ncolumn],2)+1,2)&&3 n4=Substr(aResult[ncolumn],At(" ",aResult[ncolumn],3)+1,2)&&4 n5=Substr(aResult[ncolumn],At(" ",aResult[ncolumn],4)+1,2)&&5 n6=Substr(aResult[ncolumn],At("-",aResult[ncolumn],1)+1,2)&&球6,“-”后两位 n7=Substr(aResult[ncolumn],At(" ",aResult[ncolumn],5)+1,2)&&7 nBall=Substr(aResult[ncolumn],At("第",aResult[ncolumn],1)+2,1)&&第几套球,字串中就一个“第”字 Endif
***********************下面更改下拉选框,浏览往期历史数据。***************** *前提:oie是浏览器对象,并已打开相应网页"http://www.lottery./lottery/dlt/detail.aspx" *传入参数为要查的期数,文本格式:“13091” *例句:BrowseAnother("13089") Procedure BrowseAnother Lparameters cSerial &&传入期数 otab=oie.Document.getelementsbytagname("select")&&取得Select选择框对象引用 otab.Item(0).Value=cSerial&&改期数为传入值 oie.Document.Forms(0).submit&&递交网页申请,页面刷新后,oTab的对象引用被重置,不可用了 Endproc &&需要重新申请引用。 &&网页的数据被刷新,可以重复上文述及的取数操作,获得往期数据。