Batcher

回复 13# Wedy

@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
复制代码

Batcher

回复 14# Wedy

公元1年的时间貌似都没转成功

你给个测试用例，我试试看。

(我来问之前特别去看了下正则表达式"[-]{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}"，不知道这个不能用在批处理中吗？

findstr命令不支持这种复杂的正则，需要引入第三方命令才行。

Wedy

这个只是随便从文件中搞了几个有人物也有头衔的，我试了你新给的，有一个500+Kb人物文本那里矿口提示云幸福不存在，这个有上传限制，我给不了大文本。不知道是不是这个文件中有什么关键字之类的让bat命令停止了。格式有点问题(会把时间空一格出来，是因为公元前-号的原因？强迫症对不整齐感觉不舒服)。类似头衔以1.1.1日的时间没有被转，包括改成了180年之类的也无效管理方便就看，不方便就算了。我主要是不想对每一个年份进行计算，毕竟那个容易出错，有些许地方有问题，是可以接受的，发现了就改，没发现就算了