请求删除此帖，废弃无用了请求删除此帖，废弃无用了

cl2039996

请求删除此帖，废弃无用了请求删除此帖，废弃无用了请求删除此帖，废弃无用了请求删除此帖，废弃无用了

cl2039996

回复 2# zaqmlp


    遵命，大佬，这个20元和上个帖子的25元我待会一起打给您。
每次看到您及时的快速的写除代码，我真是非常开心。您做事不拖延。

zaqmlp

bat存为ANSI/GB2312编码

<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
set "current=%cd%"
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
pause
exit
#>
$face1="思源黑体 CN Bold";
$face2="思源黑体 CN Bold";
$size="25px";

$current=get-item -literal $env:current;
$files=@(dir -literal $current.FullName -recurse|?{($_.Extension -eq '.srt') -and ($_ -is [System.IO.FileInfo])});

$enc=New-Object System.Text.UTF8Encoding $False;

write-host '1、添加';
write-host '2、清除';
$choice='';
while($choice -notmatch '^(1|2)$'){
    $choice=read-host '输入数字序号并回车';
}

if($choice -eq '1'){
    for($i=0;$i -lt $files.length;$i++){
        $text=[IO.File]::ReadAllText($files[$i].FullName, $enc);
        write-host $files[$i].FullName.Substring($current.FullName.length);
        [System.Collections.ArrayList]$newtext=@();
        $oldtext=[IO.File]::ReadAllText($files[$i].FullName, $enc);
        $arr=$oldtext.trim() -split '[\r\n]{3,}';
        for($j=0;$j -lt $arr.length;$j++){
            $brr=$arr[$j] -split '[\r\n]+';
            if(-not [string]::IsNullOrEmpty($brr[2])){
                $brr[2]='<font face="'+$face1+'"><font size="'+$size+'">'+$brr[2]+'</font></font>';
            }
            if(-not [string]::IsNullOrEmpty($brr[3])){
                $brr[3]='<font face="'+$face2+'"><font size="'+$size+'">'+$brr[3]+'</font></font>';
            }
            $line=$brr -join "`r`n";
            [void]$newtext.add($line);
        }
        [IO.File]::WriteAllText($files[$i].FullName, $($newtext -join "`r`n`r`n"), $enc);
    }
}

if($choice -eq '2'){
    for($i=0;$i -lt $files.length;$i++){
        $text=[IO.File]::ReadAllText($files[$i].FullName, $enc);
        write-host $files[$i].FullName.Substring($current.FullName.length);
        [System.Collections.ArrayList]$newtext=@();
        $oldtext=[IO.File]::ReadAllText($files[$i].FullName, $enc);
        $arr=$oldtext.trim() -split '[\r\n]{3,}';
        for($j=0;$j -lt $arr.length;$j++){
            $brr=$arr[$j] -split '[\r\n]+';
            $findstr='<font face="'+$face1+'"><font size="'+$size+'">';
            if(-not [string]::IsNullOrEmpty($brr[2])){
                if($brr[2].Contains($findstr)){
                    $brr[2]=$brr[2].replace($findstr, '').replace('</font></font>', '');
                }
            }
            $findstr='<font face="'+$face2+'"><font size="'+$size+'">';
            if(-not [string]::IsNullOrEmpty($brr[3])){
                if($brr[3].Contains($findstr)){
                    $brr[3]=$brr[3].replace($findstr, '').replace('</font></font>', '');
                }
            }
            $line=$brr -join "`r`n";
            [void]$newtext.add($line);
        }
        [IO.File]::WriteAllText($files[$i].FullName, $($newtext -join "`r`n`r`n"), $enc);
    }
}
复制代码

zaqmlp

这个起码20元