Page 1 of 1

www.image.be script ?

Posted: 2004-03-02 20:15:18
by ZeF69
Bonjour,

Hyper novice en la matière, je viens juste de télécharger Ant Movie Catalog et je le découvre actuellement... suberbe pour un freeware... il n'a rien à envier à d'autres... :hihi:

Si je comprend bien la notion de script, est-il possible d'en créer un pour le site www.image.be (pour lequel je puise manuellement toutes les info qui me sont utiles)... si oui, quelqu'un l'a-t-il déjà fait ??? ce serait sympa...

Merci d'avance.

ZeF69 (Belgique - Mons)

Posted: 2004-03-03 08:42:12
by antp
Heu normalement il y a déjà un script pour image.be (c'est même moi qui l'ai fait :D), à moins que je l'aie oublié dans l'install ?

Posted: 2004-03-03 14:56:56
by ZeF69
Exact ! désolé, distraction de ma part...

J'ai essayé, c'est vraiment super et rapide... merci bien antp :grinking:

j'ai néanmoins quelques questions supplémentaires concernant ce script www.image.be...

1) Concernant la Catégorie : le script ne prend pas la catégorie si la fiche du site www.image.be ne contient qu'un SEUL genre... (ex : kuzco). Est-ce normal ou peut-il être corrigé ?

2) Concernant la Description : le script ne comprend pas les caractères tels que 'oe' comme dans "oeil" ou bien "..." ou "-", ... et les remplace dans le champ par une petite barre verticale (ex : chicago). Est-ce normal ou peut-il être corrigé ??

3) Concernant le Producteur : si plusieurs studios sont présent sur le site, le script ne prend apparement pas le premier mais rien !? (ex : Terminator 3). Est-ce normal ou peut-il être corrigé ??

4) Concernant les Acteurs : pour les films c'est la chaine de caractère "avec:" qui est apparement scannée sur les fiches du site, pour dessins animé et animation c'est la chaîne de caractère "avec les voix de:" qui devrait être utilisée sur le site sinon les acteurs ne sont pas reconnus par le script (ex: kuzco).Est-ce normal ou peut-il être corrigé ??

5) Titre Original/Traduit : pourquoi ne pas recopier le titre original vers le titre traduit si pas de titre spécifique traduit présent sur le site... (ex: chicago)

Merci encore pour ce fabuleux soft...

ZeF69

Posted: 2004-03-03 15:01:05
by antp
J'ai pas beaucoup testé ce script :D

1. Probablement un bug

2. Ce sont des caractères qui n'existent pas dans la police MS Sans Serif, utilisée pour les champs. Il faudrait que le scripts les modifie alors.

3. idem que 1

4. idem

5. Parce que beaucoup de gens préfèrent laisser le titre traduit vide quand le titre original n'existe pas (en tout cas c'est ce que je fais)

Pour les points 1, 3, 4, tu peux me donner des adresses de fiches comme exemple ?

Posted: 2004-03-03 15:16:03
by ZeF69
Merci pour le support antp

pour les point 1) et 4)

http://www.image.be/FicheFilmSY.asp?IDObj=924

pour le point 3)

http://www.image.be/FicheFilmSY.asp?IDObj=2529

pour le point 2) ce serait difficile à faire ???

ZeF69

Posted: 2004-03-03 15:49:16
by antp
Non, le 2 sera plus facile à faire que les autres :D
C'est juste que je ne peux pas prévoir tous les caractères, donc il y aura le même problème avec d'autres caractères spéciaux. Il n'y a que dans la description que ce problème se pose ?

Posted: 2004-03-03 16:53:52
by Guest
antp wrote:Il n'y a que dans la description que ce problème se pose ?
Oui, apparamment, c'est là qu'il y le plus de probabilité d'y trouver les caractères " à problème "

Je suis navré, j'y connais rien à ce sujet, sinon j'aurais essayé moi-même de comprendre et de corriger les points évoqués précedemment...
Connais-tu un bon tutorial pour apprendre un peu... ?

Penses-tu qu'une ame charitable pourrait faire les modif necessaires pour corriger le "bug" ???

Posted: 2004-03-03 16:56:19
by ZeF69
Anonymous wrote:Penses-tu qu'une ame charitable pourrait faire les modif necessaires pour corriger le "bug" ???
Ainsi que les autres bugs des points 1.; 3. et 4.... :??:

Merci
ZeF69

Posted: 2004-03-03 18:43:34
by antp
Anonymous wrote:Connais-tu un bon tutorial pour apprendre un peu... ?
Sur www.developpez.com parmis les tutoriels Delphi il doit y en avoir qui expliquent les bases. Ça peut servir pour ces scripts qui ressemblent fort à du Delphi.
Anonymous wrote: Penses-tu qu'une ame charitable pourrait faire les modif necessaires pour corriger le "bug" ???
Je vais le faire ;) C'est moi qui ai fait le script, ces modifs ne demanderont pas beaucoup de temps.
Je ferai ça un de ces soirs, au plus tard vendredi.

Posted: 2004-03-03 21:08:08
by ZeF69
wow...
Merci pour le lien...
Merci surtout pour la correction des "bugs"...

ZeF69

Posted: 2004-03-03 21:52:16
by ZeF69
Juste pour info...
je viens de m'apercevoir que le bug existe aussi au niveau du réalisateur... si 2 réalisateurs sur la fiche du film sur le site, le script ne prend pas... ("réalisateur" => "réalisateurs" ?)

