中国DOS联盟

The things written yesterday were forgotten to be posted. It's a simple online word lookup with data from Kingsoft Ciba.

Requires support for wget or curl. If you need the朗读 function, support for mplayer is required.

Usage: dict word ...
/F: Query the word in full mode.
word: Multiple words can be specified.
Supports word朗读 function.

Links to required software:
mplayer: http://www.mplayerhq.hu
wget: http://users.ugent.be/~bpuype/wget/
or curl: http://curl.haxx.se/

1. :::::::::::::::::::::::::::::::::::::::::::::::::
   
2. :: dict.cmd -V0.1 -- Batch online word lookup
   
3. :: Nai Wu He@cn-dos.net - 2007-1-2
   
4. :: Usage: dict word ...
   
5. :: Dependent files: - mplayer.exe wget.exe or curl.exe
   
6. :::::::::::::::::::::::::::::::::::::::::::::::::
   
7. @echo off
   
8. setlocal ENABLEDELAYEDEXPANSION
   
9. set mp3file="%TEMP%\dict.mp3"
   
10. rem Check dependent files
    
11. :mplay
    
12. call mplayer >nul 2>nul
    
13. if "%ERRORLEVEL%" == "1" set nomplay=1
    
14. 
    
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. )
    
22. 
    
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.This script requires support for wget or curl.
    
31. goto :EOF
    
32. 
    
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
    
40. 
    
41. 
    
42. :next
    
43. if "%~1" == "" goto :EOF
    
44. set "word=%~1"
    
45. call :down
    
46. shift
    
47. goto :next
    
48. 
    
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. View detailed explanation Exit &goto :Nselect
    
58. echo. Read aloud View detailed explanation Exit
    
59. :Nselect
    
60. set select=
    
61. set /p select=Please select:
    
62. call :Parse
    
63. if "%quit%" == "1" goto :EOF
    
64. shift
    
65. goto :full
    
66. 
    
67. 
    
68. :Parse
    
69. for %%s in (R r F f A a) do if "%%s" == "%select%" goto Switch%select%
    
70. goto :EOF
    
71. 
    
72. :SwitchR
    
73. if "%nomplay%" == "1" echo. Playing audio requires support for mplayer. &goto :Nselect
    
74. start /min %ComSpec% /c "mplayer %mp3file%>nul"
    
75. goto :Nselect
    
76. goto :EOF
    
77. 
    
78. :SwitchF
    
79. start http://www.iciba.com/search?s=%word%
    
80. goto :Nselect
    
81. goto :EOF
    
82. 
    
83. :SwitchA
    
84. set quit=1
    
85. goto :EOF
    
86. 
    
87. 
    
88. :down
    
89. set url="http://dict.cn/ws.php?q=%word%"
    
90. echo.
    
91. echo.Word: %word%
    
92. echo.Explanation:
    
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 No such word^^! &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
     
102. 
     
103. :help
     
104. echo.Batch online word lookup
     
105. echo.
     
106. echo.Usage: dict word ...
     
107. echo.
     
108. echo /F Query the word in full mode.
     
109. echo word Multiple words can be specified.
     
110. goto :EOF
     

Nai Wu He posted on 2007-01-03 12:11

Last edited by Nai Wu He on 2007-1-4 at 01:16 AM ]

Appreciate~~
The content is becoming more comprehensive and more attractive~~ :)))

One word=====Strong!

I can't use it, ashamed

It doesn't work. After double-clicking, it flashes and then exits. I have already downloaded wget and stored it in WINDOWS, and I also tried storing it in system32. The result is still the same.

Sent by mistake, sigh! ＝_＝|||

Last edited by ccwan on 2007-1-4 at 05:55 AM ]

　　Without the word library of Kingsoft, can some friends send one up?

Hehe, I did it simply before, didn't perfect it. Admire the moderator. If it were up to me, it would be wget + sed

Is the sound file a .swf?

RE dosmania
Why double-click to run? Then you can only see the help and it flashes by. Call it in the command line.

RE lxmxn
No need for a thesaurus, look up online. Are you talking about the dictionary of Kingsoft PowerWord?

RE vkill
The sound is in mp3 format. http://www.iciba.com/ is swf format.

RE 无奈何 Moderator
I think using mplayer to play from iciba is better, heh heh, simple

@echo off
:start
set search=
set /p search=Please enter the word to translate:
set search_x=%search:~0,1%
echo %search% pronunciation:
mplayer http://www.iciba.com/resource/a/en/%search_x%/%search%.swf>nul
goto start

It's getting more and more interesting. It seems I need to study hard.