<# :
cls&echo off
rem 將壹個nc文件裏的指定行內容替換成其他內容
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$oldfile="10A-1.nc";
$newfile="10A-2.nc";
if(-not (test-path -liter $oldfile)){write-host ('"'+$oldfile+'" 未找到');exit;};
$enc=[Text.Encoding]::GetEncoding('GB2312');
$text=[IO.File]::ReadAllLines($oldfile,$enc);
for($i=0;$i -lt $text.length;$i++){
$line=$text[$i].trimend();
if($line -eq "T0 ([平底]JD-6.00)"){
$text[$i]=@("([平底]JD-6.00)","T1 M6","G43H1","M03S18000","M07") -join "`r`n";
}
if($line -eq "T1 ([球頭]JD-6.00)"){
$text[$i]=@("([球頭]JD-6.00)","T2 M6","G43H2","M03S18000","M07") -join "`r`n";
}
}
[IO.File]::WriteAllLines($newfile,$text,$enc);