@echo off
cd /d "%~dp0"
set /p n=input:
set list=0001
for /f "delims=" %%i in ('dir /b /a-d *.rcp ^|find /v "04T"') do (
	setlocal
	for /f "tokens=1* delims=:" %%a in ('findstr /n "C0_E0,[1-3],0,[0-1].*C0_E0,[1-3],0,[0-1]" ^< "%%i"') do (
		set #%%a=1
	)
	(for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^< "%%i"') do (
		if defined #%%a (
			set str=%%b
			setlocal enabledelayedexpansion
			set str2=!str:*C0_E0,=!
			set str2=!str2:~5!
			call set str1=%%str:!str2!=%%
			for %%x in ("C0_E0,1,0,0" "C0_E0,2,0,0" "C0_E0,3,0,1") do (
				call set str1=%%str1:%%~x=C0_E0,!n:~0,1!,0,!list:~%n:~0,1%,1!%%
				call set str2=%%str2:%%~x=C0_E0,!n:~1,1!,0,!list:~%n:~1,1%,1!%%
			)
			echo !str1!!str2!
			endlocal
		) else (
			echo=%%b
		)
	)) > "%%~ni_2%%~xi"
	endlocal
)
pause
复制代码

@echo off
set /p n=Please Input No. :
setlocal enabledelayedexpansion
set x1=C0_E0,1,0,0
set x2=C0_E0,2,0,0
set x3=C0_E0,3,0,1
set Groups="C0_E0,1,0,0" "C0_E0,2,0,0" "C0_E0,3,0,1"
set Sub=`
for /l %%i in (1,1,3) do (
    for /l %%j in (1,1,3) do (
        set m=%%i%%j
        if !n! equ !m! (
            set a1=!x%%i!
            set a2=!x%%j!
        )
    )
)
for /f "delims=" %%i in ('dir /b /a-d *.RCP^|findstr /v "04T"') do (
    (for /f "delims=" %%j in ('type "%%i"') do (
        set "str=%%j"
        for %%k in (%Groups%) do set "str=!str:%%~k=%Sub%!"
        if "!str!"=="%%j" (
            echo,%%j
        ) else (
            for /f "tokens=1,2* delims=%Sub%" %%a in ("!str!") do (
                echo,%%a!a1!%%b!a2!%%c
            )
        )
    ))>New-%%i
)
pause
复制代码

@echo off &setlocal &if "%~2"=="" exit/b
set "v1=_C0_E0,%~1,0,0,"
if "%~2"=="3" (set "v2=_C0_E0,%~2,0,1,") else (set "v2=_C0_E0,%~2,0,0,")
powershell "dir *.rcp -exclude '*04T*'|%%{ $s=(gc $_.name); [regex]$p='_C0_E0,\d,0,\d,'; $s=$p.replace($s, '%v1%', 1); $s=$p.replace($s, '%v2%', 1); sc ($_.basename+'.new.rcp') $s }"
endlocal&pause&exit/b
复制代码

@echo off &setlocal &if "%~2"=="" exit/b
if "%~1"=="3" (set "v1=_C0_E0,3,0,1,") else (set "v1=_C0_E0,%~1,0,0,")
if "%~2"=="3" (set "v2=_C0_E0,3,0,1,") else (set "v2=_C0_E0,%~2,0,0,")
powershell "dir *.rcp -exclude '*04T*'|%%{ $s=(gc -raw $_.name); $p=($s -replace '_C0_E0,\d,0,\d,', '◆').split('◆'); $s=$p[0]+'%v1%'+$p[1]+'%v2%'+$p[2]; sc ($_.basename+'.new.rcp') $s.trim() }"
endlocal&pause&exit/b
复制代码

@echo off
:a
set /p n=Please Input No. :
setlocal enabledelayedexpansion
set x1=C0_E0,1,0,0
set x2=C0_E0,2,0,0
set x3=C0_E0,3,0,1
set a=1
for /l %%i in (1,1,3) do (
    for /l %%j in (1,1,3) do (
        set m=%%i%%j
        if !n! equ !m! (
            set a=
            set a1=!x%%i!
            set a2=!x%%j!
        )
    )
)
if defined a (
echo,Please Input again
goto :a
)
set Groups="C0_E0,1,0,0" "C0_E0,2,0,0" "C0_E0,3,0,1"
set Sub=`
for /f "delims=" %%i in ('dir /b /a-d *.RCP^|findstr /v "04T"') do (
    (for /f "delims=" %%j in ('type "%%i"') do (
        set "str=%%j"
        for %%k in (%Groups%) do set "str=!str:%%~k=%Sub%!"
        if "!str!"=="%%j" (
            echo,%%j
        ) else (
            for /f "tokens=1,2* delims=%Sub%" %%a in ("!str!") do (
                echo,%%a!a1!%%b!a2!%%c
                if "%%c"=="" set a=1
            )
        )
    ))>"New-%%i"
if defined a del "New-%%i"
)
pause
复制代码

<# :
@echo off
PowerShell ". ([ScriptBlock]::Create((gc -Literal '%~f0') -join \"`r`n\")) '%~dp0'"
pause & exit
#>

While (($myInput = Read-Host 'Input a Number') -notMatch '^[123][123]$') {
    echo 'Input Error!';
}

$HashTab = @{'1'='C0_E0,1,0,0,'; '2'='C0_E0,2,0,0,'; '3'='C0_E0,3,0,1,'}
$reg     =[regex]'(?i)C0_E0,[123],0,[01],';
$replace = {
    $key = $myInput.SubString($global:n, 1);
    $global:n += 1;
    $HashTab[$key];
}

forEach ($file In (dir -Literal $args[0] -Filter *.rcp)) {
    If ($file -is [IO.FileInfo] -and $file.BaseName -notMatch '04T') {
        $global:n = 0;
        $s = (gc -Literal $file.FullName -ReadCount 0) -join "`r`n";
        If ($reg.Matches($s).Count -gt 1) {
            $s = $reg.Replace($s, $replace, 2);   #Replace Only 2 Times
            sc -Literal $file.FullName -Value $s;
        }
    }
}
复制代码

if not "%%c"=="" set a=1
if not defined a del "New-%%i"
复制代码