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

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

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

Удаление тэгов стилей

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

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

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

Удаление тэгов стилей из оригинала.

Используйте с осторожностью, определение начала и конца тэга далеко от идеала. :)


// Remove style tags. Made by Bedazzle 2007.01.08.
// Fast implementation, use with care!

program RemoveStyleTags;

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

var
  n: Integer;
  i: Integer;

  p1: Integer;
  p2: Integer;

  txt: String;

begin
  n := GetSubtitleCount;

  for i := 0 to n-1 do
  begin
	 txt := GetSubtitleText(i);

	 p1 := pos('<', txt);
	 p2 := pos('>', txt);

	 while ((p1>0) and (p2>0)) do
	 begin
	   txt := copy(txt, 1, p1-1) + copy(txt, p2+1, length(txt)-p2);

	   p1 := pos('<', txt);
	   p2 := pos('>', txt);
	 end;


	 SetSubtitleText(i, txt);
  end;
end.

0

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