[已解决]批处理怎样创建读书模板？

coolrat

请诸君援手相助——
【目的】
随手记录读书笔记
【意图】
1.在批处理所在文件夹内，创建一个以“读书笔记+日期顺序”的TXT,所谓日期格式为读书笔记记录当日，
如2011年7月7月1日所作笔记，则创建TXT，则文件为”读书笔记2011-07-01.txt".

2.所创建文档能自动在文档之首有如下固定格式，以便填写所阅读书籍或论文的文献信息
——————————————————
作者：
篇名：
出处：《             》第    年    期（号）
出版社：
出版时间：    年  月
版次：第  版
已阅读至    页。
————————————————--

3.若夹内无此txt,则自动创建并打开；若夹内此文档已经存在，则自动打开已有文档，以便同日间断性追加新内容。

【说明】本人一文科书生，纯属批处理之“门外汉”，甚喜批处理“以简驭繁”之理念。若得诸位相助，庶几可摆脱平日读书摘引文献与作读书笔记之苦。先行谢过！

namejm

文科生路过
关键是要获取指定格式的日期比较麻烦
cmd下没有专门的命令能对日期以指定格式进行输出
只好通过修改注册表来实现
获取到指定格式的日期之后再把系统的日期格式复原
如果杀软报警，请允许对注册表的操作：

1. 
   
2. @echo off
   
3. for /f "skip=4 delims= " %%a in ('reg query "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate') do (
   
4.   set RegDateOld=%%a
   
5. )
   
6. set RegDateOld=%RegDateOld:~-8%
   
7. reg add "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul
   
8. for /f "tokens=1,2,3 delims=-/: " %%i in ("%date%") do set day=%%i-%%j-%%k
   
9. reg add "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul
   
10. if exist 读书笔记%day%.txt (
    
11.     start "" 读书笔记%day%.txt
    
12. ) else (
    
13.     (
    
14.         echo 作者：
    
15.         echo 篇名：
    
16.         echo 出处：《             》第    年    期（号）
    
17.         echo 出版社：
    
18.         echo 出版时间：    年  月
    
19.         echo 版次：第  版
    
20.         echo 已阅读至    页。)>读书笔记%day%.txt
    
21. )
    

复制代码

tmplinshi

保存为 读书笔记.vbs：

1. Dim Today, fso, FileName, MyFile
   
2. 
   
3. Today = Year(Now) & "-" & Month(Now) & "-" & Day(Now)
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. FileName = "读书笔记" & Today & ".txt"
   
6. 
   
7. If (fso.FileExists(FileName)) Then
   
8.     '
   
9. Else
   
10.     Set MyFile = fso.CreateTextFile(FileName, True)
    
11.     MyFile.WriteLine _
    
12.         "作者：" & vbCrLf & _
    
13.         "篇名：" & vbCrLf & _
    
14.         "出处：《             》第    年    期（号）" & vbCrLf & _
    
15.         "出版社： " & vbCrLf & _
    
16.         "出版时间：    年  月" & vbCrLf & _
    
17.         "版次：第  版" & vbCrLf & _
    
18.         "已阅读至    页。"
    
19.     MyFile.Close
    
20. End If
    
21. 
    
22. WScript.CreateObject ("WSCript.shell").run FileName
    

复制代码