example : http://www.image.be/FicheFilmSY.asp?IDObj=1202

Merci.
ZeF69

Posted: 2004-03-07 00:09:21
by ZeF69
Bonjour Antp,

Je sais que tu es plus que occupé de ces jours avec notamment des préoccupations plus importantes mais as-tu eu le temps de corriger les divers bugs du script www.image.be (voir plus bas)?

Juste pour savoir... :hihi: sinon pas de problème je m'armerai de patience ;)

Merci d'avance.

ZeF69

Posted: 2004-03-07 09:30:09
by antp
ZeF69 wrote: Je sais que tu es plus que occupé de ces jours avec notamment des préoccupations plus importantes [...]
Comment tu le sais ? :??:
ZeF69 wrote: [...] mais as-tu eu le temps de corriger les divers bugs du script www.image.be (voir plus bas)?
Pas encore. Je comptais faire ça hier mais je n'en ai pas eu le temps.
Peut-être cet après-midi

Posted: 2004-03-07 10:27:28
by antp
Bon, finalement je l'ai fait ce matin :D
http://antp.be/temp/Image.be.ifs
Pour les caractères qui apparaissaient mal, j'ai juste corrigé le 'œ' et le '...'
Si tu arrives à en trouver d'autres, il faut les copier-coller pour avoir le caractère exact (parce que par exemple le "-" il y en a plein de différents dans les jeux de caractères).
Ça c'est assez facile à modifier. Il suffit de rajouter une ligne dans le genre des deux qui sont déjà là :

Code: Select all

      Value := StringReplace(Value, 'œ', 'oe');
      Value := StringReplace(Value, '…', '...');

Posted: 2004-03-07 15:16:09
by ZeF69
WaouW, meric bien Antp,...

Tout fonctionne SAUF

le point 1) et 3) :/

- Catégorie: ne prend toujours pas si un seul genre présent sur le site (=> 'genre:' pose problème)
http://www.image.be/FicheFilmSY.asp?IDObj=924

- Producteur : ne prend toujours pas si plusieurs studios présent sur le site (=>'studios:' pose problème)
http://www.image.be/FicheFilmSY.asp?IDObj=2529

J'ai regardé dans le nouveau script mais ma piètre connaissance ne suffit pas à comprendre la source d'erreur... d'autant plus que la correction sur les réalisateurS fonctionne elle !!!

Merci également pour le point 2), je compléterais moi-même avec d'eventuels autres caractères spéciaux... :grinking:

Merci encore et si tu trouves pour les points 1) et 3) çà serait sympa de publier la nouvelle version.

ZeF69

Posted: 2004-03-07 15:19:39
by antp
Je comprends pas pourquoi ça marche pas ; la modif est faite dans le script pourtant :hum: Je vais regarder ça plus tard.

Posted: 2004-03-07 15:38:32
by ZeF69
j'y comprend pas grand chose mais faut bien que je travaille un peu aussi...
pour catégorie, lorsque le mot 'genre:' est scanné, sur la ligne il n'ya aucun tag '<font class=white2>' !!!, il faut peut-être fixer EndPos à la valeur 'fin de la ligne' mais là je sais pas comment faire... pfft j'suis nul.

ZeF69

Posted: 2004-03-07 16:11:01
by ZeF69
çà fonctionne avec çà.. pour la(les) catégorie(s)...

LineNr := FindLine('<b>Genres:', Page, LineNr);
if LineNr = -1 then
LineNr := FindLine('<b>Genre:', Page, LineNr);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
BeginPos := Pos('</b>', Line);
// EndPos := Pos('<font class=white2>', Line);
Value := Copy(Line, BeginPos, Length(Line));
HTMLRemoveTags(Value);
SetField(fieldCategory, Value);
end;

Mais dans ce cas, il reprend l'ensenble des genres du sites :/ si tu as un solution plus propre... merci.
pour ce qui est de producteur, je n'arrive pas à trouver :cry:

Posted: 2004-03-07 16:25:50
by ZeF69
pour le(s) producteur(s)... çà marche aussi avec la correction suivante mais il reprend l'ensemble des studios pas le premier... mais bon à défaut d'autre chose...

LineNr := FindLine('<b>Studio:', Page, LineNr);
if LineNr = -1 then
LineNr := FindLine('<b>Studios:', Page, LineNr);
if LineNr > -1 then
begin
Line := Trim(Page.GetString(LineNr));
BeginPos := Pos('">', Line) + 2;
Value := Copy(Line, BeginPos, Length(Line));
HTMLRemoveTags(Value);
SetField(fieldProducer, Value);
end;

Merci

ZeF69

Posted: 2004-03-07 19:51:02
by antp
ZeF69 wrote:j'y comprend pas grand chose mais faut bien que je travaille un peu aussi...
pour catégorie, lorsque le mot 'genre:' est scanné, sur la ligne il n'ya aucun tag '<font class=white2>' !!!, il faut peut-être fixer EndPos à la valeur 'fin de la ligne' mais là je sais pas comment faire... pfft j'suis nul.
Tiens oui, je me basais sur leur <font> changeant la couleur des virgules, mais vu qu'il n'y a alors pas de virgules...
Enfin, il est un peu crado leur code (comme tous les autres sites pour lesquels j'ai fait des scripts d'importation en fait).
Il va falloir que je fasse les modifs un peu plus attentivement :D