aide monsieucinema

[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.

[antp]

C'est fieldMedia pour le label (je sais, c'est pas logique )

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

Value := AnsiUpFirstLetter(AnsiLowerCase(Value));

[Guest]

et je les met ou ces paramêtres ???

c pas important ???

[Guest]

c bon j'ai trouvé merci bocoup

[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);