好帖，谢谢楼主
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何从一个文本文件拆分为多个文本文件?
查看 6,132 回复 18
第 16 楼
hao
发表于 2007-11-21 16:52 · 中国 江苏 南京 电信
第 17 楼
标题: 如何从一个文本文件拆分为多个文本文件?
发表于 2009-01-29 11:00 · 中国 江苏 南通 中移铁通
感谢中国DOS联盟
第 18 楼
发表于 2009-07-06 20:38 · 中国 北京 中国电信北京研究院
不错！
第 19 楼
发表于 2009-07-06 23:39 · 美国 俄亥俄州 特拉华县 哥伦布 DoD网络信息中心
你好，我运行你写的程序
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
为什么会提示“此时不应有（”
不好意思，请教一下原因。谢谢。
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
为什么会提示“此时不应有（”
不好意思，请教一下原因。谢谢。
论坛跳转: