有网友建议:
xmlhttp =createObject("Msxml2.XMLHTTP.3.0")
xmlhttp =createObject("Msxml2.XMLHTTP.3.0")
xmlhttp.open("GET","http://dict.baidu.com/s?wd=%E8%B6%8B%E4%B9%8B%E8%8B%A5%E9%B9%9C", .f.)
xmlhttp.send()
lctext=xmlhttp.responseText
lctext=STREXTRACT(lctext,'<ul><li>','</li></ul>',1)
lctext=STRTRAN(STRTRAN(lctext,'</li><li>',CHR(13)+CHR(10)),'<br>','')
thisform.edit2.Value=lctext
但这只是提取其中一个成语的内容,提取其它的成语有怎么办呢?