[FR] Jeuxvideo.com

BooZoo · Post by **BooZoo** » 2006-06-06 20:48:59

Bonjour,
Il y avait une érreur dans le script a la ligne 762 j'ai mofifié la ligne ca marche a part que quand je lance le script il me dit qu'il a trouvé plusieurs solutions mais elles aparaissent pas je peu rien faire.
Merci et au revoir

draco31.fr · Post by **draco31.fr** » 2006-06-09 06:25:46

xaxgo wrote:Personne n'utilise ce script?Personne ne peux me repondre?

J'utilise ce script mais cela fait un moment que je n'ai pas eu à mettre à jour ma base de jeux-vidéo. Je ne m'étais donc pas aperçu qu'il ne marchais plus :P

Si j'ai du temps pendant ces vancances, j'essairai de voir ce qui ne marche pas

... mais c'est pas toujours évident de comprendre les scripts fait par d'autres

xaxgo · Post by **xaxgo** » 2006-06-11 19:49:45

Bonsoir,

C'est bon j'ai reussi en selectionnant plateforme PC le script marche.Par contre j'aurai une petite question concernant ce script.Lors de la récupération des jeux similaire il sont l'un en dessous de l'autre or j'aimerai les avoir a la suite séparé par une virgule (cela pour les exporter) Est ce possible?

Merci d'avance pour votre aide
Anthony

draco31.fr · Post by **draco31.fr** » 2006-06-14 18:35:01

Dans ma version, il m'affiche un truc du style :

Similaire à :
Jeux_1
Jeux_2
Jeux_3

Pour le modifier, il faut que tu aille ligne 380 où tu trouve ça :

