data:
  '0000':
    size: [500, 500]
    skel:
    - - [172, 127, 1]
      - [296, 85, 1]
    - - [115, 134, 1]
      - [321, 123, 0]
      - [138, 431, 1]
    - - [187, 199, 1]
      - [295, 166, 1]
    - - [321, 135, 1]
      - [321, 123, 0]
      - [314, 223, 1]
    - - [166, 272, 1]
      - [342, 229, 1]
    - - [287, 256, 1]
      - [247, 317, 1]
    - - [146, 351, 1]
      - [404, 296, 1]
  '2000':
    size: [500, 500]
    skel:
    - - [225, 81, 1]
      - [369, 47, 1]
    - - [170, 78, 1]
      - [173, 363, 1]
    - - [210, 159, 1]
      - [365, 125, 1]
    - - [365, 125, 1]
      - [343, 190, 1]
    - - [229, 223, 1]
      - [376, 210, 1]
    - - [302, 228, 1]
      - [273, 277, 1]
    - - [193, 304, 1]
      - [479, 299, 1]
  '3001':
    size: [500, 500]
    skel:
    - - [175, 99, 1]
      - [348, 70, 1]
    - - [146, 112, 1]
      - [155, 388, 1]
    - - [187, 199, 1]
      - [327, 166, 1]
    - - [360, 158, 1]
      - [338, 226, 1]
    - - [179, 264, 1]
      - [370, 234, 1]
    - - [286, 263, 1]
      - [303, 316, 0]
      - [269, 305, 1]
    - - [173, 331, 1]
      - [303, 316, 0]
      - [425, 310, 1]
复制代码

$n = 2;  #删除第2个段落
$str = [IO.File]::ReadAllText('1.txt', [Text.Encoding]::Default);
$arr = $str -split '(?<=skel:)';
$Len = $arr.Count;
for($i=0; $i -lt $Len; $i++) {
    $m = $arr[$i] -split '(?<=- - \[-?\d+, -?\d+, 1](?:(?!- - \[)[\s\S])*- \[-?\d+, -?\d+, 1])';
    if($m.Count -gt $n) {
        $m[$n-1] = ''; 
        $arr[$i] = $m -join '';
    }
}
[IO.File]::WriteAllText('2.txt', $arr -join '', [Text.Encoding]::Default);
复制代码

$n, $k = 4, 2;   #第4个段落下移2段
$str = [IO.File]::ReadAllText('1.txt', [Text.Encoding]::Default);
$arr = $str -split '(?<=skel:)';
$Len = $arr.Count;
for($i=0; $i -lt $Len; $i++) {
    $m = $arr[$i] -split '(?<=- - \[-?\d+, -?\d+, 1](?:(?!- - \[)[\s\S])*- \[-?\d+, -?\d+, 1])';
    if($m.Count -gt ($n+$k)) {
        $m[$n+$k-1] += $m[$n-1];
        $m[$n-1] = '';
        $arr[$i] = $m -join '';
    }
}
[IO.File]::WriteAllText('2.txt', $arr -join '', [Text.Encoding]::Default);
复制代码

$n, $k = 4, 2;   #第4个段落上移2段
$str = [IO.File]::ReadAllText('1.txt', [Text.Encoding]::Default);
$arr = $str -split '(?<=skel:)';
$Len = $arr.Count;
for($i=0; $i -lt $Len; $i++) {
    $m = $arr[$i] -split '(?<=- - \[-?\d+, -?\d+, 1](?:(?!- - \[)[\s\S])*- \[-?\d+, -?\d+, 1])';
    if($m.Count -gt $n -and $n -gt $k) {
        $m[$n-$k-1] = $m[$n-1] + $m[$n-$k-1];
        $m[$n-1] = '';
        $arr[$i] = $m -join '';
    }
}
[IO.File]::WriteAllText('2.txt', $arr -join '', [Text.Encoding]::Default);
复制代码

@Powershell "& {[ScriptBlock]::Create("'#' + ([io.file]::ReadAllText('%~f0',[text.encoding]::Default))").Invoke()}" & pause & exit
<#
    sid:每节的段编号
    offset:置后N段设置N,前置N段设置为-N,0为删除sid指定的段
#>
$sid=3;#段落编号
$offset=2;#偏移距离,正数为后移,负数为前移,0为删除

#===================================
$files=dir *.txt -Recurse;
foreach($txt_file in $files)
{


    $text = type $txt_file -ReadCount 0;
    [System.Collections.ArrayList] $result=@();
    [System.Collections.ArrayList] $data=@();
    [System.Collections.ArrayList] $passage=@();
    $count=$text.Count;
    $counter=0;
    while($counter -le $count)
    {
        $line=$text[$counter++];

        if($line -notmatch '-')
        {
            if($passage)
            {
                [void]$data.Add($passage);
                $passage=@();
            }

            if($data)
            {
                $val=$data[$sid-1];
                switch($offset)
                {
                    0 {$data.RemoveAt($sid-1);break;}
                    default {$data.RemoveAt($sid-1);$data.Insert($sid+$offset-1,$val);}
                }
                [void] $result.Add($data);
                $data=@();
            }
            [void] $result.Add($line);
        
        }
    
        elseif($line -match '- -')
        {
            if($passage)
            {
                [void]$data.Add($passage);
                $passage=@();
            }
        
            [void] $passage.Add($line);
        
            continue;
        }
        else
        {
            [void] $passage.Add($line);
        
            continue;
        }   
    }
    [System.Collections.ArrayList] $output=@();
    foreach($item in $result)
    {
        
        foreach($idata in $item)
        {
            foreach($ipassage in $idata)
            {

                [void] $output.Add($ipassage)
            }
        }
        
    }
    [io.file]::WriteAllLines($txt_file,$output,[text.encoding]::Default);
}
复制代码