标题: 请求删除此帖,废弃无用了请求删除此帖,废弃无用了 [打印本页]
作者: cl2039996 时间: 2022-3-27 18:27 标题: 请求删除此帖,废弃无用了请求删除此帖,废弃无用了
本帖最后由 cl2039996 于 2022-5-8 16:41 编辑
请求删除此帖,废弃无用了请求删除此帖,废弃无用了请求删除此帖,废弃无用了请求删除此帖,废弃无用了
作者: zaqmlp 时间: 2022-3-27 21:40
这个起码20元
作者: zaqmlp 时间: 2022-3-27 21:52
本帖最后由 zaqmlp 于 2022-4-14 11:22 编辑
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);
- }
- }
复制代码
作者: cl2039996 时间: 2022-3-27 22:02
回复 2# zaqmlp
遵命,大佬,这个20元和上个帖子的25元我待会一起打给您。
每次看到您及时的快速的写除代码,我真是非常开心。您做事不拖延。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |