批处理版的英汉互译器

namejm

　　用批处理来做翻译！呵呵，够狂妄吧？

1. @echo off
   
2. :: 功能：
   
3. ::
   
4. :: 　　① 输入英文，显示该英文条目下的所有内容；
   
5. :: 同时显示词库中存在的、词义相同或头部相同的其他单词；
   
6. ::     ② 输入汉语，显示词义中包含该汉语词汇的所有英文，
   
7. :: 但是，当某个单词有多行解释的时候，有可能查找不到单词。
   
8. ::
   
9. :: 词库文件的格式要求：
   
10. ::
    
11. :: 　　文件第一行内容必须为空，或者不能出现要查找内容的正文
    
12. :: 　　一个段落块的首行必须为纯英文词汇
    
13. :: 　　中文翻译内容紧接着另起一行(不允许出现纯字母行)，可以有多行
    
14. :: 　　翻译之下可以有举例内容
    
15. :: 　　每个解释后面加中文半角状态下的分号和空格
    
16. ::     解释内容可以在同一行，也可以在不同行
    
17. :: 　　解释之下的举例内容尽量避免出现中文半角状态下的分号和空格连用的情况
    
18. :: 　　每个段落块允许使用空行分隔
    
19. ::
    
20. ::             code by JM 2006-10-11～14    bbs.cn-dos.net  Thanks to 3742668
    
21. 
    
22. :input_var
    
23. title 英汉互译器
    
24. cls
    
25. set line=
    
26. set postil=
    
27. set postil_content=
    
28. set similar=
    
29. set input=
    
30. set /p input=请输入要查询的内容(要退出请直接回车)：
    
31. if "%input%"=="" exit
    
32. 
    
33. ren ============== 判断输入类型 ==============
    
34. cls
    
35. echo %input%|findstr /b "[a-zA-Z]">nul && goto letters || goto not-letters
    
36. 
    
37. ren ============== 英译汉 ==============
    
38. :letters
    
39. title 英汉互译器-英译汉
    
40. :: 先提取匹配单词的第一条记录的行数，然后再从这行之下查找第一次出现的单词
    
41. :: 两个单词之间的内容就是英文的翻译
    
42. for /f "tokens=1* delims=:" %%i in ('findstr /nirc:"^%input%" 词库.txt') do (
    
43.     if /i "%%j"=="%input%" set line=%%i&goto word_finded
    
44. )
    
45. if "%line%"=="" goto no-item
    
46. :word_finded
    
47. echo _________________________________
    
48. echo 要查找的单词：%input%
    
49. echo.
    
50. setlocal enabledelayedexpansion
    
51. for /f "skip=%line% delims=" %%i in (词库.txt) do (
    
52.     echo %%i|findstr "^[a-zA-Z]*$">nul &&(goto no-postil)||(
    
53.         echo     %%i&if not "%%i"=="" set postil=exist
    
54.         echo %%i|findstr /c:"； ">nul &&(
    
55.             set postil_content=!postil_content!%%i
    
56.         )            
    
57.     )
    
58. )
    
59. :no-postil
    
60. if "%postil%"=="" (echo     %input% 条目下没有任何内容 & goto end)
    
61. echo _________________________________
    
62. echo 词义类似的单词：
    
63. echo.
    
64. for /f "tokens=1* delims=:" %%i in ('findstr /nr "%postil_content%" 词库.txt') do (
    
65.     if not "%%j"=="" set /a line=%%i-2&& call :check_similar
    
66. )
    
67. if "%similar%"=="" echo     暂无。
    
68. echo _________________________________
    
69. echo 头部相同的其他词汇：
    
70. echo.
    
71. set similar=
    
72. for /f "tokens=1* delims=:" %%i in ('findstr /nirc:"^%input%" 词库.txt') do (
    
73.     echo %%j|findstr "^[a-zA-Z]*">nul && (
    
74.         if not "%%j"=="%input%" set similar=exist&echo     %%j
    
75.     )
    
76. )
    
77. if "%similar%"=="" echo     暂无。
    
78. :end
    
79. echo _________________________________
    
80. echo.
    
81. pause
    
82. goto input_var
    
83. 
    
84. :check_similar
    
85. :: 查找词义中含有%postil_content%的所有英文词汇
    
86. for /f "skip=%line% delims=" %%i in (词库.txt) do (
    
87.     echo %%i|findstr "^[a-zA-Z]*$">nul &&(
    
88.         if not "%%i"=="%input%" (
    
89.             echo     %%i&set similar=exist&goto :eof
    
90.             ) else (goto :eof)
    
91.     )||(set /a line=%line%-1& goto check_similar)
    
92. )
    