Code: Select all

  // Similaire à
  if (GetField(fieldActors) = '') or (GetOption('Replace') = 1) then
  begin
    LineNr := FindLine('<h4>Similaire à :</h4>', Page, 0);
    if LineNr > -1 then
    begin
      Value := '';
      repeat
        Line := Page.GetString(LineNr + 1);
        BeginPos := pos('target=_new>', Line) + 12;
        EndPos := pos('</a>', Line);
        Value := Value + copy(Line, BeginPos, EndPos - BeginPos) + #13#10;
        LineNr := LineNr + 1;
      until (pos('</p>', Page.GetString(LineNr)) <> 0);
      ValueText := AnsiUpperCase('Similaire à :') + #13#10 + Value;
      SetField(fieldActors, Getfield(fieldActors) + AnsiUpperCase('Similaire à :') + #13#10 + Value);
    end;
  end;

Là tu remplace :

Code: Select all

        Value := Value + copy(Line, BeginPos, EndPos - BeginPos) + #13#10;

Par :

Code: Select all

        Value := Value + copy(Line, BeginPos, EndPos - BeginPos) + ' ; ';

Et tu auras un truc du style :

Similaire à :
Jeux_1 ; Jeux_2 ; Jeux_3 ;

xaxgo · Post by **xaxgo** » 2006-06-16 11:20:19

Je te remerci , les fichier sont bien alligné et séparé par une virgule. Mais il y a aussi 2 virgules aprés les titres.

Merci d'avance
Anthony

draco31.fr · Post by **draco31.fr** » 2006-06-16 20:14:37

Qu'il y ait un ";" (point virgule) ça devrait être normal, qu'il y en ait 2 non !
En fonction de ce que tu as, il faudrait rajouter une ligne juste AVANT celle là:

Code: Select all

SetField(fieldActors, Getfield(fieldActors) + AnsiUpperCase('Similaire à :') + #13#10 + Value);

Mettre un truc genre :

Code: Select all

Value := copy(Value, 1, length(value)-3);

Avec "3" le nombre de caractère que tu veux supprimmer en partant de la fin de la liste des jeux similaires.

xaxgo · Post by **xaxgo** » 2006-06-17 16:21:50

Je te remerci ça marche parfaitement

Merci
Anthony

baffab · Post by **baffab** » 2006-06-26 13:41:52

Salut,
j'ai fais des personalisations sur ce bon script, si ca intéresse quelqu'un :

- image : classant pas mal de jeux dreamcast, il n'y a pas beaucoup de jacquettes issues du site "alapage", c'est pourquoi j'utilise la première image du test (qui au passage est plus jolie, affaire de gout) en mettant le code suivant dans l'analyse de la page de test :

Code: Select all

  BeginPos := pos('<div id="article"><h3>', Page.text);
  if (BeginPos > 0) then
  begin
    ValuePicture := copy(Page.Text, BeginPos, pos('<h6>',Page.Text)-BeginPos);
    EndPos := pos('images/',ValuePicture);
    delete(ValuePicture,1,EndPos-1)
    EndPos := pos(' ',ValuePicture)-1;
    ValuePicture := copy(ValuePicture,1,EndPos-1);
    EndPos := pos('"',ValuePicture)-1;
    if EndPos>0 then ValuePicture := copy(ValuePicture,1,EndPos-1);
    ValuePicture := 'http://www.jeuxvideo.com/'+ ValuePicture;
    getPicture(ValuePicture);
  end;

- catégories : au lieu de ne prendre que le premier type de jeu, je prends tous les types séparées par une virgule. Pour cela j'ai modifié le code de récupération du type avec :

Code: Select all

  // Type de Jeu
  if (GetField(fieldCategory) = '') or (GetOption('Replace') = 1) then
  begin
    LineNr := FindLine('<h4>Type :</h4>', Page, 0);
    if LineNr > -1 then
    begin
      Value := Page.GetString(LineNr + 1);
      Value := StringReplace(Value,'</a><a','</a>, <a');
      HTMLDecode(Value);
      HTMLRemoveTags(Value);
      SetField(fieldCategory, Value);
    end;
  end;

- avis des lecteurs : j'ai rajouté le nombre d'avis :

Code: Select all

     // Avis des lecteurs
     LineNr := FindLine('L''avis des lecteurs', Page, LineNr);
     if LineNr > -1 then
     begin
       ValueNote := Page.GetString(LineNr + 1);
       HTMLRemoveTags(ValueNote);
       LineNr := FindLine('Lire les', Page, LineNr);
       if LineNr > -1 then
       begin
         Line := Page.GetString(LineNr);
         Delete(Line,1,pos('Lire les ',Line)+8);
         EndPos := pos(' comment', Line);
         Line := copy(Line, 1, EndPos-1);
         if (ValueNote = ' </span></div></td>') then
           ValueNote := '-';
         Value := Value + 'L''avis des ' + Line + ' lecteurs : ' + ValueNote + '/20';
         Delete(Line, 1, Length(Line));
       end;
     end;

Voilà pour ma petite contribution.

draco31.fr · Post by **draco31.fr** » 2006-06-26 14:14:24

baffab wrote:Salut,
j'ai fais des personalisations sur ce bon script, si ca intéresse quelqu'un :
[...]
Voilà pour ma petite contribution.

Merci pour ces ajouts

ça m'interesse ^_^

Pourrais-tu poster ton script en entier ? ou donner un lien vers le fichier téléchargeable ?

Merci d'avance !

baffab · Post by **baffab** » 2006-06-26 14:54:02

y a cas demander : JeuxVideo.Com_v3.1 +.ifs

draco31.fr · Post by **draco31.fr** » 2006-06-26 21:06:31

Merci ^^

Je testerai ça à l'occasion

mewtwo · Post by **mewtwo** » 2006-07-02 08:58:33

Désolé, mais j'ai l'impression que le site JeuxVideo.com a encore modifié sa présentation car cette fois ci plus aucun script ne fonctionne !

Si l'un de vous peut faire qq chose ....

PsyKos · Post by **PsyKos** » 2006-07-10 19:23:12

Oui le script ne marche plus !!!! Faites quelques chose plz...

Merci à Crevette et Drago !!

draco31.fr · Post by **draco31.fr** » 2006-07-11 16:20:52

Salut

Je ne suis ni Crevette ni Drag@n, mais j'ai quand même réussit à mettre à jour le script dans une version fonctionnelle.

Voici le lien :
JeuxVideo.Com_v3.3.ifs

Je n'avais pas pu tester la version de Baffab lorsqu'elle marchait, donc mes modification ne reprennent pas forcement la même organisation des données que précédemment : dites moi où vous voulez stoquer chaque info (test, commentaires, astuces) et je modifierai en consequence.

bye

PS: J'ai retirer la récupération de la première image de la page de test, désolé baffab ... cependant il reste pas mal d'optimisation à faire sur ce script d'après moi, donc si tu veux remettre les mains dedans : ne te gène pas

baffab · Post by **baffab** » 2006-07-11 20:38:55

Salut,

je viens de remettre la récupération de la première image de la page de test (j'y tiens

) :

Code: Select all

  // recuperation de la premiere image de la page de test
  BeginPos := pos('images/', Page.text);
  if (BeginPos > 0) then
  begin
    ValuePicture := Page.Text;
    delete(ValuePicture, 1, BeginPos-1);
    EndPos := pos(' ',ValuePicture);
    if EndPos>0 then
    begin
      ValuePicture := copy(ValuePicture,1,EndPos-2);
      ValuePicture := 'http://www.jeuxvideo.com/'+ ValuePicture;
      getPicture(ValuePicture);
    end;
  end;

L'idéal étant de le gérer dans les options de départ ou de s'en servir si on n'a pas trouvé l'autre image.

EDIT : modif du code

EDIT2 : certaines fiches faisaient boucler amc, j'ai modifié la ligne suivante

Code: Select all

While Pos('<p id="signature">',Page.GetString(LineNr+1)) = 0 do

par

Code: Select all

While (Pos('<p id="signature">',Page.GetString(LineNr+1)) = 0) and (LineNr > 0) do

EDIT3 : il serait intéressant de sauver également la plateforme du jeux, personnellement je la mets dans le champ Origine.

pheonix · Post by **pheonix** » 2006-07-12 08:54:06

slt a tous voila moi j'ai un problème avec la version 3.2 (11 Juillet2006)
quand je lance ma recherche tout va très bien il cherche et ensuite il me donne les resultats par consoles je choisi ps2 et la il cherche et après quand il a fini il ce bloque sans me donner les resultats j'attends une réponse merci bien a vous

baffab · Post by **baffab** » 2006-07-12 13:08:28

Salut pheonix,

essaye la modif dont je parle dans EDIT2 sur le post précédent. J'avais aussi ce problème sur certains jeux que j'ai résolu en faisant la modif citée.

PsyKos · Post by **PsyKos** » 2006-07-12 19:39:32

Le script ne marche que pour les jeux PC maintenant non ou c'est moi qui fait une erreur ??? Merci.

baffab · Post by **baffab** » 2006-07-12 20:39:47

PsyKos wrote:Le script ne marche que pour les jeux PC maintenant non ou c'est moi qui fait une erreur ??? Merci.

Non, c'est plutot qu'il est configuré dans les options du script sur "PC" (Plateforme), il serait préférable de mettre par défaut "any".

PsyKos · Post by **PsyKos** » 2006-07-12 20:50:57

Excusez moi de la question mais on fait cela ocmment je suis une vrai quille en script. Merci.