Page 1 of 1

help pour script allociné pour changer le titre FR

Posted: 2003-07-01 15:01:09
by reptile
hello

j'y connais quasiment rien en programmation, c'est pourquoi j'en appelle à votre bonne volonté :)

il s'avère qu'Allociné met le titre avec l'article devant (que ce soit titre VO ou titre VF). y'aurait-il la possibilité de modifier ceci afin que les titres allociné apparaissent directement avec l'article à la fin ?

Merci!

Posted: 2003-07-01 16:55:17
by antp
On a par exemple la ligne :

Code: Select all

      SetField(fieldOriginalTitle, Value);
on peut la changer en :

Code: Select all

      SetField(fieldOriginalTitle, RemoveArticle(Value));
(et de même pour les autres lignes modifiant les titres originaux & traduits)

Il faut alors ajouter une fonction RemoveArticle. Par exemple juste avant "function FindLine..." qui se trouve au début du fichier :

Code: Select all

function RemoveArticle(Value: string): string;
begin
  if Pos('The ', Value) = 1 then
    Result := Copy(Value, 5, Length(Value)) + ', The'
  else
  if Pos('Un ', Value) = 1 then
    Result := Copy(Value, 4, Length(Value)) + ', Un'
  else
  if Pos('Une ', Value) = 1 then
    Result := Copy(Value, 5, Length(Value)) + ', Une'
  else
    Result := Value;
end;
etc. (on peut en ajouter encore d'autres avant le else final)

Posted: 2003-07-01 16:58:10
by reptile
ah yes merci c'est génial :)

Posted: 2003-07-01 17:21:53
by reptile
et pour le L' ?
j'ai mis tel quel et ça passe pas :(

Posted: 2003-07-01 17:24:27
by reptile
nan c'est bon j'ai trouvé à partir d'un autre script :lol: