做了一个通过xml获取爱词霸单词释义的脚本

xiongmao86

有时要在word里面查单词可以用它。
话说以前写了个海词的脚本，被转义字符搞得头脑发胀，还是ciba好，什么都不用，
只有三个函数：
FetchIciba
FetchHttpXml
ProcessXml

DictEntry是自定义类型
DictEntry.key 是查询的关键字
.pron 是发音，默认取美音
.def 是释义。

例子：
    查take的代码
    Dim xml As MSXML2.DOMDocument60
    Dim de As DictEntry
    Set xml = FetchIciba("take")
    de = ProcessXml(xml)


WMHSWORD_iciba.rar (843 Bytes, 下载次数: 33)

2012-6-1 06:20 上传

点击文件名下载附件
bas文件

书生春秋

不知怎么用呢

xiongmao86

用法我在贴里写了，代码其实也不多，就两个函数。

其实我是有别的用途的，不过这个功能抽出来做脚本，做个例子看。