中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
作者:
标题: [原创]批处理在线查单词 上一主题 | 下一主题
无奈何
荣誉版主





积分 1338
发帖 356
注册 2005-7-15
状态 离线
『楼 主』:  [原创]批处理在线查单词

昨天写完的东西,忘发了。功能简单在线查单词,数据来自金山词霸。 需要 wget 或 curl 支持,如果需要朗读功能的话需要 mplayer 支持。 用法:dict [/F] word ... /F 完全模式查询单词。 word 可指定多个单词。 支持单词朗读功能。 所需软件链接: mplayer:www.mplayerhq.hu wget :users.ugent.be/~bpuype/wget/ 或 curl:curl.haxx.se/
  1. :::::::::::::::::::::::::::::::::::::::::::::::::
  2. :: dict.cmd -V0.1 -- 批处理在线查单词
  3. :: 无奈何@cn-dos.net - 2007-1-2
  4. :: 用法:dict [/F] word ...
  5. :: 支持文件: - mplayer.exe wget.exe or curl.exe
  6. :::::::::::::::::::::::::::::::::::::::::::::::::
  7. @echo off
  8. setlocal ENABLEDELAYEDEXPANSION
  9. set mp3file="%TEMP%\dict.mp3"
  10. rem 依赖文件检查
  11. :mplay
  12. call mplayer >nul 2>nul
  13. if "%ERRORLEVEL%" == "1" set nomplay=1
  14. :wget
  15. wget.exe >nul 2>nul
  16. if not "%ERRORLEVEL%" == "9009" (
  17. set "command1=wget -q -O - "
  18. set "command2=wget -q -O %mp3file%"
  19. goto star
  20. )
  21. :curl
  22. curl.exe >nul 2>nul
  23. if not "%ERRORLEVEL%" == "9009" (
  24. set "command1=curl -s "
  25. set "command2=curl -s -o %mp3file%"
  26. goto star
  27. )
  28. echo.本脚本需要 wget 或 curl 的支持。
  29. goto :EOF
  30. :star
  31. set flag=0
  32. if "%~1" == "" goto help
  33. if "%~1" == "?" goto help
  34. if "%~1" == "/?" goto help
  35. if "%~1" == "/F" shift &goto full
  36. if "%~1" == "/f" shift &goto full
  37. :next
  38. if "%~1" == "" goto :EOF
  39. set "word=%~1"
  40. call :down
  41. shift
  42. goto :next
  43. :full
  44. if "%~1" == "" goto :EOF
  45. set mp3=
  46. del %mp3file% 2>nul
  47. set "word=%~1"
  48. call :down
  49. %command2% "%mp3%"
  50. echo.--------------------------------
  51. if "%mp3%" == "" echo.[F]查看详解 [Q/A]退出 &goto :Nselect
  52. echo.[R]朗读 [F]查看详解 [Q/A]退出
  53. :Nselect
  54. set select=
  55. set /p select=请选择:
  56. call :Parse
  57. if "%quit%" == "1" goto :EOF
  58. shift
  59. goto :full
  60. :Parse
  61. for %%s in (R r F f A a) do if "%%s" == "%select%" goto Switch%select%
  62. goto :EOF
  63. :SwitchR
  64. if "%nomplay%" == "1" echo. 播放影音需要 mplayer 支持。&goto :Nselect
  65. start /min %ComSpec% /c "mplayer %mp3file%>nul"
  66. goto :Nselect
  67. goto :EOF
  68. :SwitchF
  69. start www.iciba.com/search?s=%word%
  70. goto :Nselect
  71. goto :EOF
  72. :SwitchA
  73. set quit=1
  74. goto :EOF
  75. :down
  76. set url="http://dict.cn/ws.php?q=%word%"
  77. echo.
  78. echo.单词:%word%
  79. echo.释义:
  80. for /f "tokens=1,2,3 delims=<>" %%a in ('%command1% %url%') do (
  81. if "%%a" == "audio" set "mp3=%%b"
  82. if "%%b" == "Not Found" echo 无此单词^^! &goto :EOF
  83. if "%%c" == "/def" echo %%b &goto :EOF
  84. if "%%b" == "/def" echo %%a &set flag=0
  85. if "!flag!" == "1" echo %%a
  86. if "%%a" == "def" echo %%b &set flag=1
  87. )
  88. goto :EOF
  89. :help
  90. echo.批处理在线查单词
  91. echo.
  92. echo.用法:dict [/F] word ...
  93. echo.
  94. echo /F 完全模式查询单词。
  95. echo word 可指定多个单词。
  96. goto :EOF
无奈何发表于 2007-01-03 12:11
[ Last edited by 无奈何 on 2007-1-4 at 01:16 AM ]


   此帖被 +43 点积分        点击查看详情   
