@echo off&setlocal enabledelayedexpansion
cd.>b.txt
for /l %%a in (1 1 31) do (
     set "var=0%%a"
     for /f "tokens=* delims=0" %%i in (a.txt) do (
           echo 200810!var:~-2!07550%%i001
))>>b.txt
start b.txt
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=/" %%i in ('echo %date%') do (
set year=%%i
set month=%%j
)
for %%i in (1 3 5 7 8 10 12) do (if %month% equ %%i set days=31)
for %%i in (4 6 9 11) do (if %month% equ %%i set days=30)
if %month% equ 2 set days=29
echo %days%

for /l %%a in (1 1 %days%) do (
set x=%%a
if !x! lss 10 set x=0!x!

for /f "delims=" %%i in (a.txt) do (
set a=%%i
set a=!a:~3!
echo %year%!x!0755!a!001 >>b.txt
)
set a=
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set /p month=几月？
for %%i in (1 3 5 7 8 10 12) do set "_%%i=31"
for %%i in (4 6 9 11) do set "_%%i=30"
set "_2=29"
cd.>b.txt
for /l %%a in (1 1 !_%month%!) do (
     set "var=0%%a"
     for /f "delims=" %%i in (a.txt) do (
           set "str=%%i"
           echo 2008!month!!var:~-2!0755!str:~3!001
))>>b.txt
start b.txt
复制代码

set fso = CreateObject("Scripting.FileSystemObject")
yourMon=DateValue(inputbox("下面是当前年月","请输入年月",DatePart("yyyy",Date)&"-"&DatePart("m",Date)))
do while month(yourMon+i)=month(yourMon)
strDate = year(yourMon+i) & String(1 and len(month(yourMon+i)), "0") & month(yourMon+i) & String(1 and len(day(yourMon+i)), "0") & day(yourMon+i)
fso.OpenTextFile("b.txt",8,true).WriteLine myReplace(strDate & "0755")
i=i+1
loop

function myReplace(str)
    Set theFile = fso.OpenTextFile("a.txt")
    Do While theFile.AtEndOfStream <> True
        retstring = retstring & Replace(theFile.ReadLine, "000", str, 1,1,1) & "001" & vbCrLf
     Loop
    theFile.Close
myReplace = retstring
End Function
复制代码