如何将一个文本分成几个小文本？ - 中国DOS联盟论坛

如有以下文本

第九卷荣誉勋章第三百零六章报复（上）字数:2207
第306章报复（上）
第二天，李三思一觉醒来的时候，整个房间都充满了透进来的阳光，敦伦的天
…… 眼睛，也随之变得晶亮的波动起来。
www.uutxt.com 提供最新最全的文字版小说。

第九卷荣誉勋章第三百零七章报复（下）字数:2402
第307章报复（下）
三慈海大师，就是五十年前和这个组织的交手之中遇难的。”
www.uutxt.com 提供最新最全的文字版小说。

第九卷荣誉勋章第三百零八章第三个强者（上）字数:2514
第308章第三个强者（上）
个人，不论从，面对强者，俯首称臣有时候并不是逼不得已，而是一种本能。
www.uutxt.com 提供最新最全的文字版小说。
…………
…………

怎么用写批处理将其分成1.txt 2.txt 3.txt ……n.txt？
以“www.uutxt.com 提供最新最全的文字版小说。”文字为分割线，分别将每一部分放入1.txt 2.txt 3.txt ……n.txt。
之前有人贴了个类似的代码，但是看不懂，有没有人写一个简单的呀？


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

[ Last edited by jmz573515 on 2009-5-22 at 05:03 ]


@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

Originally posted by jmz573515 at 2009-5-22 06:04:
@echo off setlocal enabledelayedexpansion set l=1 for /f "delims=" %%i in (a.txt) do ( if "%%i"=="www.uutxt.com 提供最新最全的文字版小说。" ( ... 行了，谢谢。

Originally posted by jmz573515 at 2009-5-22 06:04:
@echo off setlocal enabledelayedexpansion set l=1 for /f "delims=" %%i in (a.txt) do ( if "%%i"=="www.uutxt.com 提供最新最全的文字版小说。" ( ... 还是有点不明白，这里去掉"delims="为什么就失败了？

jmz573515绝对是高手啊，非常感谢提供如此实用的代码

第1楼　fangxinqufei	发表于 2009-05-21 11:05
新手上路　发帖 8　积分 11
如何将一个文本分成几个小文本？如有以下文本第九卷荣誉勋章第三百零六章报复（上）字数:2207 第306章报复（上）第二天，李三思一觉醒来的时候，整个房间都充满了透进来的阳光，敦伦的天 …… 眼睛，也随之变得晶亮的波动起来。 www.uutxt.com 提供最新最全的文字版小说。第九卷荣誉勋章第三百零七章报复（下）字数:2402 第307章报复（下）三慈海大师，就是五十年前和这个组织的交手之中遇难的。” www.uutxt.com 提供最新最全的文字版小说。第九卷荣誉勋章第三百零八章第三个强者（上）字数:2514 第308章第三个强者（上）个人，不论从，面对强者，俯首称臣有时候并不是逼不得已，而是一种本能。 www.uutxt.com 提供最新最全的文字版小说。 ………… ………… 怎么用写批处理将其分成1.txt 2.txt 3.txt ……n.txt？以“www.uutxt.com 提供最新最全的文字版小说。”文字为分割线，分别将每一部分放入1.txt 2.txt 3.txt ……n.txt。之前有人贴了个类似的代码，但是看不懂，有没有人写一个简单的呀？

第2楼　jmz573515	发表于 2009-05-22 05:02
银牌会员　发帖 464　积分 1,212
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 [ Last edited by jmz573515 on 2009-5-22 at 05:03 ]

第3楼　jmz573515	发表于 2009-05-22 06:04
银牌会员　发帖 464　积分 1,212
@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

第4楼　fangxinqufei	发表于 2009-05-22 06:35
新手上路　发帖 8　积分 11
Originally posted by jmz573515 at 2009-5-22 06:04: @echo off setlocal enabledelayedexpansion set l=1 for /f "delims=" %%i in (a.txt) do ( if "%%i"=="www.uutxt.com 提供最新最全的文字版小说。" ( ... 行了，谢谢。

第5楼　fangxinqufei	发表于 2009-05-22 06:40
新手上路　发帖 8　积分 11
Originally posted by jmz573515 at 2009-5-22 06:04: @echo off setlocal enabledelayedexpansion set l=1 for /f "delims=" %%i in (a.txt) do ( if "%%i"=="www.uutxt.com 提供最新最全的文字版小说。" ( ... 还是有点不明白，这里去掉"delims="为什么就失败了？

第6楼　pkto	发表于 2009-05-23 04:56
初级用户　发帖 62　积分 62
jmz573515绝对是高手啊，非常感谢提供如此实用的代码