[已解决]批处理怎样建立一个以当前年份、周别、星期为名的文件夹？

zilu63

需要分两步来做：

1.自动建立一个以当前年份、周别、星期为名的文件夹，如今天是2011年第33周星期一，则自动根据当前日期建立文件夹名称为：2011_33_MON

2.将特定文件拷入此文件夹，比如*.csv. 如何引用该段代码。

感谢！

没想到我的问题这么短时间就有这么多专业的朋友们帮助指点迷津,真是太感动了.太激动了.

为了表示谢意,只能赠予积分,但权限只能赠1分,一份心意,望笑纳.

wrove

下面是一部分代码，这个用批处理解决着实是相当的难搞

1. 
   
2. @Echo off&Color a&SetLocal EnableDelayedExpansion
   
3. Call :Array WeekDayNames Mon Tue Wed Thu Fri Sat Sun
   
4. ::For /l %%a IN (0 1 %WeekDayNames%) DO Echo !WeekDayNames[%%a]!
   
5. Call :Array MonthDays 31 30 31 30 31 30 31 31 30 31 30
   
6. ::For /l %%a IN (0 1 %MonthDays%) DO Echo !MonthDays[%%a]!
   
7. 
   
8. Pause
   
9. 
   
10. :Array
    
11. Rem 将函数调用时的所有参数（除第一个外）处理成一个参数数组
    
12. Rem 参数ArrayName:要得到的数组的数组名
    
13. Rem 返回值%_Name%[i]:由第一个之后的参数组成的数组
    
14. Rem 返回值%_Name%:得到的数组的最大下标
    
15. Set _Name=%~1
    
16. Set _Index=-1
    
17. :BeginArray
    
18. For %%a IN (%*) DO (
    
19. Set %_Name%[!_Index!]=%%a
    
20. Set /a _Index+=1
    
21. )
    
22. Set /a %_Name%=%_Index%-1
    
23. :EndArray
    
24. Set %_Name%[-1]=
    
25. Set _Name=
    
26. Set _Index=
    
27. Goto :EOF
    

复制代码

lfoqtal

主要是周难算,每年起始不同平闰不同

wrove

补充：

1. 
   
2. @Echo off&Color a&SetLocal EnableDelayedExpansion
   
3. Call :Array WeekDayNames Mon Tue Wed Thu Fri Sat Sun
   
4. ::For /l %%a IN (0 1 %WeekDayNames%) DO Echo !WeekDayNames[%%a]!
   
5. Call :Array WeekDays 一 二 三 四 五 六 日
   
6. ::For /l %%a IN (0 1 %WeekDays%) DO Echo !WeekDays[%%a]!
   
7. Call :Array MonthDays 31 30 31 30 31 30 31 31 30 31 30
   
8. ::For /l %%a IN (0 1 %MonthDays%) DO Echo !MonthDays[%%a]!
   
9. Call :Split "%Date%" " " "ds"
   
10. Set WeekDayName=%ds[1]%
    
11. Call :Split "%ds[0]%" "/" "dss"
    
12. Set Year=%dss[0]%
    
13. Set Month=%dss[1]%
    
14. Set Day=%dss[2]%
    
15. Set dss=
    
16. Set ds=
    
17. Set WeekDayName=%WeekDayName:~1,1%
    
18. For /l %%a IN (0 1 %WeekDays%) DO (
    
19. If "!WeekDays[%%a]!"=="%WeekDayName%" (
    
20. Set WeekDayName=!WeekDayNames[%%a]!
    
21. Goto :Next
    
22. )
    
23. )
    
24. :Next
    
25. ::Echo %WeekDayName%&Echo %Year%&Echo %Month%&Echo %Day%
    
26. Pause
    
27. 
    
28. :Array
    
29. Rem 将函数调用时的所有参数（除第一个外）处理成一个参数数组
    
30. Rem 参数ArrayName:要得到的数组的数组名
    
31. Rem 返回值%_Name%[i]:由第一个之后的参数组成的数组
    
32. Rem 返回值%_Name%:得到的数组的最大下标
    
33. Set _Name=%~1
    
34. Set _Index=-1
    
35. :BeginArray
    
36. For %%a IN (%*) DO (
    
37. Set %_Name%[!_Index!]=%%a
    
38. Set /a _Index+=1
    
39. )
    
40. Set /a %_Name%=%_Index%-1
    
41. :EndArray
    
42. Set %_Name%[-1]=
    
43. Set _Name=
    
44. Set _Index=
    
45. Goto :EOF
    
46. 
    
47. :Split
    
48. Rem 对字符串用指定的分隔符分隔，计算分隔得到的项数
    
