wudahht

楼主强悍啊……慢慢学习消化一下

zjw767676

[attach]2563[/attach]

a794685135

闲得蛋疼,整了个中文的,
功能没全,大家莫笑,呵

@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
%创建目录% 目录文件 %不显示任何信息%
%创建目录% 小说文件 %不显示任何信息%
%跳转到% %结束%COPY

a794685135

应该把 判断 改成 如果 ,那样就成了

%如果% %不% %存在文件% 目录文件\%目录文件% %显示% 下载目录出错!

这样是不是很好理解?啊哈哈哈

liukevin

不错，学习了。感谢楼主的分享

dnf_lf

这个我不知道怎么用，楼主能帮忙说的详细些吗

dnf_lf

不知道这个东西对其他网站的适用吗

cuipengfei

不行啊！ 到这里就没有反应了，txt也没下载下来！

cuipengfei

到这里就没有反应了，txt也没有下载下来！ 怎么回事啊？

ckgez

BT 。。。好有动力撒

rockets

太棒了这个东东，BAT  -  Beautiful, Amazing, Tool

bat123

看起来 很给力   试用下

songyunhmiLY

非常好，学习中，感谢

女孩不哭

其实命令行下载工具很多的，不用动用额外的几个动态链接库。

liaobin

加了一句果然好用