93. goto :eof
    
94. 
    
95. ren ============== 汉译英 ==============
    
96. :not-letters
    
97. title 英汉互译器-汉译英
    
98. :: 先提取包含该汉语词汇的第一条记录的行数，然后再查找位于该行之上的纯字母行
    
99. :: 则第一次找到的纯字母行就是要查找的英文单词
    
100. :: 重复以上过程就可以查找到词义中包含这个汉语词汇的所有英文词汇
     
101. echo _________________________________
     
102. echo.
     
103. echo %input%:
     
104. echo.
     
105. for /f "tokens=1* delims=:" %%i in ('findstr /nrc:"%input%； " 词库.txt') do (
     
106.     if not "%%j"=="" set /a line=%%i-2&& call :check_word
     
107. )
     
108. if "%postil%"=="" goto no-item
     
109. echo _________________________________
     
110. echo.
     
111. pause
     
112. goto input_var
     
113. 
     
114. :check_word
     
115. :: 查找词义中含有%input%的所有英文词汇
     
116. set postil=exist
     
117. for /f "skip=%line% delims=" %%i in (词库.txt) do (
     
118.     echo %%i|findstr "^[a-zA-Z]*$">nul &&(echo     %%i&&goto :eof)||(
     
119.         set /a line=%line%-1&& goto check_word
     
120.     )
     
121. )
     
122. goto :eof
     
123. 
     
124. ren ============== 出错提示 ==============
     
125. :no-item
     
126. cls
     
127. echo _________________________________
     
128. echo.
     
129. echo %input%:
     
130. echo 　　没有找到该条目!
     
131. echo _________________________________
     
132. echo.
     
133. pause
     
134. goto input_var

复制代码

　　词库.txt 格式举例：

1. (此行为顶行,不允许出现要查找内容的正文)
   
2. China
   
3. n.
   
4. 中国, 瓷器
   
5. 
   
6. DOS
   
7. n.
   
8. 磁盘操作系统
   
9. 
   
10. name
    
11. n.
    
12. 名字, 名称, 姓名, 名誉
    
13. vt.
    
14. 命名, 提名, 叫出, 指定
    
15. adj.
    
16. 姓名的, 据以取名的
    
17. 
    
18. who
    
19. pron.
    
20. 谁, 那...的(人)

复制代码

[ 本帖最后由 namejm 于 2007-5-28 12:31 PM 编辑 ]

mackyliu

精华,不用多说.

xypcmac

不久前在dos联盟就看到你发过了...

freesoft00

什么都有可能,楼主dos都玩到这种程度了,实在佩服!

legendwe

高手中的高手

liurg

批处理到这地步,算是登峰造极了.牛人啊!

51show

没有测试成功，不好意思

namejm

　　请问你是在什么情况下测试不成功的？词库格式没写错吧？

roclee123

果然是高手，佩服

lovesj1234

支持，正好要用，谢了。。。

zqs

高手，真的太强了

ineverask

我实在的，我真的不知道用，希望楼主详细讲解一下

bigsna

哪里有词库呢？麻烦说一下

zhangze

不知道怎么说好了
太高级

starrysky

谢谢楼主，不过汉译英的功能不能实现……

namejm

　　当某个单词有多行解释的时候，汉译英会查不到单词，但是不影响英译汉，因为汉译英的时候，是先查找到解释之后，直接往前跳两行来查询单词，这个牵涉到文本的反序读取，如果每次只往前跳一行的话，效率会大打折扣。为了兼顾效率，目前暂时还找不到可行的方案来解决文本的反序读取问题，可能得借助第三方软件才能完美地解决。

angelo7930

牛 学习了！！！:L :L

xzzsky

强!!~~顶!~:hug:

laozhao

这纯粹是自找麻烦。:lol :lol

shuaigedw

学习了，支持楼主！！！！

lojz

太COOL了,BAT的功能还真多.

怪怪

批处理使用出神入化了，佩服

libeely

楼主真不错啊，佩服！学习了

xhj

DOS的高手。

我想对编程有一定的帮助的

liumingqing

不錯!真是批處理的高手!

huangjq99

我的怎么不行，输入后没反应？

zgh8414

牛人可真多啊！o(∩_∩)o...哈哈

hsyxh

高手就是不一样。谢谢。

songshf123

制作批处理的那个软件里面就有。

namejm

是哪个软件？地址或者软件发出来看看。