Diccionario mdx de importación de Excel
/view/aba98f8f84868762caaed5dd? fr = imprimir
o
función worddef(str1 como cadena)
/búsqueda? q = palabra & keyfrom=dict.index
Fuzzy XH como objeto
Atenuar s() como cadena
Atenuar str_tmp como cadena
Dim str_base como cadena
Abrir página web
Establecer XH = CreateObject("Microsoft.XMLHTTP")
Continuar con el siguiente paso en caso de error
p>XH. Abra "Get", "/Search?q = " & ampstr 1 & " & ampkeyfrom=dict.index ", False
XH.send
En caso de error, continúe con el siguiente paso
str_base = XH.responseText
XH. Cerrar
establecer pestaña " " >；)(0)," & ltspan class=""keyword " " >)(1)
worddef = " "
Recuperar traducción al chino
str_tmp = Split((Split(str_base, " & ltdiv class=""trans-container " " >)(1)), "& lt/div >;")( 0)
str_tmp = Dividir((Dividir(str_tmp,"<ul>;")(1)),"</ul>)(0)
s = Dividir(str_tmp ,"<李>)
palabra def = Split(s(LBound(s)+1),"</李")(0)
For i = LBound(s ) + 2 a UBound(s)
worddef = worddef & ampChr(10)Split(s(i),"</李")(0)
Entonces
Finalizar función