求代码: 抽取网页中指定位置的文本(只有55分了)

[thinclient]

网址如下,是一个查英语单词的网页
http://dict.cn/victory
我想用代码得到这个页面中的如下信息:
1. 单词:即victory
2. 音标　　
3. 基本释义
4. 例句
5. 词语用法
6. 近反义词

[taohua300]

示例

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项内容

[thinclient]

谢回复 希望其它朋友也能帮忙

[十豆三]

用1楼截取字符串的方法。
或
用 WebBrowse 控件打此网页
loWebDoc=Thisform.WebBrowser1.Document
MessageBox(loWebDoc.getElementsByTagName('H1').Item(0).innerHTML)
MessageBox(loWebDoc.getElementsByTagName('BDO').Item(0).innerHTML)
MessageBox(loWebDoc.getElementsByTagName('STRONG').Item(0).innerHTML)
MessageBox(loWebDoc.getElementsByTagName('OL').Item(3).innerHTML) && 再对这个截取就容易了
MessageBox(loWebDoc.getElementsByTagName('DL').Item(0).innerHTML) && 再对这个截取就容易了
MessageBox(loWebDoc.getElementsByTagName('DIV').Item(35).innerHTML) && 再对这个截取就容易了