[文本处理] 批处理如何根据关键字复制指定段落生成新文档？

<#*,:&cls
@echo off
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy RemoteSigned -Command ". ([ScriptBlock]::Create((Get-Content -LiteralPath \"%~0\" -ReadCount 0 | Out-String ))) "
exit /b
#>
# 源文件
$srcfile = "src.txt"
# 新文件
$dstfile = "dst.txt"
# 查找文本
$search = "0x00"

$encoding = [System.Text.Encoding]::Default
$txt = [System.IO.File]::ReadAllText($srcfile, $encoding)
$lines = $txt -split '(\r\n){2,}' | ForEach-Object {
  if ($_.Contains($search)) {
    ''
    $_
    
  }
}
[System.IO.File]::WriteAllLines($dstfile, $lines, $encoding)
复制代码

<#*,:&cls
@echo off
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy RemoteSigned -Command ". ([ScriptBlock]::Create((Get-Content -LiteralPath \"%~0\" -ReadCount 0 | Out-String ))) "
exit /b
#>
# 源文件
$srcfile = "src.txt"

$encoding = [System.Text.Encoding]::Default
$txt = [System.IO.File]::ReadAllText($srcfile, $encoding)
$lines = $txt -split '(\r\n){2,}'
while ($true) {
  try {
    $search = Read-Host -Prompt '请输入搜索内容(直接回车退出脚本)'
    if ($search -eq [string]::Empty) { break }
    $result = $lines | ForEach-Object {
      if ($_.Contains($search)) {
        ''
        $_
      }
    }
    if ($null -eq $result) {
      Write-Host '未找到内容' -ForegroundColor Red
    } else {
      [System.IO.File]::WriteAllLines($search, $result, $encoding)
    }
  } catch {
    $_ | Write-Host -ForegroundColor Red
  }
}
复制代码

$lines = get-content -path src.txt -delimiter "`r`n`r`n"
复制代码