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

cl2039996 · 发表于 2022-3-18 22:27:07

本帖最后由 cl2039996 于 2022-5-8 16:29 编辑

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

zaqmlp · 发表于 2022-3-19 10:06:44

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
#>
$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;
[System.Collections.ArrayList]$filelist=@();
for($i=0;$i -lt $files.length;$i++){
$text=[IO.File]::ReadAllText($files[$i].FullName, $enc);
$m=[regex]::match($text, '(?i)\{\\pos$\d+ ?, ?\d+$\}');
if($m.Success){
[void]$filelist.add($files[$i]);
write-host ($m.groups[0].value+' '+$files[$i].FullName.Substring($current.FullName.length));
}
}
if($filelist.Count -ge 1){
write-host '1、修改位置标签';
write-host '2、清除位置标签';
$choice1='';
while($choice1 -notmatch '^(1|2)$'){
$choice1=read-host '输入数字序号并回车';
}
$pos='';
if($choice1 -eq '1'){
$x_value=read-host '输入x坐标并回车';
$y_value=read-host '输入y坐标并回车';
if(($x_value -notmatch '^\d+$') -or ($y_value -notmatch '^\d+$')){
write-host '输入有误';exit;
}
$pos='{\pos('+$x_value+','+$y_value+')}';
}
clear-host;
for($i=0;$i -lt $filelist.Count;$i++){
write-host $filelist[$i].FullName.Substring($current.FullName.length);
$text=[IO.File]::ReadAllText($filelist[$i].FullName, $enc);
$text=$text -replace '\{\\pos$\d+ ?, ?\d+$\}', $pos;
[IO.File]::WriteAllText($filelist[$i].FullName, $text, $enc);
}
}else{
$pos='';
$x_value=read-host '输入x坐标并回车';
$y_value=read-host '输入y坐标并回车';
if(($x_value -notmatch '^\d+$') -or ($y_value -notmatch '^\d+$')){
write-host '输入有误';exit;
}
$pos='{\pos('+$x_value+','+$y_value+')}';
for($i=0;$i -lt $files.length;$i++){
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])){
if(($brr[2] -notmatch '\{\\an\d+\}')){
$brr[2]=$pos+$brr[2];
}
}
$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-19 16:50:32

本帖最后由 cl2039996 于 2022-3-19 16:53 编辑

回复 2# zaqmlp

您好，经测试，各项功能符合预期，非常感激！可是，有一个棘手的问题是：

执行bat之后，pos位置标签完美添加上了，可是意外发现，所有srt中的中文字幕全部变成乱码，如下面红色所示：
1
00:00:00,000 --> 00:00:03,360
{\pos(300,400)}and then, all of a sudden<\b>, out of nowhere, they just...
Ȼ��ͻȻ֮�䣬 ��֪�Ӻζ��������Ǿ͡���

2
00:00:00,000 --> 00:00:03,360
{\an9}Biff and Chip - Series 1- 5. A Sticky Situation_batch<\b>

请求大佬给修一下，您之前写的各种bat没有出现这种现象。修复bug后红包立刻转给您

zaqmlp · 发表于 2022-3-19 16:55:36

本帖最后由 zaqmlp 于 2022-3-19 17:03 编辑

回复 3# cl2039996
以后提需求时打包测试文件用网盘分享出来

$enc=New-Object System.Text.UTF8Encoding $False;
改为
$enc=[Text.Encoding]::GetEncoding('GB2312');

cl2039996 · 发表于 2022-3-19 17:27:37

回复 4# zaqmlp

遵命大佬，是我着急了，以后我上传供测试的文件。

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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

浏览过的版块