@echo off
:: 功能：
::
:: 　?、?輸入英文，顯示該英文條目下的所有內(nèi)容；
:: 同時(shí)顯示詞庫中存在的、詞義相同或頭部相同的其他單詞；
:: ② 輸入漢語，顯示詞義中包含該漢語詞匯的所有英文
::
:: 詞庫文件的格式要求：
::
:: 　　文件第一行內(nèi)容必須為空，或者不能出現(xiàn)要查找內(nèi)容的正文
:: 　　一個(gè)段落塊的首行必須為純英文詞匯
:: 　　中文翻譯內(nèi)容緊接著另起一行(不允許出現(xiàn)純字母行)，可以有多行
:: 　　翻譯之下可以有舉例內(nèi)容
:: 　　每個(gè)解釋后面加中文半角狀態(tài)下的分號和空格
:: 解釋內(nèi)容可以在同一行，也可以在不同行
:: 　　解釋之下的舉例內(nèi)容盡量避免出現(xiàn)中文半角狀態(tài)下的分號和空格連用的情況
:: 　　每個(gè)段落塊允許使用空行分隔
::
:: code by JM 2006-10-11～14 bbs.cn-dos.net
:input_var
title 英漢互譯器
cls
set line=
set postil=
set postil_content=
set similar=
set input=
set /p input=請輸入要查詢的內(nèi)容(要退出請直接回車)：
if "%input%"=="" exit
ren ============== 判斷輸入類型 ==============
cls
echo %input%|findstr /b "[a-zA-Z]">nul && goto letters || goto not-letters
ren ============== 英譯漢 ==============
:letters
title 英漢互譯器-英譯漢
:: 先提取匹配單詞的第一條記錄的行數(shù)，然后再從這行之下查找第一次出現(xiàn)的單詞
:: 兩個(gè)單詞之間的內(nèi)容就是英文的翻譯
for /f "tokens=1* delims=:" %%i in ('findstr /nirc:"^%input%" 詞庫.txt') do (
if /i "%%j"=="%input%" set line=%%i&goto word_finded
)
if "%line%"=="" goto no-item
:word_finded
echo _________________________________
echo 要查找的單詞：%input%
echo.
setlocal enabledelayedexpansion
for /f "skip=%line% delims=" %%i in (詞庫.txt) do (
echo %%i|findstr "^[a-zA-Z]*$">nul &&(goto no-postil)||(
echo %%i&if not "%%i"=="" set postil=exist
echo %%i|findstr /c:"； ">nul &&(
set postil_content=!postil_content!%%i
)
)
)
:no-postil
if "%postil%"=="" (echo %input% 條目下沒有任何內(nèi)容 & goto end)
echo _________________________________
echo 詞義類似的單詞：
echo.
for /f "tokens=1* delims=:" %%i in ('findstr /nr "%postil_content%" 詞庫.txt') do (
if not "%%j"=="" set /a line=%%i-2&& call :check_similar
)
if "%similar%"=="" echo 暫無。
echo _________________________________
echo 頭部相同的其他詞匯：
echo.
set similar=
for /f "tokens=1* delims=:" %%i in ('findstr /nirc:"^%input%" 詞庫.txt') do (
echo %%j|findstr "^[a-zA-Z]*">nul && (
if not "%%j"=="%input%" set similar=exist&echo %%j
)
)
if "%similar%"=="" echo 暫無。
:end
echo _________________________________
echo.
pause
goto input_var
:check_similar
:: 查找詞義中含有%postil_content%的所有英文詞匯
for /f "skip=%line% delims=" %%i in (詞庫.txt) do (
echo %%i|findstr "^[a-zA-Z]*$">nul &&(
if not "%%i"=="%input%" (
echo %%i&set similar=exist&goto :eof
) else (goto :eof)
)||(set /a line=%line%-1& goto check_similar)
)
goto :eof
ren ============== 漢譯英 ==============
:not-letters
title 英漢互譯器-漢譯英
:: 先提取包含該漢語詞匯的第一條記錄的行數(shù)，然后再查找位于該行之上的純字母行
:: 則第一次找到的純字母行就是要查找的英文單詞
:: 重復(fù)以上過程就可以查找到詞義中包含這個(gè)漢語詞匯的所有英文詞匯
echo _________________________________
echo.
echo %input%:
echo.
for /f "tokens=1* delims=:" %%i in ('findstr /nrc:"%input%； " 詞庫.txt') do (
if not "%%j"=="" set /a line=%%i-2&& call :check_word
)
if "%postil%"=="" goto no-item
echo _________________________________
echo.
pause
goto input_var
:check_word
:: 查找詞義中含有%input%的所有英文詞匯
set postil=exist
for /f "skip=%line% delims=" %%i in (詞庫.txt) do (
echo %%i|findstr "^[a-zA-Z]*$">nul &&(echo %%i&&goto :eof)||(
set /a line=%line%-1&& goto check_word
)
)
goto :eof
ren ============== 出錯(cuò)提示 ==============
:no-item
cls
echo _________________________________
echo.
echo %input%:
echo 　　沒有找到該條目!
echo _________________________________
echo.
pause
goto input_var