[FR] Ant Movie et les BD

[antp]

Oui : il y a eu quelques modifications dans le moteur de script pour la version 3.5
Pour convertir les scripts, c'est par là : viewtopic.php?t=1837

[mistervince]

bonjour tt le monde


Je suis désolé, j'ai fait une petite erreur dans mon fichier de traduction.
Je viens de m'en rendre compte et je vous donne les lignes à changer dans le fichier .lng que vous pouvez télécharger plus haut

les lignes 189 à 192 sont à remplacer :
ancien pas bon
Fields.Strings.String[8]=<< inutilisé >>
Fields.Strings.String[9]=Titre de l'album
Fields.Strings.String[10]=Titre formaté
Fields.Strings.String[11]=N° de l'album

nouveau, mieux
Fields.Strings.String[8]=Titre de l'album
Fields.Strings.String[9]=N° de l'album
Fields.Strings.String[10]=Titre formaté
Fields.Strings.String[11]=<< inutilisé >>

et les lignes 980 à 982 :
ancien
LOriginalTitle.Caption=
LTranslatedTitle.Caption=Titre de l'album :
LDirector.Caption=N° de l'album :

nouveau
LOriginalTitle.Caption=Titre de l'album :
LTranslatedTitle.Caption=N° de l'album :
LDirector.Caption=

En fait, le problème est pour l'affichage des titres formatés (style titre(N°)) , je m'étais trompé d'une ligne , ce qui fait que l'affichage ne correspondait pas.
Une fois ces corrections faites, ça devrait marcher sans problème.

Encore pardon

Vince

[rincevent]

Bonjour,
Depuis que j'avais fait le script pour BDland je l'utilisais régulièrement. Malheureusement BDland semble être mort, j'ai donc cherché et trouvé un autre site proposant une Base de donnée sur les BD pour remplacer http://www.bdland.com

Voici donc un script qui va chercher les infos sur:
http://adbd.aff.bdnet.com/

A utiliser de la même manière que mon précedent script avec la langue qui va bien pour avoir les bons intiltulés.

Au passage, merci à mistervince pour avoir adapté le fichier langage spécial BD à la nouvelle version de ant movie.

Code: Select all

(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=Rincevent
Title=adbd.aff.bdnet.com.ifs
Description=Script permetant de récupere les infos sur des BD
Site=http://adbd.aff.bdnet.com/
Language=Français
Version=
Requires=3.5.0
Comments=
License=
GetInfo=0

[Options]

***************************************************)

// GETINFO SCRIPTING
// BD land (BD FR) import with picture

(***************************************************
*  Movie importation script for:                  *
*  adbd.aff.bdnet.com, http://adbd.aff.bdnet.com/ *
*                                                 *
*  (c) 2005 Rincevent                             *
*                                                 *
*  For use with Ant Movie Catalog 3.5.0           *
*  www.ant.be.tf/moviecatalog ··· www.buypin.com  *
*                                                 *
*  The source code of the script can be used in   *
*  another program only if full credits to        *
*  script author and a link to Ant Movie Catalog  *
*  website are given in the About box or in       *
*  the documentation of the program               *
***************************************************)

program adbd_aff_bdnet;
var
  BDName: string;



