中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-11 20:48
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 如何将一个文本分成几个小文本? 查看 758 回复 5
楼 主 如何将一个文本分成几个小文本? 发表于 2009-05-21 11:05 ·  中国 江苏 南京 电信
新手上路
积分 11
发帖 8
注册 2009-05-07 08:54
17年会员
UID 144564
性别 男
状态 离线
如有以下文本

第九卷 荣誉勋章 第三百零六章 报复(上) 字数: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 发表于 2009-05-22 05:02 ·  中国 辽宁 本溪 联通
银牌会员
★★★
积分 1,212
发帖 464
注册 2006-12-13 21:11
19年会员
UID 73417
性别 男
状态 离线

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 发表于 2009-05-22 06:04 ·  中国 辽宁 本溪 联通
银牌会员
★★★
积分 1,212
发帖 464
注册 2006-12-13 21:11
19年会员
UID 73417
性别 男
状态 离线

@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
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
pkto +1 2009-05-23 04:57
4 发表于 2009-05-22 06:35 ·  中国 江苏 南京 电信
新手上路
积分 11
发帖 8
注册 2009-05-07 08:54
17年会员
UID 144564
性别 男
状态 离线
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 发表于 2009-05-22 06:40 ·  中国 江苏 南京 电信
新手上路
积分 11
发帖 8
注册 2009-05-07 08:54
17年会员
UID 144564
性别 男
状态 离线
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 发表于 2009-05-23 04:56 ·  中国 江苏 南京 电信
初级用户
★★
积分 62
发帖 62
注册 2007-07-14 14:39
19年会员
UID 93962
性别 男
状态 离线
jmz573515绝对是高手啊,非常感谢提供如此实用的代码
论坛跳转: