中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]批处理在线查单词
« [1] [2] » ›
作者:
标题: [原创]批处理在线查单词 上一主题 | 下一主题
无奈何
荣誉版主





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

昨天写完的东西，忘发了。功能简单在线查单词，数据来自金山词霸。
需要 wget 或 curl 支持，如果需要朗读功能的话需要 mplayer 支持。

用法：dict [/F] word ...
/F  完全模式查询单词。
word 可指定多个单词。
支持单词朗读功能。

所需软件链接：
mplayer：http://www.mplayerhq.hu
wget ：http://users.ugent.be/~bpuype/wget/
或 curl：http://curl.haxx.se/

  Quote:

  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

  15. :wget
  16. wget.exe >nul 2>nul
  17. if not "%ERRORLEVEL%" == "9009" (
  18.         set "command1=wget -q -O - "
  19.         set "command2=wget -q -O %mp3file%"
  20.         goto star
  21. )

  23. :curl
  24. curl.exe >nul 2>nul
  25. if not "%ERRORLEVEL%" == "9009" (
  26.         set "command1=curl -s "
  27.         set "command2=curl -s -o %mp3file%"
  28.         goto star
  29. )
  30. echo.本脚本需要 wget 或 curl 的支持。
  31. goto :EOF

  33. :star
  34. set flag=0
  35. if "%~1" == "" goto help
  36. if "%~1" == "?" goto help
  37. if "%~1" == "/?" goto help
  38. if "%~1" == "/F" shift &goto full
  39. if "%~1" == "/f" shift &goto full


  42. :next
  43. if "%~1" == "" goto :EOF
  44. set "word=%~1"
  45. call :down
  46. shift
  47. goto :next

  49. :full
  50. if "%~1" == "" goto :EOF
  51. set mp3=
  52. del %mp3file% 2>nul
  53. set "word=%~1"
  54. call :down
  55. %command2% "%mp3%"
  56. echo.--------------------------------
  57. if "%mp3%" == "" echo.[F]查看详解  [Q/A]退出 &goto :Nselect
  58. echo.[R]朗读  [F]查看详解  [Q/A]退出
  59. :Nselect
  60. set select=
  61. set /p select=请选择：
  62. call :Parse
  63. if "%quit%" == "1" goto :EOF
  64. shift
  65. goto :full


  68. :Parse
  69. for %%s in (R r F f A a) do if "%%s" == "%select%" goto Switch%select%
  70. goto :EOF

  72. :SwitchR
  73. if "%nomplay%" == "1" echo.  播放影音需要 mplayer 支持。&goto :Nselect
  74. start /min %ComSpec% /c "mplayer %mp3file%>nul"
  75. goto :Nselect
  76. goto :EOF

  78. :SwitchF
  79. start http://www.iciba.com/search?s=%word%
  80. goto :Nselect
  81. goto :EOF

  83. :SwitchA
  84. set quit=1
  85. goto :EOF


  88. :down
  89. set url="http://dict.cn/ws.php?q=%word%"
  90. echo.
  91. echo.单词：%word%
  92. echo.释义：
  93. for /f "tokens=1,2,3 delims=<>" %%a in ('%command1% %url%') do (
  94.         if "%%a" == "audio" set "mp3=%%b"
  95.         if "%%b" == "Not Found" echo 无此单词^^! &goto :EOF
  96.         if "%%c" == "/def" echo %%b &goto :EOF
  97.         if "%%b" == "/def" echo %%a &set flag=0
  98.         if "!flag!" == "1" echo %%a       
  99.         if "%%a" == "def" echo %%b &set flag=1
  100. )
  101. goto :EOF

  103. :help
  104. echo.批处理在线查单词
  105. echo.
  106. echo.用法：dict [/F] word ...
  107. echo.
  108. echo    /F  完全模式查询单词。
  109. echo    word 可指定多个单词。
  110. 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 格式的。http://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 http://www.iciba.com/resource/a/en/%search_x%/%search%.swf>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)  编辑帖子  回复  引用回复
« [1] [2] » ›
请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


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



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023