rockets

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

ckgez

BT 。。。好有动力撒

cuipengfei

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

cuipengfei

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

dnf_lf

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

dnf_lf

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

liukevin

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

a794685135

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

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

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

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

zjw767676

[attach]2563[/attach]

wudahht

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

sig13

我才调试完，yi-look就又被关了，什么世道？
不是我一个人连不上吧？
---
居然又开了，之前的脚本在load页面失败之后就挂了，增加了纠错功能，现在应该没问题了

[ 本帖最后由 sig13 于 2010-4-29 15:40 编辑 ]

sig13

我用vbs写了一个很傻的，但是没有用到第三方。主要是练习vbs的。

增加了两处错误处理，不是那么容易死了。

'比较傻的 Load http://www.yi-look.com/ 文本小说的脚本，代码是根据该网页特征写的
'即，该脚本只能用于 yilook 上的 Load
'必须进入到要 Load 的小说的首页，复制下 URL，作为参数运行该脚本，用如下命令
'cscript //Nologo //E:vbscript gyilook.vbs http://www.yi-look.com/art_??_??.html
'会在脚本当前目录下生成一个小说名的目录，里面按照 "第??节.txt" 保存文件
Option Explicit

Dim regExUrl
Set regExUrl = new RegExp
regExUrl.Pattern= "http://www.yi-look.com/art_\d+_\d+.html"

If regExUrl.Test(WScript.Arguments(0)) = False Then
	Wscript.echo "Maybe Not yi-look's URL?"
	WScript.Quit
End If

Set regExUrl = Nothing

Dim loadPage
Dim oDom

Do
	Wscript.echo "Loading the first page..."
	set oDom = WScript.GetObject(WScript.Arguments(0))
	loadPage = WaitLoading(oDom)
loop While loadPage = False

Dim dirName

Dim e
For each e in oDom.all
	If e.tagName = "TITLE" Then
		If Right(e.outerText, 2) = "易读"  Then
			dirName = Left(e.outerText, (Len(e.outerText) - 3))
			Exit For
		Else
			Wscript.echo "Maybe Not real yi-look's URL?"
			WScript.Quit
		End If
	End If
Next

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")
Do While fso.FolderExists(dirName)   
	dirName = dirName & "0"
Loop

fso.CreateFolder(dirName)   
Set fso = Nothing

Dim regEx
Set regEx = new RegExp
regEx.Pattern= "第\d+节"

Dim lnk
For each lnk in oDom.links
	If (regEx.Test(lnk.outerText)) Then
		Dim oDomX

		Do
			Wscript.echo "Loading " & lnk.outerText & "... " & lnk.href
			On Error Resume Next
			Set oDomX = WScript.GetObject(lnk.href)
			If Err.Number = 0 Then
				loadPage = WaitLoading(oDomX)
			Else
				Wscript.echo "ERROR #" & CStr(Err.Number) & " " & Err.Description
				Wscript.echo "Try again!!!"
				Err.clear
				loadPage = False
			End If
		loop While loadPage = False

		Dim fn
		fn = dirName & "\" & lnk.outerText & ".txt"
		Call WriteTextFile(fn, oDomX.body.outerText)
		Set oDomX = Nothing
	End If
Next

Set oDom = Nothing
Set regEx = Nothing

Function WaitLoading(DomObj)
	Const TickOut = 60
	Dim tick
	tick = 0
	
	Do until DomObj.readyState = "complete"
		tick = tick + 1
		
		If tick > TickOut Then
			WScript.echo "Timed out! Load failed... Try again! "
			Exit Do
		End If

		WScript.sleep 500
	Loop
	
	WaitLoading = (tick <= TickOut)
End Function

Sub WriteTextFile(FileName, TextString)
	Const ForReading = 1, ForWriting = 2, ForAppending = 8
	Dim fso, f
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile(FileName, ForWriting, True, -1)
	f.Write TextString
	f.Close
	Set fso = Nothing
	Set f = Nothing
End Sub 
复制代码

[ 本帖最后由 sig13 于 2010-4-29 18:30 编辑 ]

zilove

太厉害了。呵呵。下载阿

sinianyangyang

楼主真是太牛了，佩服，希望以后多多指点。呵呵。