Office中国论坛/Access中国论坛

标题: 【源码】vba中英互译 [打印本页]
作者: 盗梦    时间: 2014-8-4 09:24
标题: 【源码】vba中英互译
本帖最后由 盗梦 于 2014-8-4 09:27 编辑

[attach]54349[/attach]
这是一个利用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

  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

  20.     If Err > 0 Then MsgBox Err.Description
  21. End Sub
复制代码

源码文件已附上。[attach]54350[/attach]
作者: lovettww    时间: 2014-8-4 09:28
Great~
作者: Daniel_Chan    时间: 2014-8-4 09:45
这个真心不错。
作者: Wanli_Li    时间: 2014-9-24 16:31
学习，感谢！
作者: 轻风    时间: 2014-11-3 11:25
利用有道翻译，不错的例子。
作者: winglee    时间: 2014-11-3 11:47
很牛，如果可以输入中文翻译英文就更好了！



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3