[文本处理] 求助BAT文本处理-有规律、删除指定段、移动段落位置

40252492

各位大佬好，我在工作中遇到了一点问题，不用慌，问题很大，慌也没用！
这边有大量的文档出现了故障，但是好在内容有规律，拜托大佬帮帮忙啦！谢谢~
【功能
1、将文档内第n段内容 删除
2、将文档内第n段内容 提前/置后n段
【内容说明
===段落定义：
1、【    - - [】开头【, 1]】结尾的行 是段落的开头行（必备）
2、【      - [】开头【, 0]】结尾的行 是段落的中间行（不全都有）
3、【      - [】开头【, 1]】结尾的行 是段落的结尾行（必备）
===文档特征：
1、每个【    skel:】之后是一节，是需要处理的文本，每节有多段，每节的段落总数相同
2、段落中[A, B, C]内的数字 必然有3个，A和B的范围是-1至500，C是0或1
【内容展示

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]
复制代码

【图例说明
操作：将文档内第3段内容 提前1段（还需要置后功能）
谢谢！！

yhcfsr

回复 7# 40252492

不用客气.解决了的话,就结贴评分,有能力的赞助下论坛

40252492

回复 6# yhcfsr


    谢主隆恩！！！

yhcfsr

回复 5# 40252492
保存为bat文件,放在处理文件目录中.
测试前务必备份文件

@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);
}
复制代码

40252492

回复 4# yhcfsr


    十分感谢您的指导，已修改
【每个skel:内的段是单独编号
比如总段落数是7，每个skel:内都是1-7段

yhcfsr

每个skel:内的段是单独编号呢,还是所有skel:的段是统一连续编号?

WHY

$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);
复制代码

xczxczxcz

你搞一个正确的段落排序让后面的大神看。能用图片说清的就少用文字。