WHY

$s = @'
ab $( ) :bub.Bub11
- :TA_Fbv "T " * $q$\m.co
中国 ac :bub.Bub65 * a.b
>windows - china * cdef
小 日本 japen :bub.Bub10 ;;c.e
|
ac ${ } :bub.Bub18
<
ZZ :bub.Bub26


#bub Bub10 m ;;1 小日本
我之前序号是10
	  最后是3
#bub Bub


#bub Bub11 m
我之前序号是11
	  最后是1
	#bub Bub 11

#bub Bub18 m ;;6
我之前序号是18
	  最后是4
 #bub Bub 4

#bub Bub65 m ;;
我之前序号是18
	  最后是2
'@

$arr = [Collections.ArrayList](($s -split '(?:\r?\n)+#bub Bub\d+ m')[0] -split '\r?\n'); #上半部分
$count = $arr.Count;
$hash = @{};
$global:n = 0;

forEach( $m In [regex]::Matches($s, '(?im)^#bub Bub(\d+) m(?:(?!^#bub Bub\d+ m)[\s\S])+') ){
    $key = $m.Groups[1].Value;  #数字序号
    $value = $m.Groups[0].Value.Trim("`r`n");
    if( !$hash.Contains($key) ){
        $hash.Add( $key, $value );
    }
}

for( $i = 0; $i -lt $count; $i++ ){
    $m = $arr[$i] -match '^([^:]+):bub\.Bub(\d+)';
    if( $m ){
        $arr[$i] = [regex]::Replace($arr[$i], '(?i)(?<=bub\.Bub)\d+',{return (++$global:n)});
        $key = $matches[2];    #数字序号
        if( $hash.Contains($key) ){
            $str = $hash[$key] -replace '(?<=^#bub Bub)\d+ m.*(?=\r?\n)', ('' + $global:n + ' m ;;' + $matches[1]);
        }else{
            $str = '#bub Bub' + $global:n + ' m ;;' + $matches[1] + "`r`n我是新来的";
        }
        [void]$arr.Add( "`r`n" + $str );
    }
}

$arr
复制代码

WHY

回复 3# meixi


    这个样本与顶楼的样本有什么区别，你自己做比较没？
这个样本中 bub.bub 与 #bub bub 是小写，而顶楼给的样本包含大写。
顶楼给出的样本必须具有代表性，改来改去谁都会烦。

WHY

回复 3# meixi


    已修改

WHY

回复 7# 5i365


    确实，第53行这样改：

$str = $hash[$key] -replace '(?<=^#bub Bub)\d+ m[^\r\n]*', ('' + $global:n + ' m ;;' + $matches[1]);
复制代码

-replace替换运算符中，"."默认可以匹配到\r

WHY

回复 10# 5i365


    你要是对正则感兴趣，建议你多看看MS官方文档。
https://learn.microsoft.com/zh-c ... regular-expressions
网上关于正则的教程良莠不齐，有的甚至是错误的。

多行模式：修改 ^ 和 $ 的行为，^可以匹配每行的开头，$可以匹配\n（不能匹配\r\n）
单行模式：修改 . 的行为（默认情况下，"."匹配除\n以外的任意字符），可以匹配任意字符，等同于[\s\S]

WHY

11楼的链接你打开过没有？答案就在里面。
https://learn.microsoft.com/zh-c ... ons#default-options