        @echo off
        chcp 65001 >nul
        setlocal EnableExtensions DisableDelayedExpansion

        echo 動画ファイル名を日本語のパートタイトルに戻します。
        echo.
        call :rename "1" "1.プロローグ 最終面談、近すぎる面接官"
call :rename "2" "2.職務経歴より、身体の反応が正直なのね♡"
call :rename "3" "3.男の自信をお尻から壊してあげる♡"
call :rename "4" "4.結果連絡は後日、でもお尻の奥には私のザーメンを注ぐわね♡"
        echo.
        echo 処理が完了しました。
        pause
        exit /b

        :rename
        set "PART=%~1"
        set "TARGET=%~2"
        for %%E in (.mp4 .mkv .mov .m4v .webm) do (
            if exist "%TARGET%%%E" (
                echo [SKIP] %TARGET%%%E
                goto :eof
            )
            for %%F in ("%PART%.*%%E") do (
                if exist "%%~fF" (
                    ren "%%~fF" "%TARGET%%%E"
                    echo [OK] %%~nxF ^> %TARGET%%%E
                    goto :eof
                )
            )
        )
        echo [WARN] 対象の動画が見つかりません: %PART%
        goto :eof
