CrLf

那ie算不算第三方呢...

CrLf

10# Batcher


啊！太口怕了，版主竟然吃人...

CrLf

这个vbs部分是照搬别人的...

@echo off&setlocal enabledelayedexpansion
more>1.vbs +16 %0
wscript //nologo 1.vbs "http://bbs.tt365.net.cn/viewthread.php?tid=161145" 1.htm
(for /f "delims=" %%a in ('findstr /rc:"【.*】" 1.htm') do (
	set str=%%a【
	for /l %%b in (1 1 100) do (
		if "!str!" neq " " for /f "tokens=1* delims=】" %%c in ("!str:*【=!") do (
			if not defined .%%c (
				set .%%c=.
				echo %%c
			)
		)
	)
))>3.txt
pause&exit

iLocal=LCase(Wscript.Arguments(1)) 
iRemote=LCase(Wscript.Arguments(0)) 
Set xPost=createObject("Microsoft.XMLHTTP") 
xPost.Open "GET",iRemote,0 
xPost.Send() 
set sGet=createObject("ADODB.Stream") 
sGet.Mode=3 
sGet.Type=1 
sGet.Open() 
sGet.Write xPost.ResponseBody 
sGet.SaveToFile iLocal,2
复制代码

CrLf

23# batman


效率低的是vbs部分，那部分我没有一点办法，bat部分可以通过调整for /l循环数来控制用时。至于漏行，我去调试一下吧...

CrLf

昨天漏了set str=%%b以便重新进入循环，而且没注意要将长句分段判断是否重复的要求，重写了下
batman说我代码效率很低，其实bat部分是冤枉的，我一向比较关心算法的效率，特别慢的算法好意思拿出来吗？这种小文件还不至于太卡，大文件才可能有明显的减速，主要是vbs下载用时太长...

@echo off&setlocal enabledelayedexpansion
echo %time% 开始下载
more>1.vbs +22 %0
wscript //nologo 1.vbs "http://bbs.tt365.net.cn/viewthread.php?tid=161145" a.htm
echo %time% 下载完成
(for /f "delims=" %%a in ('findstr /rc:"【.*】" a.htm') do (
	set str=%%a【
	for /l %%b in (1 1 10) do (
		if "!str!" neq "" for /f "tokens=1* delims=】" %%c in ("!str:*【=!") do (
			if "!.%%c!"=="" (
				set tmp=%%c
				for %%e in (， 。 “ ” ； ： ？ ！) do set tmp=!tmp:%%e=","!
				for %%e in ("!tmp!") do set .%%~e=.
				set .%%c=.
				echo %%c
			)
			set str=%%d
		)
	)
))>a.txt
echo 处理完成 %time%
pause&exit

iLocal=LCase(Wscript.Arguments(1)) 
iRemote=LCase(Wscript.Arguments(0)) 
Set xPost=createObject("Microsoft.XMLHTTP") 
xPost.Open "GET",iRemote,0 
xPost.Send() 
set sGet=createObject("ADODB.Stream") 
sGet.Mode=3 
sGet.Type=1 
sGet.Open() 
sGet.Write xPost.ResponseBody 
sGet.SaveToFile iLocal,2
复制代码

more的行数差了两行，改下

CrLf

29# batman


汗，加了那三条echo，忘了改more相应的参数

CrLf

循环1000次也没什么影响的，因为for的输入为空，循环数就只是微调

CrLf

“将【替换为 "# ，将】替换为" ，直接达到分句效果”，这个倒是好办法，没想到