WHY

test.bat

@echo off
PowerShell "$h=@{};$s=[regex]::Replace([IO.File]::ReadAllText('a.txt',[Text.Encoding]::Default),'(?<=\bname=\")[^^\"]+(?=\")',{param($m);$a=$m.Value;if(!$h.ContainsKey($a)){$x=[Math]::floor($global:n/26);if(!$x){$c=''}else{$c=[char](64+[int]$x)};$h[$a]=$c+[char](65+$global:n++%%26)};$h[$a]});$s=[regex]::Replace($s, '(?^<=\")[^\"@#]*[@#][^^\"]+(?=\")',{param($m);$a=$m.Value;forEach($k In $h.Keys){$a=$a.Replace('@'+$k,'@'+$h[$k]).Replace('#'+$k,'#'+$h[$k])};$a});sc b.txt -Value $s -Enc utf8"
pause
复制代码

变量名范围：A~Z、AA~ZZ，应该够用

WHY

回复 13# smss


    我测试没有发现你所说的问题。请分别举例说明问题1，问题2

WHY

回复 19# smss


    有可能变量名超出26个英文字母范围，变成非字母变量名了，已修改。

WHY

回复 23# smss


    请举例说明：XML中含有数组的代码被替换后无法工作。
另外，我这里测试中文字符没有乱码，把 [Text.Encoding]::Default 改成 [Text.Encoding]::UTF8 试试

WHY

回复 25# smss


1. "XML中含有数组的代码被替换后无法工作" 这个问题你没有举例说明；
2. 中文字符乱码问题是否解决你没有交代；
3. 你应该事先总结好规律，哪些改哪些不改，怎么改，事先想好。

WHY

$global:n = 0; $Hash = @{};
$str = [IO.File]::ReadAllText('a.txt',[Text.Encoding]::Default);

#修改name属性的值，如果name属性值以music_prev或music_display或music_next等开头，或者节点名为Extra，则不修改
#如果command与target同时出现，command="play"，则修改target属性值，
$reg1 = '(?<=<(?!Extra\s)[^<>]*\sname=")(?!music_(?:prev|display|next|play|pause))[^"]+(?=")';
$reg2 = '(?<=\starget=")[^"]+(?="[^<>]*\scommand="play")|(?<=\scommand="play"[^<>]*\starget=")[^"]+(?=")';

$str = [regex]::Replace($str, $reg1 + '|' + $reg2, {
    param($m);
    $key = $m.Value;
    if( !$Hash.ContainsKey($key) ){
        $x = [Math]::floor( $global:n / 26 );
        if($x) { $chr1 = [char]( 64 + [int]$x ) } else { $chr1 = '' }
        $Hash[$key] = $chr1 + [char]( 65 + $global:n++ % 26 );
    }
    $Hash[$key];
})

$arrKey = $Hash.Keys | sort -Desc {$_.Length};

#如果属性值包含@#字符，或者属性值以 .animation或.visibility 结尾，则修改
$str = [regex]::Replace($str, '(?<==")([^"@#]*[@#][^"]+|[^"]+(?:\.animation|\.visibility))(?=")', {
    param($m);
    $s = $m.Groups[1].Value;
    forEach( $key In $arrKey ) {
        $s = $s.Replace( '@' + $Key, '@' + $Hash[$Key] );
        $s = $s.Replace( '#' + $Key, '#' + $Hash[$Key] );
        $s = $s.Replace( $Key + '.animation', $Hash[$Key] + '.animation' );
        $s = $s.Replace( $Key + '.visibility', $Hash[$Key] + '.visibility' );
    }
    $s;
})

[IO.File]::WriteAllText('b.txt', $str, [Text.Encoding]::UTF8);

echo 'Done';
[Console]::ReadKey()
复制代码

WHY

回复 32# smss


    已修改，如果还有问题，请其他高手解答。

WHY

回复 50# smss


    在 echo 'Done' 上面，插入三行：

$str = [IO.File]::ReadAllText('c.txt', [Text.Encoding]::Default);
$str = [regex]::Replace($str, '(?<=\sid=")[^"]+(?=")', {param($m); if($Hash[$m.Value]){$Hash[$m.Value]}else{$m.Value}});
[IO.File]::WriteAllText('d.txt', $str, [Text.Encoding]::UTF8);
复制代码