WHY

图片看不清

$arr = @'
aaa A=
 A 中国 河北
aaa Av=
 河北人

aaa B=
 B 中国 北京
aaa Bv=
 北京人

aaa C=
 C 美国 纽约
aaa Cv=
 纽约人

aaa D=
 D 日本 东京
aaa Cv=
 东京人

aaa E=
 E 日本 大阪
aaa Dv=
 大阪人

aaa F=
 F 韩国 首尔
aaa Dv=
 首尔人

我是后面的文本, 我是不能被修改的
'@ -split '\r?\n';

$char = [char[]](65..90);
$hash = @{};
$n = 0;

for( $i = 0; $i -lt $arr.Count; $i++ ){
    $m = [regex]::Match( $arr[$i], '^ [A-Z] (\S+)(.*)$' );
    if( $m.Success ){
        $key = $m.Groups[1].Value;
        if( !$hash.ContainsKey($key) ){
            $hash[$key] = $char[$n++];
        }
        $arr[$i] = ' ' + $hash[$key] + ' ' + $key + $m.Groups[2].Value;
    }
}
$arr
复制代码