@echo off&title English Online
for %%a in (a n prep vt vi adv adj ad conj) do set %%a.=a
for %%i in (a.[Z] vi.[W] vt.vi. n.[C]) do set "%%i=a"
:loop
cls&set "word="
echo.&set/p word=   English Online：   
for %%a in (on off) do if "%word%" equ "%%a" goto :next
echo %word%|findstr/i "^[a-z]*$">nul||goto loop
:next
curl "http://www.baidu.com/baidu?ie=gb2312&cl=3&ct=1048576&word=%word%" -o tmp.txt
cls&more +100 tmp.txt>temp.txt
del tmp.txt&echo.&echo    [%word%]
for /f "delims=" %%a in (temp.txt) do (
     set "str=%%a"
     setlocal enabledelayedexpansion
     set "str=!str:*]=!"&set "str=!str:*]=!"
     set "str=!str:</div><div class=!"&set "str=!str:pcixin>=!"
     set "str=!str:pexplain>=!"&set "str=!str:peng><span id=!"
     set "str=!str:dropdownid>=!"&set "str=!str:<font class=!"
     set "str=!str:engi>=!"&set "str=!str:</font>=!"
     set "str=!str:</span>=!"&set "str=!str:pchi><span id=!"
     set "str=!str:</div><div =!"&set "str=!str:<==!"&set "str=!str:>==!"
     set "str=!str:^)=!"&set "str=!str:^(=!"&set "str=!str:"=!"
     call :lp "!str!"
     endlocal
     del temp.txt 2>nul&pause>nul&goto :loop
)
:lp
for /f "tokens=1* delims==" %%a in ("%~1") do (
     set "var=%%a" 
     if /i "!var!" equ "/body" echo.&echo    ERROR&goto :eof
     if /i "!var:~,4!" equ "/div" goto :eof
     if defined !var! echo.
     for /l %%a in (0 1 9) do if "!var:~,1!" equ "%%a" echo.
     echo    !var!
     if "%%b" neq "" call :lp "%%b"
)
goto :eof
复制代码

@echo off
if not exist d:\word\ md d:\word\
:loop
setlocal
cls&echo.&echo.
set/p word=  English online: 
if not defined word endlocal&goto loop
if exist "d:\word\%word%.txt" type "d:\word\%word%.txt"&pause>nul&endlocal&goto loop
(echo.&echo [%word%]&echo.)>"d:\word\%word%.txt"
wget -O tmp.txt "http://www.baidu.com/baidu?ie=gb2312&cl=3&ct=1048576&word=%word%" -q
title English online
more +100 tmp.txt>tmp&move /y tmp tmp.txt
wfr tmp.txt /rnnlic:"(以上结果.*|.*>\]</div>|<\/(font|div|span)>)" /t
wfr tmp.txt /r:"(<div class=p(cixin|explain|eng|chi)>|<span id=dropdownid>|<(font class=engi|br)>)" /t
type tmp.txt|wfr /r:"\d+\." /t:"\r\n\r\n\0"|wfr /r:"(([a-z]+|\a)(\.|\?))" /t:"\0\n"|wfr /r:"[A-Z]{1,}(\s|\a)+" /t:"\n\0">>"d:\word\%word%.txt"
type "d:\word\%word%.txt"&del tmp.txt
endlocal
pause>nul
goto loop
复制代码

 ::::::::::::::::::::::::::::::::::::::::::::::::
::[用法] 保存为dict.bat于当前路径后，命令行下格式: dict word
::::::::::::::::::::::::::::::::::::::::::::::::
@echo off||author:plp626&<%~fs0 more +7>%tmp%\gtxt.vbs
set "url=http://www.baidu.com/baidu?ie=gb2312&cl=3&ct=1048576&word=%1"
cscript //NoLogo //e:vbscript %tmp%\gtxt.vbs "%url%"|more +4|findstr/v "Dr\.eye Baidu"|findstr .
exit/b
'          
Set oDOM = WScript.GetObject(WScript.Arguments(0))
do until oDOM.readyState = "complete"
WScript.sleep 100
loop
WScript.echo oDOM.documentElement.outerText
复制代码

代码空行

测试
复制代码