评分人:【 ccwan 分数: +15  时间:2007-1-4 01:25
评分人:【 redtek 分数: +11  时间:2007-1-4 03:14
评分人:【 lxmxn 分数: +8  时间:2007-1-4 05:55
评分人:【 huzixuan 分数: +4  时间:2007-3-17 06:30
评分人:【 0401 分数: +4  时间:2007-3-17 09:26
评分人:【 chengbiner 分数: +1  时间:2007-3-17 11:24




  ☆开始\运行 (WIN+R)☆ %ComSpec% /cset,=何奈无── 。何奈可无是原,事奈无做人奈无&for,/l,%i,in,(22,-1,0)do,@call,set/p= %,:~%i,1%<nul&ping/n 1 127.1>nul
2007-1-4 00:47
查看资料  发送邮件  发短消息  网志  OICQ (105400208)  编辑帖子  回复  引用回复
ccwan
金牌会员




积分 2725
发帖 1160
注册 2006-9-23
来自 河北廊坊
状态 离线
『第 2 楼』:  

坐下沙发^_^




三人行,必有吾师焉。 学然后知不足,教然后知困,然后能自强也。
2007-1-4 01:26
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
redtek
金牌会员





积分 2902
发帖 1147
注册 2006-9-21
状态 离线
『第 3 楼』:  

欣赏~~ 内容越来越全面、越来越丰富吸引人了~:)))




    Redtek,一个永远在网上流浪的人…… _.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
2007-1-4 03:15
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
flamey
初级用户





积分 152
发帖 74
注册 2005-12-1
状态 离线
『第 4 楼』:  

一个字=====强!


2007-1-4 03:55
查看资料  发短消息  网志   编辑帖子  回复  引用回复
ksuday
初级用户





积分 38
发帖 19
注册 2006-10-22
状态 离线
『第 5 楼』:  

我不会用,惭愧


2007-1-4 04:29
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
dosmania
初级用户





积分 172
发帖 54
注册 2007-1-2
状态 离线
『第 6 楼』:  

不行吖,双击后一闪然后就退出了 我已经下载了wget了,存于WINDOWS吗,我也试了存于system32 结果还是一样


2007-1-4 05:35
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
ccwan
金牌会员




积分 2725
发帖 1160
注册 2006-9-23
来自 河北廊坊
状态 离线
『第 7 楼』:  

发错了,汗一个!=_=||| [ Last edited by ccwan on 2007-1-4 at 05:55 AM ]




三人行,必有吾师焉。 学然后知不足,教然后知困,然后能自强也。
2007-1-4 05:47
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 8 楼』:  

  没有金山的词库,有的朋友可否发一个上来?


2007-1-4 05:53
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 9 楼』:  

呵呵,以前简单的弄了下,没有去完善,佩服斑竹,要我弄的话是wget+sed


2007-1-4 06:25
查看资料  发送邮件  访问主页  发短消息  网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 10 楼』:  

声音文件是.swf吗?


2007-1-4 06:29
查看资料  发送邮件  访问主页  发短消息  网志   编辑帖子  回复  引用回复
无奈何
荣誉版主





积分 1338
发帖 356
注册 2005-7-15
状态 离线
『第 11 楼』:  

RE dosmania 干嘛要双击运行,这样你只能看到帮助并且一闪而过,在命令行下调用。 RE lxmxn 不需要词库的,在线查。你说的是金山词霸的词典吗? RE vkill 声音是 mp3 格式的。www.iciba.com/ 的是swf 的。




  ☆开始\运行 (WIN+R)☆ %ComSpec% /cset,=何奈无── 。何奈可无是原,事奈无做人奈无&for,/l,%i,in,(22,-1,0)do,@call,set/p= %,:~%i,1%<nul&ping/n 1 127.1>nul
2007-1-4 07:19
查看资料  发送邮件  发短消息  网志  OICQ (105400208)  编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 12 楼』:  

RE 无奈何 斑竹 我觉得读音还是 mplayer 来播放iciba上的好,呵呵,简单 @echo off :start set search= set /p search=请输入要翻译的单词: set search_x=%search:~0,1% echo %search%读音: mplayer www.iciba.com/resource/a/en/%s ...>nul goto start


2007-1-6 02:15
查看资料  发送邮件  访问主页  发短消息  网志   编辑帖子  回复  引用回复
xiaoshuq
初级用户





积分 97
发帖 30
注册 2006-12-30
状态 离线
『第 13 楼』:  顶

越来越有意思了,看来我要努力学习了阿


2007-1-7 02:37
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
jackyggt
初级用户





积分 76
发帖 38
注册 2007-3-13
状态 离线
『第 14 楼』:  

好东西啊


2007-3-16 08:00
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
xycoordinate
中级用户




积分 493
发帖 228
注册 2007-2-16
来自 安徽
状态 离线
『第 15 楼』:  

佩服!


2007-3-17 05:52
查看资料  发送邮件  发短消息  网志  OICQ (226308607)  编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: