【Access示例】英文翻译成中文-will.miao
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


【Access示例】英文翻译成中文

发表时间:2019/10/29 20:21:41 评论(1) 浏览(10133)  评论 | 加入收藏 | 复制
   
摘 要:做了一个英文翻译成中文的示例,分享给大家,代码也比较简单,示例是取的有道词典的数据,示例运行必须联网。
正 文:

主要代码:

 On Error Resume Next

    Dim strTemp As String
    Dim html As New HTMLDocument
    Dim url As String
  
    With CreateObject("Microsoft.XMLHTTP")
        
        strTemp = Me.Text91
        url = "http://dict.youdao.com/search?q=" & strTemp & "&keyfrom=dict.index"

'        Debug.Print url
        .Open "get", url, True
        .send
        While .ReadyState <> 4
            DoEvents
        Wend
            html.body.innerHTML = .responseText
            
            Me.Text94 = html.getElementsByClassName("baav")(0).innerText & vbCrLf
            Me.Text94 = Me.Text94 & html.getElementsByClassName("trans-container")(0).innerText
        
    End With


附件下载:

点击下载此附件


演   :


Access软件网交流QQ群(群号:198465573)
 
 相关文章
【SetOption】或【GetOption】方法的相应的字符串参...  【落尘  2012/3/26】
【Access】中英文属性对照表  【杨雪  2016/3/17】
【好文共享】企业数据库全局战略中的Access(翻译)  【Luke Chung  2017/1/24】
Access 与 Excel 之对比(翻译)  【Jason  2017/12/14】
企业数据库全局战略中的Access(翻译)  【Luke Chung  2018/1/14】
窗体控件标签翻译,VBA批量修改。  【gaoyunpeng  2018/4/14】
常见问答
技术分类
相关资源
文章搜索
关于作者

will.miao

文章分类

文章存档

友情链接