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

时　间:2019-10-29 20:21:41
作　者:缪炜   ID：24010  城市：江阴
摘　要:做了一个英文翻译成中文的示例，分享给大家，代码也比较简单，示例是取的有道词典的数据，示例运行必须联网。
正　文:

主要代码:

 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

附件下载:

点击下载此附件

演   示: