批处理怎样按照指定模板内容批量生成一系列以日期命名的txt文本文件？

JohnChu

我想要把日期作为内容
并放到每一个文件中
就是有20100101.txt
内容是：
$url = "http://bbs.kafan.cn/
soft/20100101/"
For $i = 0 To 9999
        $id = StringFormat
('%04s', $i)
        $file = $url & $id
&".exe"
        ToolTip($file)
        InetGet($file,
@ScriptDir& "\" &
StringTrimLeft($file,
StringInStr($file, "/", 2, -1)), 1)
Next
有没有办法？
谢谢

BAT-VBS

1. @echo off
   
2. set fileName=%date:~0,10%
   
3. set fileName=%fileName:-=%
   
4. >%fileName%.txt echo $url = "http://bbs.kafan.cn/soft/%fileName%/"
   
5. >>%fileName%.txt more +7 "%~f0"
   
6. goto :eof
   
7. 
   
8. For $i = 0 To 9999
   
9.     $id = StringFormat('%04s', $i)
   
10.     $file = $url & $id &".exe"
    
11.     ToolTip($file)
    
12.     InetGet($file,@ScriptDir& "" & StringTrimLeft($file,StringInStr($file, "/", 2, -1)), 1)
    
13. Next

复制代码

JohnChu

回复 2# BAT-VBS
好像不行，我希望得到的是多个文件如：
20100101.txt
20100102.txt
20100103.txt
……
这样子。
由我输入起末日期

再世情緣

你的意思是批量生成你需要的
20100101.txt
20100102.txt
20100103.txt
201001xx.txt
。。。。。
这些个文本么？？
我自己写的，以前用的。。。，你看下合适不

1. 
   
2. @echo off &&color 0a
   
3. setlocal enabledelayedexpansion
   
4. title 生成文档
   
5. :loop
   
6. cls
   
7. echo. &&echo.
   
8. echo.文档名称组成由 “文档通用名”+“组数” 构成，请不要使用特殊符号。。。
   
9. echo. &&echo. &&set /p txt=请输入文档通用名称:
   
10. if not defined txt msg %username% /time:5 "错误！！文档通用名 [ %txt% ] 不得为空 ！！！" & call :loop
    
11. echo. &&echo. &&set /p i=请输入文档 [ %txt% ] 起始组数:
    
12. if not defined i msg %username% /time:5 "错误！！开始组数 [ %i% ] 不得为空！！！" & call :loop
    
13. echo. &&echo. &&set /p j=请输入文档 [ %txt% ] 结束组数:
    
14. if not defined j msg %username% /time:5 "错误！！结束组数 [ %j% ] 不得为空！！！" & call :loop
    
15. if %j% LSS %i% msg %username% /time:5 "错误！！结束组数 [ %j% ] 不得小于开始组数 [ %i% ] ！！！" & call :loop
    
16. md "%txt%" >nul
    
17. pushd ".\%txt%"
    
18. cls
    
19. for /L %%a in (%i%,+1,%j%) do (
    
20.   if %%a LSS 10 (set "nb=0%%a") else (set "nb=%%a")
    
21.   echo.
    
22.   echo.
    
23.   echo.正在生成 %txt%!nb!.txt ....
    
24.   echo.>"%txt%!nb!.txt"
    
25.   cls
    
26. )
    
27. :finish
    
28. cls
    
29. echo. &&echo.
    
30. echo 文档 [ %txt%%i% - %txt%%j% ] 生成完毕！！！
    
31. ping localhost -n 3 >nul
    
32. call exit
    

复制代码

生成的文档在自动生成的“文档通用名称”文件夹里
在你的例子中，文档通用名即为文档名称中一样的部分，在你的例子中，即为“201001”，组数为你想要多少个这样的文件。。。
另外。。。由于本人水平有限。。。你所输入的内容必须符合命名规则。。。组数。。。必须为数字。。。。。当前设置为2位数。。。比如：1自动补充为01。。。如果哥们儿需要更多的类似文档。。。MM我，或者看其他朋友的回复。。。
罗嗦了，见谅。。。

BAT-VBS

回复 3# JohnChu


    因为你在顶楼没有提到这一点

JohnChu

回复 5# BAT-VBS


    恩，抱歉没有说清楚
要生成这些文件应该怎么做呢

BAT-VBS

回复 6# JohnChu


    先试试4楼的代码吧

JohnChu

回复 7# BAT-VBS


    我希望生成的不是一系列空文件，内容是
“$url = "http://bbs.kafan.cn/soft/XXXXXXXX/"
For $i = 0 To 9999
        $id = StringFormat('%04s', $i)
        $file = $url & $id&".exe"
        ToolTip($file)
        InetGet($file,
@ScriptDir& "\" &
StringTrimLeft($file,
StringInStr($file, "/", 2, -1)), 1)
Next”

pcl_test

vbs

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. 
   
3. Set f = fso.OpenTextFile(WScript.ScriptFullName, 1)
   
4. Do While f.AtEndOfStream <> true
   
5.     line = f.ReadLine
   
6.     If Left(line, 1) = "'" Then s = s& Mid(line, 2) &vbCrLf
   
7. Loop
   
8. 
   
9. date1 = DateValue("2015-01-01")
   
10. date2 = DateValue("2015-01-05")
    
11. 
    
12. Do Until date1 > date2
    
13.     Wrtxt(date1)
    
14.     date1 = DateAdd("d", 1 , date1)
    
15. Loop
    
16. Msgbox "Done"
    
17. 
    
18. Function Wrtxt(d)
    
19.     yMd = right(year(d),4) & right("0" & month(d),2) & right("0" & day(d),2)
    
20.     fso.CreateTextFile(yMd &".txt", 2).Write replace(s, "$日期$", yMd)
    
21. ENd Function
    
22. 
    
23. '$url = "http://bbs.kafan.cn/soft/$日期$/"
    
24. 'For $i = 0 To 9999
    
25. '        $id = StringFormat('%04s', $i)
    
26. '        $file = $url & $id &".exe"
    
27. '        ToolTip($file)
    
28. '        InetGet($file,
    
29. '@ScriptDir& "" &
    
30. 'StringTrimLeft($file,
    
31. 'StringInStr($file, "/", 2, -1)), 1)
    
32. 'Next

复制代码