49. Rem 参数_ItemsStr:要进行解析的字符串
    
50. Rem 参数_DelimterChar:单字符的分隔符
    
51. Rem 参数_Name:字符串分解后得到的数组的数组名
    
52. Rem 返回值%_Name%[i]:保存分解得到的数组的第i项，索引从零开始
    
53. Rem 返回值%_Name%:保存数组的最大索引
    
54. Set _ItemsStr=%~1
    
55. Set _DelimterChar=%~2
    
56. Set _Name=%~3
    
57. Set _n=1
    
58. Set _Index=0
    
59. :BeginSplit
    
60. For /f "tokens=%_n% delims=%_DelimterChar%" %%a IN ("%_ItemsStr%") DO (
    
61. If NOT "%%a"=="" (
    
62. Set %_Name%[%_Index%]=%%a
    
63. Set /a _n+=1
    
64. Set /a _Index+=1
    
65. Goto :BeginSplit
    
66. )
    
67. )
    
68. :EndSplit
    
69. Set /a %_Name%=%_Index%-1
    
70. Set _n=
    
71. Set _Index=
    
72. Set _ItemsStr=
    
73. Set _DelimterChar=
    
74. Set _Name=
    
75. Goto :EOF
    

复制代码

wrove

目录名已经得到了，剩下的自己改改：

1. 
   
2. @Echo off&Color a&SetLocal EnableDelayedExpansion
   
3. Call :Array WeekDayNames Mon Tue Wed Thu Fri Sat Sun
   
4. ::For /l %%a IN (0 1 %WeekDayNames%) DO Echo !WeekDayNames[%%a]!
   
5. Call :Array WeekDays 一 二 三 四 五 六 日
   
6. ::For /l %%a IN (0 1 %WeekDays%) DO Echo !WeekDays[%%a]!
   
7. Call :Array MonthDays 31 30 31 30 31 30 31 31 30 31 30 31
   
8. ::For /l %%a IN (0 1 %MonthDays%) DO Echo !MonthDays[%%a]!
   
9. Call :Split "%Date%" " " "ds"
   
10. Set WeekDayName=%ds[1]%
    
11. Call :Split "%ds[0]%" "/" "dss"
    
12. Set Year=%dss[0]%
    
13. Set Month=%dss[1]%
    
14. Set Day=%dss[2]%
    
15. Rem 去除前导零
    
16. If %Month:~0,1% equ 0 Set Month=%Month:~1,1%
    
17. If %Day:~0,1% equ 0 Set Day=%Day:~1,1%
    
18. Set dss=
    
19. Set ds=
    
20. Set WeekDayName=%WeekDayName:~1,1%
    
21. For /l %%a IN (0 1 %WeekDays%) DO (
    
22. If "!WeekDays[%%a]!"=="%WeekDayName%" (
    
23. Set WeekDayName=!WeekDayNames[%%a]!
    
24. Goto :Next
    
25. )
    
26. )
    
27. :Next
    
28. ::Echo %WeekDayName%&Echo %Year%&Echo %Month%&Echo %Day%
    
29. 
    
30. Rem 计算公元1年1月1日到去年结束总共的天数
    
31. Set /a Year-=1
    
32. Set /a DaysCount=365*%Year%
    
33. For /l %%a IN (4 4 %Year%) DO (
    
34. Rem 预设为True,因为%%a一定能被四整除
    
35. Set IsLeap=True
    
36. Set /a Mod1=%year%%%100
    
37. Set /a Mod2=%Year%%%400
    
38. Set /a Mod3=%Year%%%128
    
39. Rem 排除能被100整除但不能被400整除的年份
    
40. If !Mod1! equ 0 If !Mod2! neq 0 Set IsLeap=False
    
41. Rem 每128年废一润年(来自百科)
    
42. If !Mod3! equ 0 Set IsLeap=False
    
43. If !IsLeap!==True Set /a DaysCount+=1
    
44. )
    
45. ::Echo %DaysCount%
    
46. 
    
47. Rem 还原Year
    
48. Set /a Year+=1
    
49. 
    
50. Rem 计算今年以来的总天数
    
51. Set /a Month-=2
    
52. Set Days=0
    
53. For /l %%a IN (0 1 %Month%) DO (
    
54. Set /a Days+=!MonthDays[%%a]!
    
55. )
    
56. Set /a Days+=%Day%
    
57. Call :IsLeap %Year%
    
58. If %IsLeap%==True Set /a Days+=1
    
59. ::Echo %Days%
    
60. 
    
61. Rem 还原Month
    
62. Set /a Month+=2
    
63. 
    
