Русские субтитры: Объединение субтитров - Русские субтитры

Перейти к содержимому

Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

Объединение субтитров

#1 Пользователь офлайн   BedaZzle Иконка

  • Иконка
  • Отправить ЛС
  • Группа: Admin
  • Сообщений: 2 987
  • Регистрация: 22 Октябрь 02
  • Страна:
  • Прислал(a) субтитров: 98
  • Своих переводов: 16

Отправлено 17 Апрель 2007 - 01:29

В переводе несколько выделенных субтитров объединяются в один, оставшиеся субтитры смещаются вверх.


// Join and Delete subtitles (only from translation). Original by Bedazzle.
// Edited by anonymous.
// Deletes selected translations and shifts remainder up.

program JoinAndDeleteSubs;

// -----------------------------------------------------------------------------

var
 n: Integer;
 i: Integer;
 j: Integer;
 txt1: string;
 txt2: string;
 displacement : Integer;

 lasttrans : String;
 work : boolean;

begin
 if not IsTranslatedloaded then
	exit;

 n := GetSubtitleCount-1;

 displacement := 0;
 for i := 0 to n do
	if (IsSubtitleSelected(i)=true) then
	   begin
		  if i<>n then
		  begin
		 txt1 := GetSubtitleTrans(i);
		 txt2 := GetSubtitleTrans(i+1);
			 txt1 := txt1 + ''#13''#10 + txt2;
			 SetSubtitleTrans(i+1, txt1);
		  end;

		  for j := i-displacement to n-1 do
			 SetSubtitleTrans( j, GetSubtitleTrans(j+1) );

		  SetSubtitleTrans(n, '- Untranslated subtitle -');
		  i := i+1;
		  displacement := displacement + 1;
	   end;
end.

0

Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему