Colección de citas famosas - Slogan de motivación - Diccionario de juicio de Excelvba

Diccionario de juicio de Excelvba

Archivando

/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