
坚守VFP最后的阵地
2023-04-01 00:44

[此贴子已经被作者于2023-4-1 12:32编辑过]
2023-04-01 12:30
程序代码:CLEAR
url = 'https://zst.'
oHttp = NewObject('Msxml2.XMLHTTP')
oHttp.open('GET', url, .F.)
oHttp.send()
cc = oHttp.responseText
cc = STREXTRACT(cc, '<tbody id="pagedata">', ' <!-- END -->')
cc = STREXTRACT(cc, "<tr id='tr29'", "<td class='z_bg_05'>")
? STREXTRACT(cc, "<td class='z_bg_05'>", "</td>", 2)
? STREXTRACT(cc, "<td class='z_bg_05'>", "</td>", 3)
? STREXTRACT(cc, "<td class='z_bg_13'>", "</td>")

2023-04-01 13:21