[BedaZzle]

Скрипт помещает в перевод объединённые тексты оригинала и перевода, разделённые линией.

// Union original and translation. Made by Bedazzle.

program UnionOriginalAndTranslation;

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

var
 n: Integer;
 i: Integer;

 txt1: String;
 txt2: String;
 txt:  String;
begin
 n := GetSubtitleCount;

 for i := 0 to n-1 do
 begin
	txt1 := GetSubtitleText(i);
	txt2 := GetSubtitleTrans(i);
	txt := txt1 + ''#13''#10 + '--------------------' + ''#13''#10 + txt2;
	SetSubtitleTrans(i, txt);
 end;
end.

[Stevvie]

\смотрит на кол-во скриптов\

Монстр!


Только не лучше ли три раздела о SW слить в один?

[BedaZzle]

Stevvie (17.4.2007, 18:56) писал:

\смотрит на кол-во скриптов\

Монстр!

Дык оно же не за один день писалось.

Stevvie (17.4.2007, 18:56) писал:

Только не лучше ли три раздела о SW слить в один?

Нет, ибо так есть разделение по темам. Места на форуме для удобства - не жалко.

[RoLlin]

А куда скрипт прикрепить?)

[BedaZzle]

RoLlin (2.2.2009, 23:32) писал:

А куда скрипт прикрепить?)

Скопировать в папку PascalScripts, потом запускать из главного меню программы Tools->Pascal script.