[分享]批处理转换文本中的日期时间格式

Batcher

问题：
有效期：Fri Oct 24 16:08:06 GMT+08:00 2018 至Sun Oct 25 16:08:07 GMT+08:00 2020
有效期：Fri Nov 26 16:08:08 GMT+08:00 2018 至Sun Nov 27 16:08:09 GMT+08:00 2020

希望把格式转换成如下

有效期：2018-10-24 16:08:06 至 2020-10-25 16:08:07
有效期：2018-11-26 16:08:08 至 2020-11-27 16:08:09

代码：

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. (for /f "delims=" %%i in ('type "1.txt"') do (
   
4.     set "str=%%i"
   
5.     set yearFrom=!str:~34,4!
   
6.     set monthFrom=!str:~8,3!
   
7.     set dayFrom=!str:~12,2!
   
8.     set timeFrom=!str:~15,8!
   
9.     set yearTo=!str:~70,4!
   
10.     set monthTo=!str:~44,3!
    
11.     set dayTo=!str:~48,2!
    
12.     set timeTo=!str:~51,8!
    
13.     call :GetMonth !monthFrom!
    
14.     call :GetMonth !monthTo!
    
15.     set tsFrom=!yearFrom!-!monthNum!-!dayFrom! !timeFrom!
    
16.     set tsTo=!yearTo!-!monthNum!-!dayTo! !timeTo!
    
17.     echo 有效期：!tsFrom! 至 !tsTo!
    
18. ))>"2.txt"
    
19. goto :eof
    
20. 
    
21. :GetMonth
    
22. if "%1" equ "Jan" (
    
23.     set "monthNum=01"
    
24. ) else if "%1" equ "Feb" (
    
25.     set "monthNum=02"
    
26. ) else if "%1" equ "Mar" (
    
27.     set "monthNum=03"
    
28. ) else if "%1" equ "Apr" (
    
29.     set "monthNum=04"
    
30. ) else if "%1" equ "May" (
    
31.     set "monthNum=05"
    
32. ) else if "%1" equ "Jun" (
    
33.     set "monthNum=06"
    
34. ) else if "%1" equ "Jul" (
    
35.     set "monthNum=07"
    
36. ) else if "%1" equ "Aug" (
    
37.     set "monthNum=08"
    
38. ) else if "%1" equ "Sep" (
    
39.     set "monthNum=09"
    
40. ) else if "%1" equ "Oct" (
    
41.     set "monthNum=10"
    
42. ) else if "%1" equ "Nov" (
    
43.     set "monthNum=11"
    
44. ) else if "%1" equ "Dec" (
    
45.     set "monthNum=12"
    
46. ) else (
    
47.     set "monthNum=ERROR"
    
48. )
    
49. goto :eof

复制代码