中国DOS联盟

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何将一个文本分成几个小文本？

fangxinqufei
新手上路

积分 11
发帖 8
注册 2009-5-7
状态离线

『楼主』: 如何将一个文本分成几个小文本？

如有以下文本

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

2009-5-21 11:05

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 2 楼』:

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 ]

2009-5-22 05:02

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 3 楼』:

@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 点积分点击查看详情

2009-5-22 06:04

fangxinqufei
新手上路

积分 11
发帖 8
注册 2009-5-7
状态离线

『第 4 楼』:

Quote:

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

行了，谢谢。

2009-5-22 06:35

fangxinqufei
新手上路

积分 11
发帖 8
注册 2009-5-7
状态离线

『第 5 楼』:

Quote:

还是有点不明白，这里去掉"delims="为什么就失败了？

2009-5-22 06:40

pkto
初级用户

积分 62
发帖 62
注册 2007-7-14
状态离线

『第 6 楼』:

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

2009-5-23 04:56

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: