Page 3 of 9
Posted: 2006-06-06 20:48:59
by BooZoo
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
Posted: 2006-06-09 06:25:46
by draco31.fr
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
Posted: 2006-06-11 19:49:45
by xaxgo
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
Posted: 2006-06-14 18:35:01
by draco31.fr
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 ;
Posted: 2006-06-16 11:20:19
by xaxgo
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
Posted: 2006-06-16 20:14:37
by draco31.fr
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.
Posted: 2006-06-17 16:21:50
by xaxgo
Je te remerci ça marche parfaitement
Merci
Anthony
Posted: 2006-06-26 13:41:52
by baffab
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.
Posted: 2006-06-26 14:14:24
by draco31.fr
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 !
Posted: 2006-06-26 14:54:02
by baffab
Posted: 2006-06-26 21:06:31
by draco31.fr
Merci ^^
Je testerai ça à l'occasion
Posted: 2006-07-02 08:58:33
by mewtwo
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 ....
Posted: 2006-07-10 19:23:12
by PsyKos
Oui le script ne marche plus !!!! Faites quelques chose plz...
Merci à Crevette et Drago !!
Posted: 2006-07-11 16:20:52
by draco31.fr
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
Posted: 2006-07-11 20:38:55
by baffab
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.
Posted: 2006-07-12 08:54:06
by pheonix
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
Posted: 2006-07-12 13:08:28
by baffab
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.
Posted: 2006-07-12 19:39:32
by PsyKos
Le script ne marche que pour les jeux PC maintenant non ou c'est moi qui fait une erreur ??? Merci.
Posted: 2006-07-12 20:39:47
by baffab
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".
Posted: 2006-07-12 20:50:57
by PsyKos
Excusez moi de la question mais on fait cela ocmment je suis une vrai quille en script. Merci.