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

@echo off
set fileName=%date:~0,10%
set fileName=%fileName:-=%
>%fileName%.txt echo $url = "http://bbs.kafan.cn/soft/%fileName%/"
>>%fileName%.txt more +7 "%~f0"
goto :eof

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
复制代码

@echo off &&color 0a
setlocal enabledelayedexpansion
title 生成文档
:loop
cls
echo. &&echo.
echo.文档名称组成由 “文档通用名”+“组数” 构成，请不要使用特殊符号。。。
echo. &&echo. &&set /p txt=请输入文档通用名称: 
if not defined txt msg %username% /time:5 "错误！！文档通用名 [ %txt% ] 不得为空 ！！！" & call :loop
echo. &&echo. &&set /p i=请输入文档 [ %txt% ] 起始组数: 
if not defined i msg %username% /time:5 "错误！！开始组数 [ %i% ] 不得为空！！！" & call :loop
echo. &&echo. &&set /p j=请输入文档 [ %txt% ] 结束组数: 
if not defined j msg %username% /time:5 "错误！！结束组数 [ %j% ] 不得为空！！！" & call :loop
if %j% LSS %i% msg %username% /time:5 "错误！！结束组数 [ %j% ] 不得小于开始组数 [ %i% ] ！！！" & call :loop
md "%txt%" >nul
pushd ".\%txt%\"
cls
for /L %%a in (%i%,+1,%j%) do (
  if %%a LSS 10 (set "nb=0%%a") else (set "nb=%%a")
  echo.
  echo.
  echo.正在生成 %txt%!nb!.txt .... 
  echo.>"%txt%!nb!.txt"
  cls
)
:finish
cls
echo. &&echo.
echo 文档 [ %txt%%i% - %txt%%j% ] 生成完毕！！！
ping localhost -n 3 >nul
call exit
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile(WScript.ScriptFullName, 1)
Do While f.AtEndOfStream <> true
    line = f.ReadLine
    If Left(line, 1) = "'" Then s = s& Mid(line, 2) &vbCrLf
Loop

date1 = DateValue("2015-01-01")
date2 = DateValue("2015-01-05")

Do Until date1 > date2
    Wrtxt(date1)
    date1 = DateAdd("d", 1 , date1)
Loop
Msgbox "Done"

Function Wrtxt(d)
    yMd = right(year(d),4) & right("0" & month(d),2) & right("0" & day(d),2)
    fso.CreateTextFile(yMd &".txt", 2).Write replace(s, "$日期$", yMd)
ENd Function

'$url = "http://bbs.kafan.cn/soft/$日期$/"
'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
复制代码