@echo off
rem 进入批处理文件所在的路径
cd D:\111
echo ***** 替换时间中的年份+2567 *****
rem 定义要替换的新旧字符串
rem 定义变量修改本地化延期
setlocal enabledelayedexpansion
rem 循环取出要处理的文件名
for /f "tokens=*" %%i in ('dir D:\111\*.txt /b') do (
    set "var=%%i"
    if not !var!.==. (
rem 单个文件一行行处理，将旧字段替换成新字段
	for /f "tokens=*" %%j in (!var!) do (
                    #时间正则：
	    echo %%j^|findstr /i "[-]{0,1}[0-9]{3}[1-9]|[0-9]{2}[1-9][0-9]{1}|[0-9]{1}[1-9][0-9]{2}|[1-9][0-9]{3}" >nul 2>nul
	    if !errorlevel! equ 0 (
	      set /a m=j+2657
rem 将处理后的每一行记录追加到temp.txt文件中
	      echo !m!>>temp.txt
	    )
	)
rem 在单个文件的每一行经过替换操作后，将处理后的文本从temp.txt临时文件剪贴到目标处理文件中(剪贴后临时文件会自动删除)
	move temp.txt !var!
    )
)
pause
复制代码

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
cd /d "%~dp0"
set "output=结果"
md "%output%" 2>nul
powershell -NoProfile -ExecutionPolicy bypass ^
    $files=@(dir *.txt^|?{$_ -is [System.IO.FileInfo]});^
    for($i=0;$i -lt $files.length;$i++){^
        write-host $files[$i].Name;^
        $text=[IO.File]::ReadAllText($files[$i].FullName, [Text.Encoding]::UTF8);^
        $newtext=[regex]::replace($text,'-?\d+(?=\.\d+\.\d+)',{param($a);[int]$a.value+2697;});^
        [IO.File]::WriteAllText(('%output%\'+$files[$i].Name), $newtext, [Text.Encoding]::UTF8);^
    };^
    write-host '%info%' -ForegroundColor green;
pause
复制代码

@echo off
setlocal enabledelayedexpansion
set "NewFolder=处理结果"
if not exist "%NewFolder%" (
    md "%NewFolder%"
)
for %%x in (*.txt) do (
    (for /f "tokens=1* delims==" %%a in ('type "%%x"') do (
        set "RawKey=%%a"
        set "TrimKey=!RawKey: =!"
        if "!TrimKey!" equ "birth" (
            call :ChangeYear "%%~a" "%%~b"
        ) else if "!TrimKey!" equ "death" (
            call :ChangeYear "%%~a" "%%~b"
        ) else if "x%%b" neq "x" (
            echo %%a=%%b
        ) else (
            echo %%a
        )
    ))>"%NewFolder%\%%x.txt"
)
goto :eof

:ChangeYear
for /f "tokens=1* delims=." %%h in ("%~2") do (
    set /a CalcYear=%%h+2697
    echo %~1="!CalcYear!.%%i"
)
goto :eof
复制代码

@echo off
setlocal enabledelayedexpansion
set "NewFolder=处理结果"
if not exist "%NewFolder%" (
    md "%NewFolder%"
)
for %%x in (*.txt) do (
    (for /f "tokens=1* delims==" %%a in ('type "%%x"') do (
        set "RawKey=%%a"
        set "TrimKey=!RawKey: =!"
        if "%%b" equ "{" (
            for /f "tokens=1* delims=." %%e in ("%%a") do (
                if "x%%f" neq "x" (
                    call :ChangeKey %%a
                ) else (
                    echo %%a=%%b
                )
            )
        ) else if "!TrimKey!" equ "birth" (
            call :ChangeValue "%%~a" "%%~b"
        ) else if "!TrimKey!" equ "death" (
            call :ChangeValue "%%~a" "%%~b"
        ) else if "x%%b" neq "x" (
            echo %%a=%%b
        ) else (
            echo %%a
        )
    ))>"%NewFolder%\%%x"
)
goto :eof

:ChangeKey
for /f "tokens=1* delims=." %%h in ("%~1") do (
    set /a CalcYear=%%h+2697
    echo   !CalcYear!.%%i={
)
goto :eof

:ChangeValue
for /f "tokens=1* delims=." %%h in ("%~2") do (
    set /a CalcYear=%%h+2697
    echo %~1="!CalcYear!.%%i"
)
goto :eof
复制代码

@echo off
setlocal enabledelayedexpansion
set "NewFolder=处理结果"
if not exist "%NewFolder%" (
    md "%NewFolder%"
)
for %%x in (*.txt) do (
    (for /f "tokens=1* delims==" %%a in ('type "%%x"') do (
        set "RawKey=%%a"
        set "TrimKey=!RawKey: =!"
        set "CheckCurly=%%b"
        if "!CheckCurly:~0,1!" equ "{" (
            for /f "tokens=1* delims=." %%e in ("%%a") do (
                if "x%%f" neq "x" (
                    call :ChangeKey "%%a" "%%b"
                ) else (
                    echo %%a=%%b
                )
            )
        ) else if "!TrimKey!" equ "birth" (
            call :ChangeValue "%%~a" "%%~b"
        ) else if "!TrimKey!" equ "death" (
            call :ChangeValue "%%~a" "%%~b"
        ) else if "x%%b" neq "x" (
            echo %%a=%%b
        ) else (
            echo %%a
        )
    ))>"%NewFolder%\%%x"
)
goto :eof

:ChangeKey
for /f "tokens=1* delims=." %%h in ("%~1") do (
    set /a CalcYear=%%h+2697
    echo   !CalcYear!.%%i=%~2
)
goto :eof

:ChangeValue
for /f "tokens=1* delims=." %%h in ("%~2") do (
    set /a CalcYear=%%h+2697
    echo %~1="!CalcYear!.%%i"
)
goto :eof
复制代码