闲得蛋疼,整了个中文的,
功能没全,大家莫笑,呵
- @echo off
- :初始化
- set 设定=set
- %设定% 召唤=call
- %召唤% :设置
-
- :开始
- %设定标题% 易读下载器
- %打开网址% http://www.yi-look.com/
- %显示% 格式：http://www.yi-look.com/art_7826_3170.html
- %显示% 在下面粘贴如上所示[小说目录网址]并回车
- %设定%/p 小说网址=：
-
- :获取下载列表
- %设定标题% 正在获取下载列表
- %循环% /f "%取第几个%=3 %分隔符%=/" %%i in ("%小说网址%") do %设定% 目录文件=%%i
- %下载% %小说网址% >目录文件\%目录文件%
- %判断% %不% %存在文件% 目录文件\%目录文件% %显示% 下载目录出错！& %暂停% & %跳转到% %结束%
- %转换% 目录文件\%目录文件%
- %循环% /f %%i in ("%目录文件%") do %设定% 目录列表=%%~ni.txt
- %循环% /f "%取第几个%=3 %分隔符%= " %%i in ('%显示文件内容% 目录文件\%目录列表% ^|%查找% "TITLE "') do %设定% 小说名字=%%i
- %循环% /f "%取第几个%=3 %分隔符%=:" %%i in ('%显示文件内容% 目录文件\%目录列表% ^|%查找% "作者:"') do (
- %循环% /f "%取第几个%=2 %分隔符%=[]" %%j in ('%显示% %%i') do %设定% 小说名字+=%%j\%小说名字%
- )
- %创建目录% 小说文件\%小说名字+%\网页单章 小说文件\%小说名字+%\文本单章 %不显示任何信息%
- %清空屏幕%
-
- :开始下载
- %循环% /f "%取第几个%=1,2 %分隔符%=<'" %%a in ('%显示文件内容% 目录文件\%目录列表% ^|%查找% /i "节<'read"') do %召唤% :设定下载 %%a %%b
- %转换% 小说文件\%小说名字+%\网页单章\*.html %不显示任何信息%
- %移动% 小说文件\%小说名字+%\网页单章\*.txt 小说文件\%小说名字+%\文本单章\ %不显示任何信息%
- >小说文件\%小说名字+%\%小说名字%.txt %显示% %小说名字%
- %循环% /l %%i in (1 1 %最后一章%) do (
- >>小说文件\%小说名字+%\%小说名字%.txt %显示% 第%%i节
- >>小说文件\%小说名字+%\%小说名字%.txt %显示文件内容% 小说文件\%小说名字+%\文本单章\%%i.txt
- )
- %清空屏幕%
-
- %显示% 一切搞定!
- pause %不显示任何信息%
- %跳转到% %结束%
-
- :设定下载
- %设定% "章节序号=%~1"
- %设定% "章节序号=%章节序号:*第=%"
- %设定% "章节序号=%章节序号:~0,-1%"
- %设定% 最后一章=%章节序号%
- %设定标题% 正在下载 %小说名字% %章节序号%
- %下载% %网址%%~2 >小说文件\%小说名字+%\网页单章\%章节序号%.html
- %跳转到% %结束%
-
- :设置
- %设定% 删除目录=rd
- %设定% 创建目录=md
- %设定% 显示=echo
- %设定% 循环=for
- %设定% 取第几个=tokens
- %设定% 分隔符=delims
- %设定% 下载=curl
- %设定% 判断=if
- %设定% 不=not
- %设定% 不等于=NEQ
- %设定% 存在文件=exist
- %设定% 暂停=pause
- %设定% 跳转到=goto
- %设定% 结束=:eof
- %设定% 转换=htox32c /IP /O0 /U1+4
- %设定% 显示文件内容=type
- %设定% 查找=find
- %设定% "不显示任何信息=>nul 2>nul"
- %设定% 移动=move
- %设定% 清空屏幕=cls
- %设定% 设定标题=title
- %设定% 网址=http://www.yi-look.com/
- %设定% 打开网址=Start iexplore.exe
- %创建目录% 目录文件 %不显示任何信息%
- %创建目录% 小说文件 %不显示任何信息%
- %跳转到% %结束%
| 
发表于 2010-5-4 16:06
| 
