中国DOS联盟

原文件(test.txt):
**BEGIN FILE1 (注释:**BENGIN为标志,表示要从此处拆分;FILE1为拆分文件名)
aaaaaaaa ccc
bbbbbbbb cvcv
cccccccc cvcv
dddddddd tytyty
**END
**BEGIN FILE2(注释:**BENGIN为标志,表示要从此处拆分;FILE2为拆分文件名)
ggggggggggg gggg
hhhhhhhhh yyyyy
iiiiiiiiii tyty
**END
**BEGIN FILE3(注释:**BENGIN为标志,表示要从此处拆分;FILE3为要分文件名)
kdsfhkasdfh tyu
dfsdfsdfsdf tyu utyu
sdfsdfsdfadf 667676
**END

此时,需要根据**BEGIN来拆分为多个文本文件,**BENIN后面的FILE1/FILE2/FILE3等为文件名:

文件FILE1:
**BEGIN FILE1
aaaaaaaa ccc
bbbbbbbb cvcv
cccccccc cvcv
dddddddd tytyty
**END

文件FILE2:
**BEGIN FILE2
ggggggggggg gggg
hhhhhhhhh yyyyy
iiiiiiiiii tyty
**END

文件3:
**BEGIN FILE3
kdsfhkasdfh tyu
dfsdfsdfsdf tyu utyu
sdfsdfsdfadf 667676
**END

[ Last edited by zhaoxf on 2007-1-5 at 11:38 AM ]

　　带星号的那些行是原文件里本来就有的吗？你所举的例子太过抽象，如果不介意，请发一段真正内容出来，并在适当的地方加上注释，说明意图，以便于构思代码。

原文件(test.txt):
**BEGIN FILE1 (注释:**BENGIN为标志,表示要从此处拆分;FILE1为要拆分出的文件名)
aaaaaaaa ccc
bbbbbbbb cvcv
cccccccc cvcv
dddddddd tytyty
**END
**BEGIN FILE2(注释:**BENGIN为标志,表示要从此处拆分;FILE2为要拆分出的文件名)
ggggggggggg gggg
hhhhhhhhh yyyyy
iiiiiiiiii tyty
**END
**BEGIN FILE3(注释:**BENGIN为标志,表示要从此处拆分;FILE3为要拆分出的文件名)
kdsfhkasdfh tyu
dfsdfsdfsdf tyu utyu
sdfsdfsdfadf 667676
**END


感谢斑竹.

[ Last edited by zhaoxf on 2007-1-5 at 11:36 AM ]

**BEGIN和**END 在原文件都有.

付上我写的bat文件,可是有个很严重的问题,就是只能产生FILE1/FILE2/FILE3等文件,可是里面没有内容:

for /f "tokens=1, 2, 3, 4 delims=** " %%j in (test.txt) do (
if "%%j" == "BEGIN" ( >> "%%k" echo
)
)

付上原文件和我写的BAT:

这样试试：
@echo off setlocal ENABLEDELAYEDEXPANSION for /f "delims=" %%i in (spil.txt) do ( set tmp=%%i if "!tmp:~0,7!" == "**BEGIN" ( set file=!tmp:*BEGIN =! echo %%i>!file! ) else ( echo %%i>>!file! ) )

到这里看看吧

http://www.cn-dos.net/forum/viewthread.php?tid=18102&fpage=1&highlight=csplit&page=2

如文件名形如 !FILE1! ，!FILE2!，!FILE3!，则7楼代码需要打补丁：）

感谢各位热心高人的指点。
感谢"无奈何"的源码提供。跑出来的结果完全成功！

感谢中国DOS联盟提供这样的热情论坛！

顺便提供另外一种方法，纯属灌水
@echo off&setlocal for /f "tokens=1*" %%a in (fi.txt) do call :pp "%%a" "%%b" goto :eof :pp if /i %1 equ "**BEGIN" ( >>%~2.txt echo %~1 %~2&set a=%~2.txt ) else ( >>%a% echo %~1 %~2 ) goto :eof

我也来灌水
set fso=createobject("scripting.filesystemobject") set file=fso.opentextfile("a.txt",1) do while file.AtEndOfStream <> True m=file.readline if left(m,12)="**BEGIN FILE" then set cfile=fso.createtextfile(right(m,5),true) end if cfile.writeline m loop file.close

作为对无奈何、9527、jmz573515三人灌水的惩罚，每人加5分。

sed 解决还是不错的

给可以发个例子和。BAT文件给我，谢谢了，ljchenghui@163.com