[文本处理] 求BAT批量合并中英文字幕的批处理文件

badboy2

在网上下载了英文视频MP4格式及纯英文字幕en.srt.用字幕软件翻译保存成纯中文zh-cn.srt

求P处理文件。求批量合并成中英文字幕chs-en.srt，并删除单独的字幕

badboy2

回复 17# WHY
搞定，非常感谢！

WHY

回复 16# badboy2


    dir 命令有一个参数 /s，你自己加上。

badboy2

回复 7# WHY

您的代码完全满足了我的需求。万分感谢，还有个扩展的问题。这只是其中一节的文件夹，一堂课里面有好几个类似的文件夹。如果要批量修改所有的文件夹内的同相同文件，需要怎么再修改此代码。

badboy2

回复 14# 523066680
谢谢指点，看字面也猜到这两行，无奈真的是门外汉，时间紧，唯有先请教高手们了，也谢谢写这段代码的朋友，慢慢学习理解中！

523066680

回复 12# badboy2

WHY已经在代码里写了删除的部分，但是临时屏蔽了（谨慎起见），可惜有人不看代码

    //fso.DeleteFile(cnFile);
    //fso.DeleteFile(enFile);
复制代码

把 // 去掉就会执行删除操作，第27，28行。

badboy2

回复 10# 523066680
官方有无广告的winRaR版本下载地址，百度下加个key就可以用了

badboy2

回复 1# badboy2
文件夹里只想保留合并后的chs-en.srt及同名原mp4文件，但是所有的原en.srt及zh-cn.srt还在（未被删除），劳烦再补充下代码，再次感谢！

523066680

Perl版

use File::Slurp;
STDOUT->autoflush(1);

my %name;
grep { s/\..+$//; $name{$_} = 1 } glob "*.srt";
grep { merge( $_ ); } sort keys %name;

sub merge
{
    my $name = shift;
    my @zh = read_file( $name .".zh-cn.srt" );
    my @en = read_file( $name .".en.srt" );
    printf "%s\n", $name;

    for my $id ( 0 .. $#en ) {
        $en[$id] .= $zh[$id+1] if ( $en[$id] =~ /\d+:\d+:\d+.*\d+:\d+:\d+/ );
    }
    write_file( "${name}.chs-en.srt", @en );
}
复制代码

523066680

回复 9# badboy2


    接着我就卸载了旧版安装了新的个人免费版，压缩包可以打开了。
并弹出了新版winrar的“中秋买螃蟹送礼”广告，大概有 800x600这么大。

找了个 WinRar 5.10 EAT 破解版 （英文），界面和旧版界面一样，能打开新版压缩包。

7-zip 最新版可以打开，我可以放心地使用开源软件了～

之前有个题主问过类似的问题：
http://bbs.bathome.net/thread-47221-1-1.html

badboy2

回复 6# 523066680
可能是我用了winRAR 5.6高版本的原因，低版本的有可能打不开

badboy2

回复 7# WHY

高手啊。解决了我的问题。受累能否在加点命令，合并后把原en.srt及zh-cn.srt的文件删除掉？

WHY

@if(0)==(0) echo off
dir /b *zh-cn.srt | cscript //nologo //e:jscript "%~f0"
pause & goto :EOF
@end

var fso = new ActiveXObject('Scripting.FileSystemObject');
var reg = /^(\d\d:\d\d:\d\d,\d+)[^\r\n]+(\r?\n[^\r\n]+)/gm;

while(!WSH.StdIn.AtEndOfStream) {
    var map = [];
    var cnFile = WSH.StdIn.ReadLine();
    var enFile = cnFile.replace(/zh-cn\.srt$/i, 'en.srt');
    if(!fso.FileExists(enFile)) continue;

    var cnStr = getText(cnFile);
    var enStr = getText(enFile);

    while(arr=reg.exec(enStr)) map[arr[1]] = arr[2];
    var s = cnStr.replace(
        /^(\d\d:\d\d:\d\d,\d+)[^\r\n]+\r?\n[^\r\n]+/gm,
        function(s0, s1) { return s0  + map[s1]; }
    )

    var file = cnFile.replace(/zh-cn\.srt$/i, 'chs-en.srt');
    writeToFile(s, file);

    //fso.DeleteFile(cnFile);
    //fso.DeleteFile(enFile);
}

function getText(file) {
    with(new ActiveXObject('ADODB.Stream')){
        Mode = 3; Type = 2;
        Charset = 'utf-8';
        Open();
        LoadFromFile(file);
        var s = ReadText(-1);
    }
    return s;
}

function writeToFile(s, file) {
    with(new ActiveXObject('ADODB.Stream')){
        Mode = 3; Type = 2;
        Charset = 'utf-8';
        Open();
        WriteText(s);
        SaveToFile(file, 2);
    }
}
复制代码

523066680

---------------------------
错误
---------------------------
C:\Downloads\1 - Introduction.rar
这个压缩文件格式未知或者数据已经被损坏
---------------------------
确定   
---------------------------

badboy2

回复 4# Batcher
已打包。。大大帮忙看看。合成效果如01 Welcome.chs-en.srt，我需要的是批量合并功能。。


en.srt是纯英文字幕，zh-cn.srt是纯中文字幕，想批处理能把文件夹里面的所有这两类字幕合并成中英chs-en字幕，合并成功后自动删除文件夹内的纯英及纯中字幕，并且不影响同名的后缀MP4视频文件（视频文件太大打不上去)。