- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
2#
發表於 2012-11-10 00:06
| 只看該作者
因工作需要，要把地址中翻英輸入翻譯網址http://cdict.net/ 或中華郵政 (因需下拉故放棄)
資料約2000多筆， ...
paddyliu 發表於 2012-11-5 15:05 
不好意思, 慢了
只要http://cdict.net/ 不改版, 也可以用的.- Public Function getCdit(strIn As Variant) As Variant
- Dim objXML
- Dim strResult As String
- Dim strResultFin As String
- Dim lngPosStart As Long
- Dim lngPosEnd As Long
-
- Set objXML = CreateObject("MSXML2.ServerXMLHTTP")
- objXML.Open "GET", "http://cdict.net/?q=" & strIn, False
- Call objXML.send
- strResult = objXML.responseText
- strResultFin = ""
- lngPosStart = InStr(1, strResult, "<div id='eng_addr'>", vbTextCompare)
- If lngPosStart > 0 Then
- lngPosEnd = InStr(lngPosStart, strResult, "</div>", vbTextCompare)
- strResultFin = Mid(strResult, lngPosStart + Len("<div id='eng_addr'>"), lngPosEnd - lngPosStart - Len("<div id='eng_addr'>"))
- End If
- getCdit = strResultFin
- Set objXML = Nothing
- End Function
|
|
發表於 2012-11-5 15:05
| 
