[文本处理] 批处理怎样按照指定模板内容批量生成一系列以日期命名的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

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

JohnChu

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

再世情緣

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

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

生成的文档在自动生成的“文档通用名称”文件夹里
在你的例子中，文档通用名即为文档名称中一样的部分，在你的例子中，即为“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

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