好象下载 xx.html 就可以
程序代码:
url = "https://xkkm./web/xx.html" wh = CREATEOBJECT("WinHttp.WinHttpRequest.5.1") wh.Open("GET", url, 0) wh.Send() trs = STREXTRACT(wh.ResponseText,[<tbody],[</tbody]) CREATE CURSOR tt (序号 I,地区 C(10),学校代码 C(6),学校名称 C(20),选考科目要求 C(10),学校网址 C(100)) n = AT("<tr>",trs) DO WHILE n>0 trs = SUBSTR(trs,n+4) INSERT INTO tt VALUES (; VAL(STREXTRACT(trs,[>],[<],1)),; STREXTRACT(trs,[>],[<],3),; STREXTRACT(trs,[>],[<],5),; STREXTRACT(trs,[>],[<],7),; STREXTRACT(trs,[>],[<],10),; STREXTRACT(trs,[>],[<],19)) n = AT("<tr>",trs) ENDDO SELECT * FROM tt