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
CODE:  [Copy to clipboard]
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
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

作者: fangxinqufei     时间: 2009-5-22 06:35


  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 提供最新最全的文字版小说。" ( ...

行了,谢谢。
作者: fangxinqufei     时间: 2009-5-22 06:40


  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 提供最新最全的文字版小说。" ( ...

还是有点不明白,这里去掉"delims="为什么就失败了?
作者: pkto     时间: 2009-5-23 04:56
jmz573515绝对是高手啊,非常感谢提供如此实用的代码




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5