2,723
社区成员
发帖
与我相关
我的任务
分享
lcUrl = [http://dict.cn/victory]
oHtml = Createobject("MICROSOFT.XMLHTTP")
oHtml.open("get", lcUrl, .F.)
oHtml.send
lcStr = oHtml.responseBody
word1 = Strextract(Substr(lcStr,At('class="keyword"',lcStr)),'>','<')
?'1. 单词:',Strconv(word1,2)
可以讲lcStr的内容输出到文本中
然后word1的取值方法取出后面5项内容