BAT脚本实现文件含身份证信息排错重命名

xp3000 · 发表于 2021-5-19 10:31:04

本帖最后由 xp3000 于 2021-5-20 21:30 编辑

复制代码

@if(0)==(0) echo off&setlocal EnableDelayedExpansion
@for /f "delims=" %%j in ('dir /b/a-d/on "*.jpg" "*.png"') do (
@for /f "delims=" %%k in ('echo %%~nj^|cscript -nologo -e:jscript "%~f0"') do (
del /f /s /q 身份证信息错误的文件.txt>nul 2>nul
if "%%j" neq "%%k%%~xj" (
set str=%%k&set year=!str:~6,4!&set month=!str:~10,2!&set day=!str:~12,2!
if "2!day!" neq "229" (echo.身份证信息：%%k&echo.符合中华人民共和国第二代身份证号命名规则，即将重命名……
ren "%%j" "%%k%%~xj"&echo.
) else (echo.检查到身份证为2月29日，计算平年闰年……
set /a "y=^!(year%%4)&^!(^!(year%%100))|^!(year%%400)"&set /a x=28+!y!
if !day! equ !x! (
echo.出生年为闰年：2月!x!天………………………
echo.身份证信息：%%k&echo.符合中华人民共和国第二代身份证号命名规则，即将重命名……
ren "%%j" "%%k%%~xj"&echo.
) else (
echo,出生年为平年：2月!x!天………………………
echo.身份证信息：%%k&echo.身份证信息错误,忽略重命名…………………&echo.
echo.%%j>>身份证信息错误的文件.txt
)
)
) else (
echo %%j ：文件已忽略……&echo.
)
)
)
)
pause & exit /b
@end
var objShell = new ActiveXObject('Shell.Application');
while(!WScript.StdIn.AtEndOfStream) {
var strFile = WScript.StdIn.ReadLine();
var strFile = strFile.replace(/.*([1-9][0-9]{5}(19|20)[0-9]{2}(([0][13-9]|11|12)([0][1-9]|[12][0-9]|30)|([0][13578]|10|12)(31)|02([0][1-9]|1[0-9]|2[0-8]|29))[0-9]{3}[0-9X]).*/g, '$1');
WSH.Echo(strFile);
}

复制代码

Batcher · 发表于 2021-5-19 12:42:49

回复 1# xp3000

感谢分享！希望可以帮助到有需要的人。

xp3000 · 发表于 2021-5-20 21:40:15

复制代码

发现验证平年闰年反了，现在调整过来了

1152 · 发表于 2021-5-21 12:16:43

非常有用

1152 · 发表于 2021-5-21 12:16:52

谢谢分享，

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[其他] BAT脚本实现文件含身份证信息排错重命名