64. Set /a Mod=%Days%%%7
    
65. Set /a Div=%Days%/7
    
66. If %Days% leq 7 (
    
67. Set Week=1
    
68. ) Else (
    
69. Rem 当然你也可以有其他选择，具体情况自己改一下判断条件It's easy!
    
70. If %Mod% geq 4 Set /a Week=%Div%+1
    
71. )
    
72. 
    
73. Set DirName=%Year%_%Week%_%WeekDayName%
    
74. ::Echo %DirName%
    
75. 
    
76. Pause
    
77. 
    
78. :IsLeap
    
79. Rem 判断某一年是不是润年,返回值总是IsLeap
    
80. Rem 参数_Year:要判断的年份
    
81. Rem 返回值IsLeap:润年则为True,平年则为False
    
82. Set _Year=%~1
    
83. :BeginIsLeap
    
84. Rem 预设为False
    
85. Set IsLeap=False
    
86. Set /a _Mod1=%_Year%%%4
    
87. Set /a _Mod2=%_year%%%100
    
88. Set /a _Mod3=%_Year%%%400
    
89. Set /a _Mod4=%_Year%%%128
    
90. Rem 能被四整除为润年
    
91. If %_Mod1% equ 0 (
    
92. Set IsLeap=True
    
93. Rem 排除能被100整除但不能被400整除的年份
    
94. If %_Mod2% equ 0 (
    
95. If %_Mod3% neq 0 Set IsLeap=False
    
96. )
    
97. Rem 每128年废一润年(来自百科)
    
98. If %_Mod4% equ 0 Set IsLeap=False
    
99. )
    
100. :EndIsLeap
     
101. Set _Year=
     
102. Set _Mod1=
     
103. Set _Mod2=
     
104. Set _Mod3=
     
105. Set _Mod4=
     
106. Goto :Eof
     
107. 
     
108. :Array
     
109. Rem 将函数调用时的所有参数（除第一个外）处理成一个参数数组
     
110. Rem 参数ArrayName:要得到的数组的数组名
     
111. Rem 返回值%_Name%[i]:由第一个之后的参数组成的数组
     
112. Rem 返回值%_Name%:得到的数组的最大下标
     
113. Set _Name=%~1
     
114. Set _Index=-1
     
115. :BeginArray
     
116. For %%a IN (%*) DO (
     
117. Set %_Name%[!_Index!]=%%a
     
118. Set /a _Index+=1
     
119. )
     
120. Set /a %_Name%=%_Index%-1
     
121. :EndArray
     
122. Set %_Name%[-1]=
     
123. Set _Name=
     
124. Set _Index=
     
125. Goto :EOF
     
126. 
     
127. :Split
     
128. Rem 对字符串用指定的分隔符分隔，计算分隔得到的项数
     
129. Rem 参数_ItemsStr:要进行解析的字符串
     
130. Rem 参数_DelimterChar:单字符的分隔符
     
131. Rem 参数_Name:字符串分解后得到的数组的数组名
     
132. Rem 返回值%_Name%[i]:保存分解得到的数组的第i项，索引从零开始
     
133. Rem 返回值%_Name%:保存数组的最大索引
     
134. Set _ItemsStr=%~1
     
135. Set _DelimterChar=%~2
     
136. Set _Name=%~3
     
137. Set _n=1
     
138. Set _Index=0
     
139. :BeginSplit
     
140. For /f "tokens=%_n% delims=%_DelimterChar%" %%a IN ("%_ItemsStr%") DO (
     
141. If NOT "%%a"=="" (
     
142. Set %_Name%[%_Index%]=%%a
     
143. Set /a _n+=1
     
144. Set /a _Index+=1
     
145. Goto :BeginSplit
     
146. )
     
147. )
     
148. :EndSplit
     
149. Set /a %_Name%=%_Index%-1
     
150. Set _n=
     
151. Set _Index=
     
152. Set _ItemsStr=
     
153. Set _DelimterChar=
     
154. Set _Name=
     
155. Goto :EOF
     

复制代码

hanyeguxing

1. @echo off&set/a Y=%date:~0,4%,M=1%date:~5,2%%%-101,D=1%date:~8,2%%%100
   
2. for /l %%a in (1,1,%M%) do set/a "D+=30+(%%a-%%a/8)%%2+!(%%a-2)*(!(Y%%4)&!(!(Y%%100))|!(Y%%400)-2)"
   
3. set/a T=(Y-1)*365+Y/4-Y/100+Y/400+1,D+=T-1,M=D/7-T/7+1,"K=!(D%%7)*7+D%%7"
   
