Page 1 of 1

aide monsieucinema

Posted: 2003-07-09 15:45:39
by greglover
salut tout le monde

j'ai quelques peu modifié le script de monsieurcinema : affichage de l'image et inversion entre titre original et titre traduit parce que je trouvais sa plus pratique.

Il me reste 2 petits trucs à trouver et je peine bocoup.

Sa doit être simple pour vous qui avez lair de maitriser ce language a fond.

Je veux : Que le titre traduit et le titre original soit en minuscule
et je veux que le titre original soit aussi défini comme label.

J'ai essayé fieldLabel mais sa a pas marché enfin c'était juste un essai

Merci d'avance pour votre aide.

Posted: 2003-07-09 16:44:41
by antp
C'est fieldMedia pour le label (je sais, c'est pas logique :D)

Pour les minuscules (avec quand même la première lettre en majuscule) :

Value := AnsiUpFirstLetter(AnsiLowerCase(Value));

Posted: 2003-07-09 17:16:01
by Guest
et je les met ou ces paramêtres ???

c pas important ???

Posted: 2003-07-09 17:21:28
by Guest
c bon j'ai trouvé merci bocoup

script ok

Posted: 2003-07-14 00:06:15
by bastou
salut j'ai modifié le script pour obtenir ce que tu desire, voici :

// Original Title
BeginPos := Pos('<b>', Line);
EndPos := Pos('<br>', Line);
if (BeginPos > 0) and (EndPos > 0) then
begin
Value := Copy(Line, BeginPos + 3, EndPos - BeginPos - 3);
HTMLRemoveTags(Value);
BeginPos := Pos('(', Value);
EndPos := Pos(')', Value);
if (BeginPos > 0) and (EndPos > 0) then
begin
Value2 := Copy(Value, BeginPos + 1, EndPos - BeginPos - 1);
Delete(Value, BeginPos - 1, Length(Value));
end else
Value2 := '';
if Value2 <> '' then
begin
SetField(fieldOriginalTitle, Value2);
Value := AnsiUpFirstLetter(AnsiLowerCase(Value));
SetField(fieldTranslatedTitle, Value);
end else
SetField(fieldOriginalTitle, Value);