zaqmlp

<# :
cls
@echo off
rem 存为ANSI编码的bat
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'"
pause
exit
#>
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$enc=New-Object System.Text.UTF8Encoding $False;
$files=@(dir -liter $path -recurse|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
    write-host $files[$i].FullName.substring($path.length);
    $arr=New-Object -TypeName System.Collections.ArrayList;
    $text=[IO.File]::ReadAllLines($files[$i].FullName,$enc);
    for($j=0;$j -lt $text.count;$j++){
        $global:n=1;
        $line=[regex]::replace($text[$j],'\t【',{
            param($m);
            $m.groups[0].value -replace '(?=【)',(($global:n).toString()+'.');
            $global:n++;
        });
        [void]$arr.add($line);
    }
    [IO.File]::WriteAllLines($files[$i].FullName,$arr,$enc);
}
复制代码

zaqmlp

回复 9# lxh623


    哪里不满意，说出来看看，有什么问题也没反馈，让人怎么改？消失多日，直接取消，让人白写吗