Русские субтитры: Удаление непереведённого - Русские субтитры

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

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

Удаление непереведённого

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

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

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

Удаление непереведённых субтитров, если текст оригинала идентичен переводу (например, для удаления текста песен, которые нет желания переводить).
Рекомендуется к использованию с осторожностью - если в субтитрах присутствуют числа, они будут одинаковыми и в оригинале, и в переводе, а значит такой субтитр удалится!


// Delete untranslated lines from both original and translation.
// Made by Bedazzle.

program DeleteUntranslated;

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

var
  n: Integer;
  i: Integer;

  txt: String;
  txt2: String;

begin
  if ((IsOriginalLoaded) and (IsTranslatedLoaded)) then
  begin
	n := GetSubtitleCount;

	for i := n-1 downto 0 do
	begin
	   txt := GetSubtitleText(i);
	   txt2 := GetSubtitleTrans(i);
	   if txt = txt2 then DeleteSubtitle(i);
	end;
  end;
end.

0

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