zqz0012005

这题主要麻烦在日期处理，其他没什么。关于日期处理cn-dos有很多现成的代码。我也不想再去找了。

以前在cn-dos收集的代码，修理硬盘备份在同学的电脑上，后来被他删了。扁死他也找不回来了。也没有时间和那份心情再去重新收集

zqz0012005

批处理对日期的处理实在麻烦，来个vbs先

Set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("ab cd.txt")
f.ReadAll : lines = f.Line : f.Close
set f = fso.OpenTextFile("ab cd.txt")
Do While f.AtEndOfStream <> True
    s =s & GetDate(f.Line) & " " & f.ReadLIne & vbCrLf
Loop
fso.OpenTextFile("c.txt",2,True).Write s

Function GetDate(nDiff)
    nDate = DateAdd("d", nDiff-lines, date)
    if month(nDate) <> month(nDate-1) then strMonChange = vbCrLf
GetDate = strMonChange & _
        year(nDate) & "年" & _
        right("0" & month(ndate), 2) & "月" & _
        right("0" & day(ndate), 2) & "日"
End Function
复制代码