aide monsieucinema

If you made a script you can offer it to the others here, or ask help to improve it. You can also report here bugs & problems with existing scripts.
Post Reply
greglover

aide monsieucinema

Post 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.
antp
Site Admin
Posts: 9651
Joined: 2002-05-30 10:13:07
Location: Brussels
Contact:

Post 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));
Guest

Post by Guest »

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

c pas important ???
Guest

Post by Guest »

c bon j'ai trouvé merci bocoup
bastou

script ok

Post 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);
Post Reply