【源码】vba中英互译

盗梦

这是一个利用XmlHttp对象实现中英互译的功能。主要代码如下：

1. Private Sub cmdTranfor_Click()
   
2.     On Error Resume Next
   
3.     Dim str As String
   
4.     str = Nz(Me.txtText)
   
5.     If str = "" Then
   
6.         Me.txtTranfor = ""
   
7.         Exit Sub
   
8.     End If
   
9. 
   
10.     Dim objXml As Object
    
11.     Set objXml = CreateObject("microsoft.xmlhttp")
    
12.     With objXml
    
13.         .Open "POST", "http://fanyi.youdao.com/translate", False
    
14.         .setrequestheader "content-TYPE", "application/x-www-form-urlencoded"
    
15.         .send "i=" & str & "&doctype=json"
    
16.         txtTranfor = Split(Split(.responsetext, "tgt"":""")(1), """}")(0)
    
17.     End With
    
18.     Set objXml = Nothing
    
19. 
    
20.     If Err > 0 Then MsgBox Err.Description
    
21. End Sub
    

复制代码

源码文件已附上。

lovettww

Great~

Daniel_Chan

这个真心不错。

Wanli_Li

学习，感谢！

轻风

利用有道翻译，不错的例子。

winglee

很牛，如果可以输入中文翻译英文就更好了！