[文本处理] 批处理怎样在包含某字符串的行将指定数值运算后进行替换？

levelintt

如下面例子，1个文件里有多行这样的文本，这只是其中1行，要把包含$CC32字符的行中的$BB0和$HH之间的数字减去600，然后替换掉原来的数字。
$K$AAZYGG1105  $WA    $F011   $F051   $F071   $F111   $ID00003301000101      $DD0$SS01$P01183320      $P05183320      $P07183320      $P11183320      $P13            $P15            $P17            $CC32$CF14     $BB074400$HH204700$WW000$V1000000
完成后是下面这样的：
$K$AAZYGG1105  $WA    $F011   $F051   $F071   $F111   $ID00003301000101      $DD0$SS01$P01183320      $P05183320      $P07183320      $P11183320      $P13            $P15            $P17            $CC32$CF14     $BB073800$HH204700$WW000$V1000000
请各位大佬们、老师们帮忙，马上要临近春节了，祝各位身体健康！工作顺利！在新的一年里事业蒸蒸日上，财运亨通，心想事成！

flashercs

<#*,:&cls
@echo off
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy RemoteSigned -Command ". ([ScriptBlock]::Create((Get-Content -LiteralPath \"%~0\" -ReadCount 0 | Out-String ))) "
pause
exit /b
#>
$evaluator = [System.Text.RegularExpressions.MatchEvaluator] {
  param([System.Text.RegularExpressions.Match]$m)
  ([long]$m.Value - 600).ToString()
}
$re = [regex]'(?i)(?<=\$BB0)\d+(?=\$HH)'
Get-ChildItem -Path .\*.txt | ForEach-Object {
  if (-not $_.psiscontainer) {
    $lines = [System.IO.File]::ReadAllLines($_.FullName)
    for ($i = 0; $i -lt $lines.Count; $i++) {
      if ($lines[$i] -match '\$CC32') {
        $lines[$i] = $re.Replace($lines[$i], $evaluator)
      }
    }
    [System.IO.File]::WriteAllLines($_.FullName,$lines)
  }
}
复制代码