中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-05 07:59

共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » （求助）如何批量生成文件

可打印版本　1,169 / 14

第1楼　zxlxsqzy	发表于 2007-07-03 23:46
初级用户　发帖 47　积分 126
（求助）如何批量生成文件因为要做一个工作，需要在一个文件夹中做上百个记事本文件，并且按顺序命名，有没有办法先创建一个文件，然后用批处理完成下面的工作比如说我想在D:\666下建名字为S001-----S100这样一百个空的文本文件，请问我应该怎么写批处理。我可以先手动建一个名为S001的文本文件，接下来我应该怎么办？

第2楼　lasting	发表于 2007-07-04 01:23
初级用户　发帖 24　积分 52
试试这个可行不。。。 @echo off color 1f :01 set /a bar=%choice%+1 echo. > s%bar%.txt set choice=%bar% if /i "%choice%"=="100" goto et goto 01 :et exit

第3楼　wjh6088	发表于 2007-07-04 01:46
初级用户　发帖 39　积分 85
@echo off for /l %%i in (1,1,99) do if %%i LSS 10 (call :xy10 %%i) else (call :dy10 %%i) echo.>S100.txt goto :end :xy10 echo.>S00%1.txt&&goto :eof :dy10 echo.>S0%1.txt&&goto :eof :end pause exit

第4楼　qinbuer	发表于 2007-07-04 01:50
高级用户　发帖 228　积分 512
@echo off & setlocal ENABLEDELAYEDEXPANSION for /l %%a in (1,1,100) do ( if %%a lss 10 (set var=00%%a) else ( if %%a lss 100 (set var=0%%a) else ( set var=%%a ) ) type nul >D:\666\S!var!.txt )

第5楼　qinbuer	发表于 2007-07-04 02:01
高级用户　发帖 228　积分 512
来迟一步 ^_^! 3楼兄弟方法比我好，学习了，论坛应该很多这方面的文章，LZ可以搜索下

第6楼　ThinKing	发表于 2007-07-04 11:01
中级用户　发帖 207　积分 471
@for /L %%a in (1,1,100) do @if %%a lss 10 (cd.>00%%a.txt) else (if %%a leq 99 (cd.>0%%a.txt) else (cd.>%%a.txt))

第7楼　ccwan	发表于 2007-07-04 11:30
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
这个有很多方法。 @echo off&setlocal enabledelayedexpansion for /l %%i in (1,1,100) do (set var=00%%i&cd.>S!var:~-3!.txt)

第8楼　wjh6088	发表于 2007-07-04 11:41
初级用户　发帖 39　积分 85
Originally posted by ccwan at 2007-7-4 11:30 AM: 这个有很多方法。 @echo off&setlocal enabledelayedexpansion for /l %%i in (1,1,100) do (set var=00%%i&cd.>S!var:~-3!.txt) 这个比较精简！赫赫，没想到这个思路，谢谢了

第9楼　6622186	发表于 2007-07-04 22:30
高级用户　发帖 411　积分 894
七楼写的真好

第10楼　Vampire	发表于 2007-07-05 00:35
初级用户　发帖 78　积分 176
思路明确，方法简洁，强！

第11楼　jmz573515	发表于 2007-07-05 08:47
银牌会员　发帖 464　积分 1,212
参考CCWN兄的代码写个VBS的，纯属灌水! for i=1 to 100:createobject("scripting.filesystemobject").createtextfile("s" & right("00" & i,3) & ".txt"):next

第12楼　zxlxsqzy	发表于 2007-07-05 13:24
初级用户　发帖 47　积分 126
谢谢大家对我的帮助，谢谢！

第13楼　jashonx	发表于 2007-07-05 18:01
初级用户　发帖 21　积分 44
一个小问题，居然可以有这么多的解决方案！牛啊！

第14楼　steven	发表于 2007-07-05 20:49
新手上路　发帖 5　积分 14
3楼的好！

第15楼　lygwdyanzi	发表于 2007-07-08 13:50
初级用户　发帖 26　积分 51
cd. 是什么东西啊?查不到啊

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023