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.
aide monsieucinema
script ok
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);
// 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);