Board logo

标题: 如何将一个文本分成几个小文本？ [打印本页]
作者: fangxinqufei     时间: 2009-5-21 11:05    标题: 如何将一个文本分成几个小文本？
如有以下文本

第九卷 荣誉勋章 第三百零六章 报复（上） 字数: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。
之前有人贴了个类似的代码，但是看不懂，有没有人写一个简单的呀？
作者: jmz573515     时间: 2009-5-22 05:02


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 ]
作者: jmz573515     时间: 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 提供最新最全的文字版小说。" (

		set /a l+=1

	) else (

		echo %%i>>!l!.txt

	)

)

pause
作者: fangxinqufei     时间: 2009-5-22 06:35
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 提供最新最全的文字版小说。" ( ...

行了，谢谢。
作者: fangxinqufei     时间: 2009-5-22 06:40
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="为什么就失败了？
作者: pkto     时间: 2009-5-23 04:56
jmz573515绝对是高手啊，非常感谢提供如此实用的代码