subs.sab.bz - Информация

[Петър Хараланов]

Здрасти, колеги!

Има ли наличен скрипт, който да свива времетраенето между субтитрите?

Например ако едни субтитри вече са минали през скрипта на Вики, а сега искам да намаля паузите между репликите.

Знам, че е тъпо, ама ми трябва точно това.
Конкретно - където има пауза от точно 160 мсек, да ги свие на 80 мсек. (Примерно: добавя към времетраенето на предишния, и началното появяване на следващия субтитър. Без да променя нищо дурго (символи за минута и т.н.) Пък аз после пак ще си ги прегледам на око и ще си пипна, където е нужно.

Ще отнеме ли много време да се напише такъв?
Трябва да преработя едни 20 едночасови епизода и, ако го правя на ръка, психиката ми съвсем ще се изпили.

Този коментар е бил редактиран от Петър Хараланов на Jun 30 2017, 03:55 AM

[Victoria]

Тоя момент с непроменянето на символи за минута го бях пропуснала. Уди, ctrl+shift+r просто ти удължава репликите до някакви символи за секунда или както там е настроено.

И понеже реших, че ще ми е по-бързо да напиша скрипта, вместо да си чеша пръстите в уточнения:

Код

program ReduceGap;

const
    initialGap = 160; // начално отстояние за сравнение
    finalGap = 80; // крайно отстояние
    
var
    subnum,    
    subStart, subEnd, nextSubStart    : Integer;
    
begin    
    for subnum := 0 to GetSubtitleCount - 2 do
    begin
        subStart := GetSubtitleInitialTime(subnum);
        subEnd := GetSubtitleFinalTime(subnum);
        nextSubStart := GetSubtitleInitialTime(subnum + 1);
        
        if nextSubStart - subEnd = initialGap then
        begin
            SetSubtitleFinalTime(subnum, nextSubStart - finalGap);
        end
    end;
end.

Запазваш в ReduceGap.pas и си действаш.

Този коментар е бил редактиран от Victoria на Jun 30 2017, 11:42 PM