[文本处理] [已解决]批处理如何根据输入的字符串替换文本里固定行中的固定字符后面4位

@echo off
Powershell -Command "$flag = $false; $sb = $ExecutionContext.InvokeCommand.NewScriptBlock((Get-Content -LiteralPath \"%~0\" | ForEach-Object { if ($flag) { $_ }else { if ($_ -match '#+Powershell#+') { $Script:flag = $true } } }) -join \"`r`n\"); & $sb "
pause
exit /b
########Powershell########
# XML文件路径
$xmlpath = "E:\test\new folder\zuma\1.xml"
# 计算机名前缀
$prefix = "PCZF"
function MakeDOM {
  param (
    
  )
  $dom = try {
    New-Object -ComObject 'Msxml2.DOMDocument.6.0'
  }
  catch {
    try {
      New-Object -ComObject 'Msxml2.DOMDocument.3.0'
    }
    catch {
      try {
        New-Object -ComObject 'Msxml2.DOMDocument'
      }
      catch {
        throw
      }
    }
  }
  $dom.async = $false
  $dom.validateOnParse = $false
  $dom.resolveExternals = $false
  $dom.setProperty('AllowDocumentFunction', $false)
  $dom.setProperty('AllowXsltScript', $false)
  $dom.setProperty('MaxElementDepth', 256)
  $dom.setProperty('ProhibitDTD', $true)
  $dom.setProperty('SelectionLanguage', 'XPath')
  return $dom
}

function parseError {
  param(
    $dom
  )
  $myErr = $dom.parseError
  if ($myErr.errorCode -ne 0) {
    Write-Host -InputObject "XML parse error" -ForegroundColor Red
    Out-Host -InputObject @{
      'reason'  = myErr.reason;
      'code'    = myErr.errorCode.toUIString(16);
      'filepos' = myErr.filepos;
      'line'    = myErr.line;
      'linepos' = myErr.linepos;
      'srcText' = myErr.srcText;
      'url'     = myErr.url
    }
    return $true
  }
  return $false
}
$xmldoc = MakeDOM
try {
  $xmldoc.load($xmlpath) | Out-Null
  if (parseError $xmldoc) {
    throw
  }
  do {
    $dic = $host.UI.Prompt('Modify XML', '请输入替换前和替换后的字符串：', @('From', 'To'))
    try {
      $xmldoc.SelectSingleNode("//ComputerName[text()=`"$prefix$($dic.From)`"]/text()").nodeValue = $prefix + $dic.To
      Write-Host "Success" -ForegroundColor Green
    }
    catch {
      Write-Host "Failed" -ForegroundColor Green
    }
    $choice = $host.UI.PromptForChoice('继续修改', '是否继续？', @([System.Management.Automation.Host.ChoiceDescription]::new('Y', 'Yes'), [System.Management.Automation.Host.ChoiceDescription]::new('N', 'No')), 0)
  } until ($choice)

  $xmldoc.save($xmlpath)
}
catch {
  
}
finally {
  [System.Runtime.InteropServices.Marshal]::ReleaseComObject($xmldoc) | Out-Null
  Remove-Variable -Name xmldoc
  [gc]::collect()
  [gc]::WaitForPendingFinalizers()
}
复制代码

True

Modify XML
请输入需要替换的字符串：
From: 8888
To: 3333
在此对象上找不到属性“nodeValue”。请确认该属性存在并且可设置。
所在位置 行:35 字符: 60
+ ... .SelectSingleNode("//ComputerName[text()=`"$prefix$($dic.From)`"]/tex ...
+                                                         ~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) []，RuntimeException
    + FullyQualifiedErrorId : PropertyNotFound

请按任意键继续. . .
复制代码

SetLocal EnableDelayedExpansion
 set "component="&&for /f "delims=" %%i in ('type "1.txt"')do if /i "%%i"=="        </component>" (set "component=True")else (
  if defined component (>>".\PCZFxxxx.xml" echo,%%i)
 )
 for /f "delims=" %%i in ('type "1.txt"')do if /i "%%i"=="        </component>" (
  for /l %%n in (0,1,9999)do (set "#=0000%%n"
   >".\PCZF!#:~-4!.xml" (
    call:1 PCZF!#:~-4!
    type ".\PCZFxxxx.xml"
   )
  )
 )
del/q ".\PCZFxxxx.xml"
pause
goto:eof
:1
echo,^<component name="Microsoft"^>
echo,            ^<ComputerName^>%*^</ComputerName^>
echo,            <TimeZone^>China Standard time^</TimeZone^>
echo,        ^</component^>
goto:eof
复制代码

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
cd /d "%~dp0"
set "infile=1.xml"
set "outfile=2.xml"
set /p input=输入编号:
for /f "delims=:" %%a in ('findstr /n "<ComputerName>" "%infile%"') do set #%%a=1
(for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%infile%"') do (
    if defined #%%a (
        echo;            ^<ComputerName^>PCZF%input%^</ComputerName^>
    ) else echo;%%b
))>t.t
move /y t.t "%outfile%"
echo;%info%
pause
复制代码

@echo off&setlocal enabledelayedexpansion
ren abc.xml abc.txt
set /p pcname=Name:
for /f "delims=" %%a in (abc.txt) do (
   set /a num+=1
   if !num!==88 (echo "            <ComputerName>!pcname!</ComputerName>") else echo %%a
)>>abc.xml
del  abc.txt
pause
复制代码

"            <ComputerName>8888</ComputerName>"
复制代码

@echo off
set "xmlfile=%~dp01.xml"
set /p input=输入编号:
for /f "delims=:" %%a in ('findstr /n "<ComputerName>" "%xmlfile%"') do set #%%a=1
for /f "tokens=1* delims=:" %%a in ('"2>nul,findstr /n .* "%xmlfile%"&&<nul,>"%xmlfile%",set /p="') do (
  if defined #%%a (
        >>"%xmlfile%",echo,            ^<ComputerName^>PCZF%input%^</ComputerName^>
    ) else >>"%xmlfile%",echo,%%b
)
pause
exit /b
复制代码

@echo off&setlocal enabledelayedexpansion
ren abc.xml abc.txt
set /p pcname=Name:
for /f "delims=" %%a in (abc.txt) do (
   set /a num+=1
   if !num!==88 (echo             ^<ComputerName^>PCZF!pcname!^</ComputerName^>) else echo %%a
)>>abc.xml
del  abc.txt
pause
复制代码

$enter =Read-Host "输入序号";
$f ="$(gl)\a.xml";
[xml]$file =gc $f -ReadCount 0;
$file.component.ComputerName='FCZF'+$enter;
$file.Save($f);
cmd /c pause
复制代码