Enrichir Subtitle Workshop (2) - Mise en Italique

Par defaut, SW n'offre aucune option pour [Edited]encadrer complètement les répliques sélectionnées en italique. Voici un petit script pascal qui ajoute justement cette fonction.

Il suffit de placer ce script dans le sous-dossies 'PascalScripts' de SW, et d'y accéder depuis l'interface, menu 'Outils'.

Si cela vous tente, récupérez le script ICI, ou bien amusez-vous à le faire le vous même par un Copier-Coller à partir du code suivant vers un simple fichier texte vierge, en n'oubliant pas de changer l'extension .txt en .pas


// Enclose Subtitle with Italic Tags.
// Made by Buzcatcher.

program ItalicTags;

// ---------------------------------------------
const
tagopened = '<i>';
tagclosed = '</i>';
// or substitute any other text formating tag.

var
n, i: Integer;
subtxt, subtxt2: String;

begin
n := GetSubtitleCount;

for i := n-1 downto 0 do
begin
if (IsSubtitleSelected(i) = true) then
begin
subtxt := GetSubtitleText(i);
subtxt2 := tagopened + subtxt + tagclosed;
SetSubtitleText(i, subtxt2);
end;
end;
MsgBox('Text Formating Done!'+ ''#13''#10 + '(Tag : Italic)', '&Ok', '', '', $20);
// Remove the previous line
// if you don't want any message box.
end.