我圈起来的，是期号，试机号，奖号（我只需要这几个数据）

请教如何用VFP获取指定网页上的内容
我要做一个彩票软件，我想直接采集新浪彩票的数据，所以我想到了直接抓取新浪的数据，因为新浪不会倒闭，所以采他们的数据是稳定的。
他们网站是固定的数据（每次只加载50条数据），所以我只需要采集最后一排的，就是今天的开奖号，用来做我的更新，我想实现自动更新！
下面是网址：
https://match.lottery.
那位大佬帮帮忙，给点代码
最好给点注释，本人没写过这类似的程序，基础不是很好，还需要消化！非常感谢！

url = 'https://match.lottery.'
oHttp = NewObject('Msxml2.XMLHTTP')
oHttp.open('GET', url, .f.)
oHttp.send()
cc = oHttp.responseText
cc = StrExtract(cc, '<tbody id="cpdata">', '</tbody>')
nn = Occurs('</tr>', cc)
cc = StrExtract(cc, '<tr', '</tr>', nn)
? StrExtract(cc, '<td>', '</td>', 1)
? StrExtract(cc, '<td class="fen">', '</td>', 1)
? StrExtract(cc, '<td class="fen">', '</td>', 2)
? StrExtract(cc, '<td>', '</td>', 2)

楼主的问题应该没说清楚吧

CLEAR 
url = 'https://match.lottery.'
oHttp = NewObject('Msxml2.XMLHTTP')
oHttp.open('GET', url, .f.)
oHttp.send()
cc = oHttp.responseText
cc = STREXTRACT(cc, '<tr>', '</tr>', 50)
= ALINES(la, cc, 5)
? STREXTRACT(la[1], '>', '<')
? IIF("title="$la[3], STREXTRACT(la[3],">","<",2), STREXTRACT(la[3],">","<",1))
? IIF("title="$la[5], STREXTRACT(la[5],">","<",2), STREXTRACT(la[5],">","<",1))

[此贴子已经被作者于2023-3-17 23:12编辑过]

多谢版主，你最理解我了
你能不能解释一下，这个程序，我也好学习一下，之后我还得去抓其他内容，不能每次都来求助吧！

每个网站文本在网页中显示格式各不相同，提取方法也不同。因此关键问题在于对VFP基础知识掌握的程度，只有有了扎实的基本功，才能处理好自己的日常需求。

网站我是懂的，麻烦你解释一下吧！谢谢！大概解释一下，我就应该明白了
oHttp.send()
cc = oHttp.responseText
cc = STREXTRACT(cc, '<tr>', '</tr>', 50)
= ALINES(la, cc, 5)
? STREXTRACT(la[1], '>', '<')
? IIF("title="$la[3], STREXTRACT(la[3],">","<",2), STREXTRACT(la[3],">","<",1))
? IIF("title="$la[5], STREXTRACT(la[5],">","<",2), STREXTRACT(la[5],">","<",1))
大概执行过程，是不是把网站源码读取到内存，然后再去判断取值，我自我认为是这样的，不知道对不对

[此贴子已经被作者于2023-3-18 10:38编辑过]

参照VFP帮助把代码中的函数研究一下。

好的，谢谢！

大神版主，能不能帮我，改一下程序，现在换成这个网址https://zst.
我研究了一下，没弄明白
CLEAR
url = 'https://match.lottery.'
oHttp = NewObject('Msxml2.XMLHTTP')
oHttp.open('GET', url, .f.)
oHttp.send()
cc = oHttp.responseText
cc = STREXTRACT(cc, '<tr>', '</tr>', 50)
到了这里，我就没弄懂了，不知道怎么取出来了，研究了半天也没弄明白！
= ALINES(la, cc, 5)
? STREXTRACT(la[1], '>', '<')
? IIF("title="$la[3], STREXTRACT(la[3],">","<",2), STREXTRACT(la[3],">","<",1))
? IIF("title="$la[5], STREXTRACT(la[5],">","<",2), STREXTRACT(la[5],">","<",1))
麻烦帮我改一下，我只要    期号  试机号  号码
新浪更新了，没得试机号了，无奈我也只有换网站，感谢！