批处理版的英汉互译器[网络技术]

用批处理来做英汉互译,设法是不是傲慢了点?你还真别说,有人竟然能按照这个代码写出了批处理版的公交线路查询功效和通讯录管理脚本.把本人在2006年初学批处理时写的一段代码转帖一下下,重温一下当初的豪情满怀（具体谈论请看这里:http://www.cn-dos.net/forum/viewthread.php?tid=23683）.

复制代码
@echo off
:: 功效:
::
:: 　　① 输入英文,显示该英文条目下的全部内容;
:: 同时显示词库中存在的、词义相同或头部相同的其他单词;
::     ② 输入汉语,显示词义中包含该汉语词汇的全部英文,
:: 但是,当某个单词有多行注释的时刻,有大概查找不到单词.
::
:: 词库文件的格局要求:
::
:: 　　文件第一行内容必须为空,大概不能呈现要查找内容的正文
:: 　　一个段落块的首行必须为纯英文词汇
:: 　　中文翻译内容紧接着另起一行(不答应呈现纯字母行),可以有多行
:: 　　翻译之下可以有举例内容
:: 　　每个注释背面加中文半角状况下的分号和空格
::     注释内容可以在同一行,也可以在差别行
:: 　　注释之下的举例内容尽大概避免呈现中文半角状况下的分号和空格连用的情形
:: 　　每个段落块答应利用空行脱离
::
::             code by JM 2006-10-11～14    bbs.cn-dos.net  Thanks to 3742668

:input_var
title 英汉互译器
cls
set line=
set postil=
set postil_content=
set similar=
set input=
set /p input=请输入要查询的内容(要退出请直接回车):
if "%input%"=="" exit

ren ============== 判断输入范例 ==============
cls
echo %input%|findstr /b "[a-zA-Z]">nul && goto letters || goto not-letters

ren ============== 英译汉 ==============
:letters
title 英汉互译器-英译汉
:: 先提取匹配单词的第一条记录的行数,然后再从这行之下查找第一次呈现的单词
:: 两个单词之间的内容就是英文的翻译
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% 条目下没有任何内容 & 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)

[1] [2]  下一页