4. for /f "tokens=%K%" %%a in ("Mon Tue Wed Thu Fri Sat Sun") do set K=%Y%_%M%_%%a
   
5. md "%K%" 2>nul
   
6. copy "c:\*.csv" "%K%"

复制代码

1. 
   
2. @echo off&set/a Y=%date:~0,4%,M=1%date:~5,2%%%-101,K=(Y-1)*365+Y/4-Y/100+Y/400+1,"D=K-1+(M+1)/2+!(M-8)+!(M-10)+30*M+1%date:~8,2%%%100+!!(M/2)*(!(Y%%4)&!(!(Y%%100))|!(Y%%400)-2)",M=D/7-K/7+1,"K=!(D%%7)*7+D%%7"
   
3. for /f "tokens=%K%" %%a in ("Mon Tue Wed Thu Fri Sat Sun") do set K=%Y%_%M%_%%a
   
4. md "%K%" 2>nul
   
5. copy "c:\*.csv" "%K%"

复制代码

要求%date%为标准格式，星期语言为任意

ArdentMan

VBS方案：

1. 
   
2. Dim NowYear, NowWeek, NowWeekDay, Arr, FolderName, FSO, Path
   
3. Arr = split("Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday", ",")
   
4. NowYear = Year(Now())
   
5. NowWeek = DateDiff("ww", NowYear & "-1-1", Now())
   
6. NowWeekDay = Arr(Weekday(Now()))
   
7. FolderName = NowYear & "_" & NowWeek & "_" & NowWeekDay
   
8. Set FSO = CreateObject("Scripting.FileSystemObject")
   
9. Path = CreateObject("Wscript.Shell").CurrentDirectory & ""'如不是当前目录请自行修改为绝对或相对路径
   
10. FSO.CreateFolder FolderName
    
11. For Each file In FSO.GetFolder(Path).Files
    
12.   If LCase(FSO.GetExtensionName(file)) = "csv" Then FSO.CopyFile file, FolderName & ""
    
13. Next
    
14. Set FSO = Nothing
    
15. MsgBox "拷备完成" ,, "ArdentMan友情提示"
    

复制代码

zilu63

十分感谢各位的热心帮助,
目前hanyeguxing  和ArdentMan  两位的代码完全符合我的要求.

感谢,感谢!
又学了一招,看来批处理和VBS真是博大精深啊.

CrLf

另一种周数算法：

1. @echo off
   
2. set /a "k=1%date:~5,2%-101","y=%date:~,4%","d=y/100","s=y%%100","d=30*k-~k/2+1%date:~8,2%-101+(!!(k/2))*(!(y%%4)-!(y%%100)+!(y%%400)-2)","s=d/7+!!(d%%7)","k=(y+y/4-y/100+y/400+d)%%7"
   
3. for /f "tokens=%K%" %%a in ("Mon Tue Wed Thu Fri Sat Sun") do md "%Y%_%M%_%%a" 2>nul
   
4. copy "c:\*.csv" "%K%"

复制代码

plp626

1. 
   
2. ::蔡勒公式改进版算星期：
   
3. set dt=%date%
   
4. ::年月日格式例子： 2011-08-12 (命令行下测试)
   
5. set/a y=%dt:~,4%,m=1%dt:~5,2%-100,d=1%dt:~8,2%-100
   
6. if %m% leq 2 set/a m+=12,y-=1
   
7. set/a w=(d+2*m+3*(m+1)/5+y+y/4-y/100+y/400)%7+1
   
8. echo %dt%这一天，星期%w%

复制代码

http://baike.baidu.com/view/598757.htm
===================

1. :: 定义 _weekday函数，入口参数#1，#2，#3；返回变量名##；
   
2. :: 入口参数格式：以2012年1月1日为例，则#1=2012，#2=1，#3=1
   
3. set _weekday=set/a"##=(#2-3)>>31,#2+=-12*##,#1+=##,##=(#3+2*#2+3*(#2+1)/5+#1+#1/4-#1/100+#1/400)%%%%7+1"
   
4. 
   
5. :: 使用举例：
   
6. set/a #1=2012,#2=1,#3=1
   
7. %_weekday%
   
8. set ##
   

复制代码

CrLf

蔡勒公式我也尝试过，但是百思不得其解它怎么总是不准，后来发现这是因为它是以浮点运算为基础的...
浮点还得靠 vbs：

1. y = year(now)
   
2. m = month(now)
   
3. d = day(now)
   
4. wscript.echo (d+2*m+3*(m+1)/5+y+y/4-y/100+y/400)mod 7

复制代码

不过话说回来，vbs 自带星期函数，也没必要用公式...

1. msgbox weekday(now)

复制代码