作者banao1995526 (凝)
看板Office
标题[算表] 大量地址翻译
时间Tue Mar 24 16:50:14 2020
大家好
最近工作上需要大量的地址中翻英
上网爬文後看到之前有高手写了函数转换
但不知道为何我始终带不出英文地址出来，都显示Value，一类的我实在查不出个头绪
以下为代入的函数，想起厉害的高手协助看看哪里需要修正，谢谢！！
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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 211.75.177.223 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1585039817.A.21B.html
1F：→ soyoso: 测试巨集不用改，加个函数encodeurl 03/24 17:13