function DelFirstBlank(line: string): string;
begin
  while (   (pos(' ', line) = 1)
         or (pos(#09, line) = 1)
         or (pos(#13, line) = 1)
         or (pos(#10, line) = 1) ) do
    Delete(line, 1, 1);
  result := line;
end;

function DelCRC(line: string): string;
begin
  while (pos(#13, line) > 0 ) do
      line := StringReplace(line,#13, '');
  while (pos(#10, line) > 0 )  do
      line := StringReplace(line,#10, '');
  result := line;
end;

function Add_album_on_list(Address: string;Compteur: Integer): Integer;
var
  Page: TStringList;
  LineNr: Integer;
  BDTitle,Value,Url,Tmp: string;
  Line: string;
  BeginPos, EndPos: Integer;
begin
  Line := GetPage(Address);
  if Pos('[BDnet.com]', Line) > 0 then
  begin
     // Recherche le premier album trouvé
     BeginPos := pos('>Titre : </FONT>', Line);
     //Liste chaque album trouvé
     while (BeginPos > 0) do
       begin
         Delete(Line, 1, BeginPos);
         BeginPos := pos('</FONT>', Line);
         Delete(Line, 1, BeginPos+6);
         Value    := copy(Line,  1, pos('</FONT>', Line) - 1);
         // Parse pour avoir le titre
         BDTitle  := Value;
         HTMLRemoveTags(BDTitle);
         HTMLDecode(BDTitle);
         //On va voir si on trouve un nom de serie/n° de tome
          BeginPos := Pos('>Série : </FONT>', Line);
          if  (BeginPos > 0) then
          begin
            delete(Line,1,BeginPos);
            delete(Line,1,Pos('<A ',Line)-1);
            Tmp := copy(Line, 1, pos('</A>',Line)-1);
            HTMLRemoveTags(Tmp);
            Tmp := DelFirstBlank(Tmp);
            Tmp := DelCRC(Tmp);
            BDTitle := '[' + tmp + '] ' + BDTitle;
          end;
         // Parse pour avoir l'url
         Url := Value;
         Delete(Url, 1, pos('<A HREF="', Url) + 9);
         Url    := copy(Url,  1, pos('"', Url) -1);
         // Ajout de la ligne dans l'interface
         PickTreeAdd(BDTitle, 'http://adbd.aff.bdnet.com/' + Url);
         BeginPos := pos('>Titre : </FONT>', Line);
       end;
     // Cherche s'il y a une page suivante
     BeginPos := pos('<IMG SRC="/z/bdnet/images/suivante.gif"', Line);
     if (BeginPos > 0) then
       begin
          BeginPos := pos('> pages trouvées:<BR>', Line);
          Delete(Line, 1, BeginPos);
          BeginPos := pos('</A> ]<BR>', Line);
          Delete(Line, 1, BeginPos-1);
          // On est au debut du lien vers la page precedente/suivante
          //On saute le lien precedent s'il exist.
          BeginPos := pos('<IMG SRC="/z/bdnet/images/precedente.gif', Line);
          Delete(Line, 1, BeginPos-1);
          //On se positionne au debut de l'url vers suivant.
          BeginPos := pos('/recherche.htm', Line);
          Delete(Line, 1, BeginPos-1);

          Value := copy(Line,  1, pos('">', Line) - 1);
          if (Compteur > 5) then
           begin
             PickTreeMoreLink('http://adbd.aff.bdnet.com/' + Value);
             PickTreeAdd('Plus', 'http://adbd.aff.bdnet.com/' + Value);
           end else
             // Recurence on ajoute la prochaine page à la liste
            Add_album_on_list('http://adbd.aff.bdnet.com/' + Value,Compteur+1);
       end;
     result := 1;
  end else
    result := 0;
end;

procedure AnalyzePage(Address: string);
var
  Res: Integer;
begin
     // Init liste BD
     PickTreeClear;
     Res := Add_album_on_list(Address,1);
     if ( Res >0) then
      begin
       //Affiche fenetre de selection
       if PickTreeExec(Address) then
        begin
         if (pos('alb.htm', Address) >0) then
          begin
            // On a selectionner une BD
            AnalyzeBDPage(Address);
          end else
            //  On a selectioner page suvante.
            AnalyzePage(Address);
        end
      end;
end;



procedure AnalyzeBDPage(Address:string);
var
  Line, Value,PageContents: string;
  LineNr, BeginPos, EndPos: Integer;
  Page: TStringList;
begin
  PageContents := GetPage(Address);
  // url
  SetField(fieldURL, Address);
  
  // Titre
  BeginPos := Pos('<A HREF="/">Bdnet</A>', PageContents);
  delete(PageContents,1,BeginPos - 1);
  BeginPos := Pos('<FONT', PageContents);
  delete(PageContents,1,BeginPos - 1);
  Value := copy(PageContents, 1, pos('</FONT>',PageContents)-1);
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  //On va voir si on trouve un n° de tome
  BeginPos := Pos('<B>Série: ', PageContents);
  delete(PageContents,1,BeginPos - 1);
  Line := copy(PageContents, 1, pos('</B>',PageContents)-1);
  BeginPos := Pos('tome', Line);
  if  (BeginPos > 0) then
  begin
    delete(Line,1,BeginPos +4);
    HTMLRemoveTags(Line);
    Line := DelFirstBlank(Line);
    Value := 'T' + Line + ': ' + Value;
  end;
  SetField(fieldOriginalTitle, Value);
  
  //Images
  BeginPos := Pos('<img src="/zi/bdweb/images/' , PageContents);
  if  (BeginPos > 0) then
  begin
    delete(PageContents,1,BeginPos - 1);
    delete(PageContents,1, pos('"',PageContents));
    Value := Copy(PageContents, 1, pos('"',PageContents) -1 );
    GetPicture('http://adbd.aff.bdnet.com/' + Value);
  end;
  
  //Date édition
  BeginPos := Pos('Ajouter au panier', PageContents);
  delete(PageContents,1,BeginPos - 1);
  BeginPos := Pos('Paru en:', PageContents);
  delete(PageContents,1,BeginPos - 1);
  Value := Copy(PageContents, pos('20',PageContents), 4);
  SetField(fieldYear, Value);
  
  //Série
  BeginPos := Pos('<B>Série: </B>', PageContents);
  delete(PageContents,1,BeginPos - 1);
  delete(PageContents,1, pos('</B>',PageContents) +3);
  Value := Copy(PageContents, 1, pos('</A>',PageContents) -1 );
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  Value := DelFirstBlank(Value);
  Value := StringReplace(Value,'&nbsp', '');
  SetField(fieldSource, Value);
  
  //Dessinateur
  BeginPos := Pos('<B>Dessinateur:</B>', PageContents);
  delete(PageContents,1,BeginPos - 1);
  delete(PageContents,1, pos('</B>',PageContents) +3);
  Value := Copy(PageContents, 1, pos('</A>',PageContents) -1 );
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  Value := DelFirstBlank(Value);
  SetField(fieldProducer, Value);
  SetField(fieldActors, Value);
  
  //Scénariste
  BeginPos := Pos('<B>Scénariste:</B>', PageContents);
  delete(PageContents,1,BeginPos - 1);
  delete(PageContents,1, pos('</B>',PageContents) +3);
  Value := Copy(PageContents, 1, pos('</A>',PageContents) -1 );
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  Value := DelFirstBlank(Value);
  SetField(fieldDirector, Value);
  Value := GetField(fieldActors) + #13+#10 + Value;
  SetField(fieldActors, Value);

  //Genre
  BeginPos := Pos('<B>Genre:</B>', PageContents);
  delete(PageContents,1,BeginPos - 1);
  delete(PageContents,1, pos('</B>',PageContents) +3);
  Value := Copy(PageContents, 1, pos('</A>',PageContents) -1 );
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  Value := DelFirstBlank(Value);
  SetField(fieldCategory, Value);

  //Editeur
  BeginPos := Pos('<B>Editeur:</B>', PageContents);
  delete(PageContents,1,BeginPos - 1);
  delete(PageContents,1, pos('</B>',PageContents) +3);
  Value := Copy(PageContents, 1, pos('</A>',PageContents) -1 );
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  Value := DelFirstBlank(Value);
  SetField(fieldCountry, Value);

  //Présentation
  BeginPos := Pos('<B>Public conseillé:</B>', PageContents);
  delete(PageContents,1,BeginPos - 1);
  BeginPos := Pos('<BR>', PageContents);
  delete(PageContents,1,BeginPos - 1);
  Value := Copy(PageContents, 1, pos('</FONT>',PageContents) -1 );
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  Value := DelFirstBlank(Value);
  SetField(fieldMediaType, Value);
  
  //Résumé
  BeginPos := Pos('>Commentaires:</FONT>' , PageContents);
  if  (BeginPos>0) then
  begin
    delete(PageContents,1,BeginPos);
    delete(PageContents,1, pos('<BR>',PageContents) -1);
    delete(PageContents,1, pos('</FONT>',PageContents)+6);
    Value := Copy(PageContents, 1, pos('</FONT>',PageContents) -1 );
    HTMLRemoveTags(Value);
    HTMLDecode(Value);
    SetField(fieldDescription, Value);
  end;
end;

////////////////////////////////////////
//            Main
////////////////////////////////////////
begin
  if CheckVersion(3,5,0) then
  begin
    BDName := GetField(fieldOriginalTitle);
    // Supprime le n° de tome.
    delete(BDName,1, pos(':',BDName));
    BDName := DelFirstBlank(BDName);
    if BDName = '' then
      BDName := GetField(fieldTranslatedTitle);
    if Input('adbd.aff.bdnet.com Import', 'Entrez le titre de la BD/Série :', BDName) then
    begin
     AnalyzePage('http://adbd.aff.bdnet.com/recherche.htm?type=tout&recherche='+UrlEncode(BDName));
    end;
  end else
    ShowMessage('Ce script requiert la version 3.5.0 ou supérieure de Ant Movie Catalog.');
end.

Rincevent.

[dvjulien2]

bonjour,

Je sais j'arrive après la bataille, mais je n'ai rien trouvé de mieux que l'idee d'utiliser ANTP pour mes BDs. Vu qu'il est gratuit et tres simple d'utilisation. Exactement ce que je cherche.
J'ai trouvé comment modifié le fichiers de langues, j'ai trouvé le script pour utiliser BDnet mais je trouve les infos assez sommaires, et ca ne correspond pas avec les champs...
st ce qq'un a développe un autre script, ou a continué l'aventure de ANTP et les BD???

Merci a vous

[baffab]

Salut,
j'en avais fait un pour le site BDovore (voir viewtopic.php?t=3138) que j'ai un peu corrigé mais ça reste une ébauche. J'en avais commencé un autre pour http://www.bdtheque.com/ (bdtheque.ifs).

J'avais un peu abandonné mais je vais peut-être m'y remettre, enfin si quelqu'un veut les améliorer qu'il ne se gène pas. Cela dit, je ne sais pas si les informations de ces sites te conviennent.

[dvjulien2]

Merci a toi je vais voir ca !!!!

[dvjulien2]

merci encore, j'arrive a me debrouiller avec les tiens et celui de Rincevent

Par contre encore une petite question, est ce qqun avait egalement fait une mise en page pour imprimer une liste des BD... car les mises en page existante pr les DVD ne sont pas tip top...

Merci

[Ito]

Bonjour,

J'ai installé AMC sur une clef USB. Mai je n'arrive plus à utiliser la méthode de Rincevent pour séparer ma liste DVD de ma liste BD : je n'arrive pas a faire reconnaitre mes fichier "*.amcBD" par le logiciel.

Est ce que je peux modifier cela directement dans le fichier de base ??? si oui comment ?

Sinon y a t'il du nouveau sur le script pour http://www.bdtheque.com/ ... Ce serais tout simplement formidable.

Merci

[Ito]

Salut à tous,

Je ne sais pas si le créateur du script pour récupérer les infos sur le site BDnet est tjrs parmis nous, mais les webmaster du site BDnet on fait une refonte total du site sans se soucier de la compatibilité des scrips de mod à AMC ... C'est fou non ????

Bon sinon moi je serais preneur d'une mise à jour du script ...
parce que je suis bien incapable de la faire

@+
Ito

[sined79]

Salut :-)

Tout d'abord merci à tous pour votre travail formidable

Comme Ito, j'avoue que je serais preneur aussi de mises à jour des scripts bdnet car avec bdtheque je ne peux retrouver qu'un tome seulement de la bande dessinée XIII par exemple...

Merci :-)
Denis

[baffab]

salut,
j'ai fait une mise à jour pour les sites BDovore (voir viewtopic.php?t=3138) et http://www.bdtheque.com/ (bdtheque.ifs).

[Ito]

Merci baffab c'est super sympa ...
Bon il faut que j'essaye de programmer un script.
Il y a n tutorial qui pourrait m'expliquer ?

[yamamah]

Bonjour

Avant de poser ma question, j'ai corrigé le dernier fichier langue french-bd-4.lng en supprimant tous les débuts de ligne "mainwindow." (etc...) qui m'empéchaient de voir les menus en français. Est-ce un problème propre à moi ou cela peut-il aider les autres = à vous de voir pour mettre à jour la prochaine version.

Pour les scripts, j'ai utilisé le script BDvore de baffab -merci- mais j'ai 2 problèmes
1- dans les résultats de recherche du script, j'ai un décalage
j'ai le titre au lieu du n°, même si j'ai le titre à la place du titre
j'ai la catégorie à la place de l'année.
Ce n'est pas très grave car après acceptation, cela rentre dans l'ordre. Je pense donc que c'est un problème de fichier lng. Mais si qqun pouvait creuser le sujet, ce serait pas mal
2- je n'ai pas les bonnes infos - sur l'exemple de Largo Winch
dans les champs "Série" où je devrais trouver "Largo Winch", je n'ai rien
dans le champ "N° de l'album", j'ai le titre et pas le n°
Ceci est pénalisant quand on veut faire des regroupements.
Est-ce un problème de scripts ou de qualité de la base BDovore ?

Merci à ceux qui se penchent sur le problème.

Yamamah

[yamamah]

Bonsoir,

Je viens de corriger qq lignes dans le fichier french-bd.lng comme suit

;Champs
Fields.Strings.String[0]=Numéro
Fields.Strings.String[1]=<< vide >>
Fields.Strings.String[2]=Collection de
Fields.Strings.String[3]=Prix d'achat (€)
Fields.Strings.String[4]=Série
Fields.Strings.String[5]=Date d'achat
Fields.Strings.String[6]=Emprunteur
Fields.Strings.String[7]=Note
Fields.Strings.String[8]=Titre de l'album
Fields.Strings.String[9]=N° de l'album
Fields.Strings.String[10]=Titre de l'album
Fields.Strings.String[11]=Scénariste
Fields.Strings.String[12]=Dessinateur
Fields.Strings.String[13]=Editeur
Fields.Strings.String[14]=Scénario
Fields.Strings.String[15]=Dépôt légal
Fields.Strings.String[16]=Année / Mois
Fields.Strings.String[17]=Notes Perso
Fields.Strings.String[18]=adresse web
Fields.Strings.String[19]=Description
Fields.Strings.String[20]=commentaires
Fields.Strings.String[21]=Format
Fields.Strings.String[22]=Format2
Fields.Strings.String[23]=Statut série
Fields.Strings.String[24]=Statut série2
Fields.Strings.String[25]=custo
Fields.Strings.String[26]=E.O.
Fields.Strings.String[27]=Style
Fields.Strings.String[28]=Numéro d'ISBN
Fields.Strings.String[29]=Numéro d'édition
Fields.Strings.String[30]=<< vide >>

et cela me donne un peu de cohérence entre l'export et les scripts. Cela me permet aussi de faire des regroupements avec les bons noms de champs dans le menu déroulant "grouper les BD". Je pense en effet que les bases BDovore etc... ne sont pas très bien renseignées.

@+

[baffab]

Salut yamamah,

je tiens à préciser que je ne me sers pas des fichiers de langue bd, ce qui peux expliquer que ça ne corresponde pas tout à fait. Je vais voir pour la prochaine version à faire coïncider tout ça un peu mieux.

PS: J'ai l'impression que ce fichier de langue ne marche plus, il faudrait le mettre à jour.

[baffab]

J'ai fait une mise à jour du script BDovore ainsi qu'un fichier de langue correspondant à peu près à ce qui est fait (mais qui ne correspond pas forcément à celui déjà existant) : BD-FR-baffab.lng (voir le sujet : [REL][FR] Script pour BDovore)

[Ito]

Salut et merci pour toutes ces mises à jour...
Utilises-tu un template particulier pour générer une page HTML. J'utilisais un script qui fonctionne très bien sous IE, mais qui plante sous FireFox et safari...
Si tu as quelques chose ... je serais preneur!
Merci
Ito

[baffab]

Ça fait bien longtemps que je ne génère plus de version HTML donc je ne pourrais pas trop t'aider. Par contre il faudrait voir avec le template dont tu parles, il pourrait s'adapter pour Firefox ou Safari si tu le précises.

EDIT : je viens de voir le modèle en question dont tu parles, je vais y jeter un oeil.

[Ito]

Merci baffab, c'est sympa !