最近要做一个音标词典,却苦于找不到好的音标词库,而必应词典的音标比较好,所以写了这个自动抓取必应词典的英语词汇音标程序。
基本原理:
1. WEBBROWSER元素内容的抓取
2.正则表达式精确提取目标内容
编程语言:
VB6
准备工作:
1. 引用WEBBROWSER控件
2. 引用正则表达式功能
3. 引用EXCEL功能
4. 在程序同一目录中创建一个dictionary.xls的EXCEL文件,表中第一列存储好英语单词,自动搜索后的结果会保存到第二列
界面FORM:
1. 浏览器webbrowser1
2. 按钮command1,command2
3. 文本框text1,text2,text3
全部代码:
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim pointer As Long
Dim word As String
Dim actionFlag As Boolean
Dim startNumber, endNumber As Long
Function getPhoneticString() As String
'从WEBBROWSER中获取音标