Diccionario de juicio de Excelvba
/view/aba98f8f84868762caaed5dd? fr=prin
o
palabra funcional def (cadena 1 como cadena)
/search? q = palabra & keyfrom=dict.index
Atenuar XH como objeto
Atenuar s() como cadena
Atenuar str_tmp como cadena
Atenuar str_base como cadena
Abrir página web
Establecer XH = CreateObject("Microsoft.XMLHTTP")
Continuar en caso de error Siguiente paso
XH. Abra "Get",/search?q="&str1&"&keyfrom=dict.index",False
XH.send
Continuar en caso de error Siguiente
str_base = XH.responseText
XH. Cerrar
set xh=Ninguno
str_base = Split( tab"">)(0)"<span class="keyword"">)(1)
worddef=""
Recuperar traducción al chino
str_tmp = Split((Split(str_base,<div class="Transfer Container">)(1)"</div> ;")(0)
str_tmp = Dividir((Dividir(str_tmp,"lt;ul>")(1)"</ul>")(0)
s = Dividir (str_tmp,"<李》)
palabra def = Dividir(s(LBound(s)+1)"</李")(0)
para i = límite superior + 2 al límite inferior
worddef = worddef&chr(10) y ampsplit(s(i)"</li")(0)
Entonces
Finalizar función