/view/aba98f8f84868762caaed5dd? Fr = 인쇄
또는
Worddef 함수 (str1문자열로)
/검색? Q = word &；; 키 시작 = dict.index
XH 를 오브젝트로 흐리게 합니다
Dim s () 를 문자열로 사용
Dim str_tmp 를 문자열로 사용
Dim str_base 를 문자열로 사용
홈페이지를 열다
설정 XH = CreateObject ("Microsoft. XMLHTTP) 를 참조하십시오
오류 발생 시 다음 단계로 진행합니다
XH. 가져오기,/검색 열기? Q = "& ampstr1& "& ampkeyfrom=dict.index", False
XH.send
오류 발생 시 다음 단계로 진행합니다
Str_base = XH.responseText
XH. 닫기
설정 XH = 없음
Str _ base = split (split (xh.responsetext, "& ltdiv id =" "webtrans" "class =" "trans-" ) (0), "& ltspanclass =" "keyword" ">) (1)
Worddef = ""
중국어 번역 검색
Str_tmp = Split((Split(str_base, "< div class =" "trans-container" ">) (/klit ") (0)
Str_tmp = Split((Split(str_tmp, "& ltul >；;") ) (1), "& lt/ul >)(0)
S = Split(str_tmp, "< 리 >)
Worddef = split (s (lbound (s)+1), "</ 리") (0)
I = LBound(s)+2 부터 UBound(s) 까지의 경우
Worddef = worddef & ampchr (10) split (s (I), "</ 리") (0)
그리고 나서
기능을 종료합니다