[问题求助] PowerShell同步修改特定行的序号并排序

$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 );
    }
}
 
$arrCOPY

$s = @'
字式 $( ) :bub.bub1 * fincc.ic
字展 ${ } :bub.bub2 * fincc.ic
-
无环 While :bub.bub3 * fincc.ic
计环 For :bub.bub4 * fincc.ic
条循 While :bub.bub5 * fincc.ic
历循 Foreach :bub.bub6 * fincc.ic
-
果 if :bub.bub7 * fincc.ic
则 else :bub.bub8 * fincc.ic
否果 elseif :bub.bub9 * fincc.ic
关 switch :bub.bub10 * fincc.ic
默值 default :bub.bub11 * fincc.ic
|
到 上 sub :bub.bub13 * fincc.ic
到 下 sub  :bub.bub14 * fincc.ic
转换 单 at :bub.bub15 * fincc.ic
排序 集 at :bub.bub16 * fincc.ic
排序 项 menu :bub.bub17 * fincc.ic
-
建 折叠区 region :bub.bub12 * fincc.ic
-
>dows - Cons * fincc.ic
	Fi win or conl :m "TO_F dow" * target.ico
	-
	Fd ac obj :EA_Mai _m * fincc.ic
<
 
#bub bub1 m
_s.get
_s-"$("
_s+")"
_s.set
 
#bub bub2 m
_s.get
_s-"${"
_s+"}"
_s.set
'@COPY

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

$s = @'
日本
人
'@
$s -replace '.+人', '外国人' #.没有匹配到换行符
 
$s -replace '(?s).+人','外国人' #.匹配到了换行符COPY