
CODE: [Copy to clipboard][ Last edited by jmz573515 on 2009-5-22 at 05:03 ]set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt")
s=file.readall
file.close
s=split(s,"www.uutxt.com 提供最新最全的文字版小说。")
for i=0 to ubound(s)
set file=fso.createtextfile(i+1 & ".txt")
file.write s(i)
file.close
next
msgbox "文件分割完成",4096
CODE: [Copy to clipboard]@echo off
setlocal enabledelayedexpansion
set l=1
for /f "delims=" %%i in (a.txt) do (
if "%%i"=="www.uutxt.com 提供最新最全的文字版小说。" (
set /a l+=1
) else (
echo %%i>>!l!.txt
)
)
pause
| Quote: | |
|
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |