Русские субтитры: Добавление пробелов - Русские субтитры

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

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

Добавление пробелов

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

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

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

Добавление пробелов в начало и конец каждой строки.

Символ, который добавляется можно изменить при помощи константы "toadd".


// Add spaces to begin and end of each line. Made by Bedazzle.

program AddSpaces;

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

const
  toadd = ' ';	// can be replaced by any desired character or string


var
  n, i, p, l: Integer;
  txt, t1, t2: String;

  chartoadd: string;

begin
  n := GetSubtitleCount;

  for i := 0 to n-1 do
  begin
	 t1 := '';
	 t2 := GetSubtitleText(i);

	 p := pos(''#13''#10, t2);

	 while (p>0) do
	 begin
		l := length(t2);
		t1 := t1 + copy(t2, 1, p-1) + toadd + ''#13''#10 + toadd;
		t2 := copy(t2, p+2, l-p-2);

		p := pos(''#13''#10, t2);
	 end;

	 txt := toadd + t1 + t2 + toadd;

	 SetSubtitleText(i, txt);
  end;
end.

0

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