523066680

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

523066680

回复 9# badboy2


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

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

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

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

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

回复 12# badboy2

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

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

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