@echo off
setlocal enabledelayedexpansion
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"
        set "str=!str:C0_E0,1,0,0=C0_E0,3,0,1!"
        set "str=!str:C0_E0,2,0,0=C0_E0,3,0,1!"
        echo,!str!
    ))>New-%%i
)
pause
复制代码

@echo off &for /f "delims=" %%F in ('dir /b/a-d *rcp^|findstr /irvc:"04t" ') do (
      powershell "(gc '%%F') -replace 'C0_E0,\d,0,0', 'C0_E0,3,0,1' ">"%%~nF.new%%~xF"
)
pause&exit/b
复制代码

@echo off & powershell "dir *.rcp -exclude '*04T*'|%%{((gc $_.name) -replace 'C0_E0,\d,0,0', 'C0_E0,3,0,1')|sc ($_.basename+'.new.rcp')}"
pause&exit/b
复制代码

@echo off
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /a-d *.rcp ^|find /v "04T"') do (
	(for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<"%%i"') do (
		if "%%b" equ "" (
			echo=
		) else (
			set str=%%b
			setlocal enabledelayedexpansion
			set str=!str:C0_E0,1,0,0=C0_E0,3,0,1!
			echo=!str:C0_E0,2,0,0=C0_E0,3,0,1!
			endlocal
		)
	))>"%%~ni_2%%~xi"
)
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
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"
        set "str=!str:C0_E0,3,0,1=`!"
        if "!str!"=="%%j" (
            echo,%%j
        ) else (
            for /f "tokens=1,2* delims=`" %%a in ("!str!") do (
                echo,%%a!a1!%%b!a2!%%c
            )
        )
    ))>New-%%i
)
pause
复制代码

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

@if(0)==(0) echo off
for %%i in (11 12 13 21 22 23 31 32 33) do set _%%i=1
:Loop
set /p "Input=Input a Number:"
setlocal enabledelayedexpansion
if not defined _!Input! (
    endlocal
    echo;Input Error
    goto :Loop
) else (
    endlocal
    dir /b /a-d *.rcp | findstr /i /v "04T" | cscript -nologo -e:jscript "%~f0" "%Input%"
)
pause & exit
@end

var arg = WSH.Arguments(0);
var arr = ['C0_E0,1,0,0', 'C0_E0,2,0,0', 'C0_E0,3,0,1'];
var reg = new RegExp('C0_E0,[123],0,[01]', 'ig');
var fso = new ActiveXObject('Scripting.FileSystemObject');

var replacement = function(s0) {
    var i = arg.substr(n, 1);
    n += 1;
    return n<=2 ? arr[i-1] : s0;  //replace only 2 times
}

while (!WSH.StdIn.AtEndOfStream) {
    var n = 0;
    var f = WSH.StdIn.ReadLine();
    var objFile = fso.OpenTextFile(f, 1);
    var s = objFile.ReadAll();
    objFile.Close();
    if (s.split(reg).length > 2) {
        s = s.replace(reg, replacement);
        fso.OpenTextFile(f + '.Log', 2, 1).Write(s);
    }
}
复制代码

@echo off
setlocal enabledelayedexpansion
:a
set /p n=Please Input a number: 
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,Input error!
    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 ('findstr /imr "C0_E0,.*C0_E0," *.RCP^|findstr /iv "04T"') do (
    (for /f "delims=" %%j in ('type "%%i"') do (
        set "str=%%j"
        for %%k in (%Groups%) do set "str=!str:%%~k=%Sub%!"
        for /f "tokens=1,2* delims=%Sub%" %%a in ("!str!") do (
            if not "%%c"=="" (
                echo,%%a!a1!%%b!a2!%%c
            ) else (
                echo,%%j
            )
        )
    ))>"New-%%i"
)
pause
复制代码