Reprise du message précédent :

 
Je l'avais fait    
Vraiment terrible ce programme!!!

J'ai un petit problèm: quandd j'utilise le script pour importer les infos d'allocine, dans les acteurs et le producteur il y a quelques bugs: certains espaces sont remplacés par " ". Une solution?

Heu normalement les   sont remplacés par des espaces... Avec quel film ça arrive ? Tu utilises le script d'origine ou bien une version qui est modifiée par toi ?

 
J'utilise le script modifié Mais bon j'ai rien changé au niveau des acteurs, et le seul truc que j'ai fait c'est mettre ce qui se met normalement dans "director" dans la case "producer", virer l'info de pays et inverser original et translated title... Ce qui est bizarre c'est qu'il n'y a que certains espaces qui bugent, la plupart marchent (testé sur armageddon et un autre film).

bhen c'est en effet très bizarre
Sinon pour virer les   faut utiliser la procédure HTMLRemoveTags

bon g bien tester a fond enfin ce que je peux faire ^^ et j adorce ton prog par contre g trouve un petit bug quand il recup les infos depuis un divx il met toujours 2 aux nombres de cds ????.....

c'est bizarre ça... normalement il ajoute 1 à la valeur qui est deja là pour chaque fichier avi/mpg/divx/rm/mov/... dont on extrait les infos
j'ai pas de prob avec ça...

ok alors normal ^^ car g deja rempli cette case avec le fichier que tu importes au debut j avais fait une colonne nb de cd donc a chaque fois il me rajoute 1
 
sinon pour le son et la video il ne met que le type jamais la qualite style mp3 mais ??mhz pareil divx 3 low >> bitrate ???
 
c peut etre normal c juste pour savoir
 
sinon peux tu integrer une option du style srcipting sur les fichiers qui ont pas encore les infos pour tous les films qui ne sont pas sur allocine par exemple car j en ai pas mal que je trouve pas dessus et que je voudrais completer avec les autres sites mais g la flemme de les recocher un par un merci

Pour le bitrate, bhen faut que je le code, je sais pas trop comment faire ça, je cherche toujours On m'a passé un truc en C mais faut que je le traduise en Pascal.
 
Pour la "mise à jour" des champs des films, ça doit être faisaible en modifiant le script (Tools -> Scripting, là on peut appliquer un script à toute la liste, et suffit avant d'assigner chaque champ de faire :
 
if GetField(nom du champ) = '' then
  SetField(nom du champ, valeur);
 
si j'ai le temps je modifierai le script d'IMDB pour ça, à moins que quelqu'un ne veuille le faire

eheh moi je te propose juste des ameliorations bug ou autres apres ton soft tu t en occupes en tout cas je l aime bocoup ^^ manque plus que le coup des cases lorsqu on a deja les infos et c top

Romf a écrit a écrit : J'ai un petit problèm: quandd j'utilise le script pour importer les infos d'allocine, dans les acteurs et le producteur il y a quelques bugs: certains espaces sont remplacés par " ". Une solution?

idem pour moi
pour être plus précis, il le fait à la fin, là où commence le "plus"
et ce pour n'importe quels films

Tu fais quoi exactement ? (pour que je puisse le faire, j'ai jamais eu de   qui apparaissent moi)

La procédure normale,    
 c-a-d je tape le titre du film dans "titre original" ensuite je fais shift F10  j'exécute le sript et lorsque le film est trouvé, je clique sur OK
 
aussi bien ave le script "allociné france" qu'avec "allociné france (pic)"  

 
Je crée une nouvelle fiche, je lance mon script modifié et la il y a des   a certains endroits.... Ca vient peut etre du script?
Le voila:
 
 
program Allocine_FR;
var
  MovieName: string;
 
function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
  i: Integer;
begin
  result := -1;
  if StartAt < 0 then
    StartAt := 0;
  for i := StartAt to List.Count-1 do
    if Pos(Pattern, List.GetString(i)) <> 0 then
    begin
      result := i;
      Break;
    end;
end;
 
procedure AnalyzePage(Address: string);
var
  Page: TStringList;
  LineNr: Integer;
  Line: string;
  BeginPos: Integer;
begin
  Page := TStringList.Create;
  Page.Text := GetPage(Address);
//  Page.Text := Page2;
  if pos('<TITLE>Recherche', Page.Text) = 0 then
    AnalyzeMoviePage(Page)
  else
  begin
    PickTreeClear;
    LineNr := FindLine('AlloCiné</A> : <b>Recherche</b>', Page, 0);
    if LineNr > -1 then
    begin
      Line := Page.GetString(LineNr);
      BeginPos := pos('dans les titres de films', Line);
      if BeginPos > 0 then
      begin
        Delete(Line, 1, BeginPos);
        PickTreeAdd('Films déjà sortis', '';
        AddMoviesTitles(Line);
      end;
      BeginPos := pos('dans les prochaines sorties de films', Line);
      if BeginPos > 0 then
      begin
        Delete(Line, 1, BeginPos);
        PickTreeAdd('Prochaines sorties', '';
        AddMoviesTitles(Line);
      end;
      Line := Page.GetString(LineNr);
      BeginPos := pos('<LI><A HREF="rubrique.html?typerecherche=3&', Line);
      if BeginPos > 0 then
      begin
        Delete(Line, 1, BeginPos + 12);
        PickTreeMoreLink('http://www.allocine.fr/recherche/' + copy(Line, 1, pos('"', Line) - 1));
      end;
      if PickTreeExec(Address) then
        AnalyzePage(Address);
    end;
  end;
  Page.Free;
end;
 
procedure AnalyzeMoviePage(Page: TStringList);
var
  Line, Value: string;
  LineNr, IntValue: Integer;
  BeginPos, EndPos: Integer;
begin
 
  // Picture
  LineNr := FindLine('allocine.fr/acmedia/images/affiches', Page, 0);
  if LineNr = -1 then
    LineNr := FindLine('allocine.fr/acmedia/medias', Page, 0);
  if LineNR > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos('<IMG src=''', Line) + 10;
    if BeginPos > 10 then
    begin
      EndPos := pos(''' border=0>', Line);
      Value := copy(Line, BeginPos, EndPos - BeginPos);
      GetPicture(Value, False);
    end;
  end;
  // Original & Translated Title
 LineNr := FindLine('<FONT Class="titrePage">', Page, 0);
 Line := Page.GetString(LineNr);
 if LineNr > -1 then
 begin
   BeginPos := pos('<FONT Class="titrePage">', Line) + 24;
   if pos('<font size=2>', Line) = 0 then
   begin
     EndPos := pos('</FONT>', Line);
     Value := copy(Line, BeginPos, EndPos - BeginPos);
     SetField(fieldOriginalTitle, Value);
   end else
   begin
     EndPos := pos('<font size=2>', Line);
     Value := copy(Line, BeginPos, EndPos - BeginPos - 1);
     SetField(fieldOriginalTitle, Value);
     BeginPos := EndPos + 14;
     EndPos := pos('</font>', Line) - 1;
     Value := copy(Line, BeginPos, EndPos - BeginPos);
   end;
  // Year
    if pos('(', Line) > 0 then
    begin
      Delete(Line, 1, pos('(', Line));
      EndPos := pos('', Line) - 1;
      Value := copy(Line, 1, EndPos);
      SetField(fieldYear, Value);
    end;
  // Category
    if pos('Class="size2"', Line) > 0 then
    begin
      Delete(Line, 1, pos('">', Line) + 1);
      EndPos := pos('</FONT>', Line);
      Value := copy(Line, 1, EndPos - 1);
      SetField(fieldCategory, Value);
    end;
  // Length
    if pos('Durée ', Line) > 0 then
    begin
      Delete(Line, 1, pos(': ', Line) + 6);
      IntValue := StrToInt(copy(Line, 1, 1), 0) * 60;
      if pos('mn.', Line) > 0 then
        IntValue := IntValue + StrToInt(copy(Line, 4, 2), 0);
      SetField(fieldLength, IntToStr(IntValue));
    end;
 // Comments
  if pos('mn.', Line) > 0 then
  begin
   Value := copy(Line, pos('mn.', Line) + 4, pos('</TD>', Line) - 1);
   HTMLRemoveTags(Value);
   HTMLDecode(Value);
   SetField(fieldComments, Value);
  end;
  // Actors
    if pos('"titreDescription">Avec', Line) > 0 then
    begin
      Delete(Line, 1, pos('Class="titreDescription">Avec', Line) + 34);
      EndPos := pos('Plus...', Line);
      if EndPos = 0 then
        EndPos := pos('</TD>', Line);
      Value := copy(Line, 1, EndPos - 1);
      HTMLRemoveTags(Value);
      HTMLDecode(Value);
      SetField(fieldActors, Value);
    end;
  // Director
    if pos('"titreDescription">Réalisé par', Line) > 0 then
    begin
      Delete(Line, 1, pos('Class="titreDescription">Réalisé par', Line) + 48);
      EndPos := pos('Plus...', Line);
      if (EndPos = 0) or (EndPos > pos('</TD>', Line)) then
        EndPos := pos('</TD>', Line);
      Value := copy(Line, 1, EndPos - 1);
      HTMLRemoveTags(Value);
      HTMLDecode(Value);
      SetField(fieldProducer, Value);
    end;
  end;
  // Description
  LineNr := FindLine('<DIV align="justify"><FONT class="size2">', Page, LineNr);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    Value := '';
    repeat
      BeginPos := pos('"size2">', Line);
      if BeginPos > 0 then
        BeginPos := BeginPos + 8
      else
        BeginPos := 1;
      EndPos := pos('</FONT></DIV>', Line);
      if EndPos = 0 then
        EndPos := pos('<br>', Line);
      if EndPos = 0 then
        EndPos := Length(Line) + 1;
      if EndPos > 0 then
        Value := Value + copy(Line, BeginPos, EndPos - BeginPos) + #13#10;
      EndPos := pos('</FONT></DIV>', Line);
      if EndPos = 0 then
      begin
        LineNr := LineNr + 1;
        Line := Page.GetString(LineNr);
      end;
    until EndPos > 0;
    HTMLRemoveTags(Value);
    SetField(fieldDescription, Value);
  end;
  // URL
  LineNr := FindLine('class="link10" target=_blank>', Page, LineNr);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos('class="link10" target=_blank>', Line) + 29;
    EndPos := pos('</A></TD></TR>', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    SetField(fieldURL, Value);
  end;
  DisplayResults;
end;
 
procedure AddMoviesTitles(var Line: string);
var
  MovieTitle, MovieAddress: string;
  StartPos: Integer;
begin
  repeat
    StartPos := pos('<LI><A HREF="/film/fichefilm', Line);
    if StartPos > 0 then
    begin
      Delete(Line, 1, StartPos + 12);
      MovieAddress := copy(Line, 1, pos('"><FONT color=#003399>', Line) - 1);
      StartPos := pos('#003399>', Line) + 8;
      MovieTitle := copy(Line, StartPos, pos('</TD>', Line) - StartPos);
      HTMLRemoveTags(MovieTitle);
      PickTreeAdd(MovieTitle, 'http://www.allocine.fr' + MovieAddress);
    end;
  until (StartPos < 1) or ((pos('<LI><A HREF="/film/fichefilm', Line) > pos('<FONT class=size2 color=#AA0000>', Line)) and (pos('<FONT class=size2 color=#AA0000>', Line) > 0));
end;
 
begin
  if CheckVersion(3,3,0) then
  begin
    MovieName := GetField(fieldOriginalTitle);
    if MovieName = '' then
      MovieName := GetField(fieldTranslatedTitle);
    if Input('Allociné.fr Import', 'Enter the title of the movie:', MovieName) then
    begin
      AnalyzePage('http://www.allocine.fr/recherche/default.html?motcle='+UrlEncode(MovieName));
//      AnalyzePage('http://www.allocine.fr/recherche/rubrique.html?typerecherche=3&motcle='+UrlEncode(MovieName));
    end;
  end else
    ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.3.0)';
end.
 
     

Si tu disais aussi pour quels champs t'as le prob ça m'aiderait
 
Ha et je m'étais trompé, c'est pas HTMLRemoveTags pour transformer les &...;, c'est HTMLDecode
 
Et il n'est pas impossible qu'en corrigeant un bug samedi dans la fonction HTMLDecode j'en aie ajouté un autre

Romf a écrit a écrit : J'ai un petit problèm: quandd j'utilise le script pour importer les infos d'allocine, dans les acteurs et le producteur il y a quelques bugs: certains espaces sont remplacés par " ". Une solution?

 
Voila pour les champs qui posent problème.. Il me semble que c'est les seuls

honte à moi : j'utilisais chez moi l'avant dernière version (la version que j'utilise pour mon catalogue est dans un dossier séparé), donc j'avais pas remarqué, mais en effet il y a un bug
Je corrige ça ce soir

antp a écrit a écrit : honte à moi : j'utilisais chez moi l'avant dernière version (la version que j'utilise pour mon catalogue est dans un dossier séparé), donc j'avais pas remarqué, mais en effet il y a un bug Je corrige ça ce soir

 

Merci  
 
PS pourquoi tu utilises pas la dernière version?

on attendra une mise à jour demain ?    

Romf a écrit a écrit :   PS pourquoi tu utilises pas la dernière version?

 
j'ai trois dossiers :
 
- dev : contient le dernier exe compilé, souvent en test
- final/dev : contient le exe qui sera dans le setup
- stable : contient le exe que j'utilise personnellement
 
et là comme j'ai juste corrigé un bug qui n'influençait le soft que pour un script que quelqu'un était occupé à écrire, j'ai pas mis le exe modifié dans mon dossier "stable", je l'ai directement mis dans le setup. Donc j'ai pas retesté avec Allociné

Capi a écrit a écrit : on attendra une mise à jour demain ?

 
Ce soir normalement (avant minuit )

Bon le bug des   est résolé
Vous pouvez redownloader le truc.
 
Faudrait que je fasse un système pour ne pas devoir downloader à chaque fois le tout gros exe
 
Mais ça oblige alors à avoir des .dpl avec le programme, et au total ça prend plus de place. Pour les mises à jour c'est peut-être mieux. Idem pour ceux qui ont déjà Delphi 6.
Je ferai un test, quitte à proposer les deux au download, soit le gros exe soit le petit exe + les packages sélectionnables indépendemment.

Pourquoi pas un module de mise a jour automatique? C'est pas mal quand il y a ca

Bhen faut quand même redownloader tout le exe qui fait 2 Mo
Donc c'est pareil.
Enfin c'est vrai que pour l'utilisateur ce serait peut-être plus pratique.
Je vais voir.

C'est clair que ce serait plus pratique... On ouvre le programme et hop il dit qu'il y a une nouvelle version, et il la télécharge... Le pied

antp a écrit a écrit : Bon le bug des   est résolé Vous pouvez redownloader le truc.

Je confirme, c'est nikel.  Merci

 
j'ai vraiment écrit ça ?

Je viens d'essayer ton soft et un seul mot me vient : Bravo §
Ton logiciel est excellent, ca va etre génial pour cataloguer mes Divx.
Une remarque : le script de récupération sur Allociné ne donne parfois aucune réponse valable alors que le site possede bien une fiche pour le film.
J'ai obtenu de meilleurs résultats en modifiant la ligne de recherche du script (vers la fin), par celle qui était en commentaire (avec les //). De cette façon, j'obtiens bcp + de réponses.
Encore une fois félicitations pour ce magnifique travail et merci de le maintenir en Freeware.

oui pour le script dans certains cas c'est une url qui marche mieux dans certains cas c'est une autre

tiens, c'est domage qu'on puisse pas lancer scripting quand on fait une séllection multiple en affichage tableau

heu oui ça doit être une erreur de ma part, y a pas de raison qu'on puisse pas... vais arranger ça pour la prochaine mise à jour.

salut, je viens d'ajouter mes modifications aux scripts allocine derniere version...
 
pour ceux que ca interesse:
http://membres.lycos.fr/soltan/All [...] ce%202.ifs
http://membres.lycos.fr/soltan/All [...] c)%202.ifs
 
pour mémoire j'ai ajouté les catégories :
- les films déjà sortis (de ou avec)
- les prochaines sorties de films (de ou avec)
 
et le lien vers "Plus..." pour chacune de ces catégories.
 
j'ai aussi rajouté un systéme de notation basé sur les étoiles fournies par la presse et les spectateurs.
le Nb d'etoiles alant de 1 a 4 et étant donné pour la presse et/ou les spectateurs, ca fait une note allant de 2 à 8 donc en la multipliant par 1.25 et en prennant la valeur entiére, ca donne une note allant de 2 a 10.
paske si on passe vers des notations de 0 à 3 et qu'on multiplie par 1.66 ca fait des notes relativement basses...
 
voilà.

C'est toi qui m'avait déjà envoyé une modif de script ? J'ai oublié de l'inclure avec le programme
J'incluerai ceux-ci à la prochaine mise à jour
Ou alors faudra que je regarde tes modifs pour les inclure dans le script de base...  
 
Si tu veux tu peux mettre ton nom dans le cadre du début du fichier...

ouais, t'as ka les inclure dans le script de base... c le plus simple...
 
sinon, je voulais me servir du find&replace là...
 
j'ai pas compris comment on spécifie le field, j'ai essayé ca:
  Field = 'fieldDisk';
  Field = fieldDisk;
  Field = 'Disk';
  Field = Disk;
 
je voulais faire ca:
  OldValue = '';
  NewValue = '1';
  Field = 'fieldDisk';
 
 
amarche pô... comment faut faire?

OldValue = '';
  NewValue = '1';
  Field = fieldDisk;
 
"Field" est un entier, donc faut soit mettre un entier soit une constante (qui est en fait un entier)

ah si je met l'entier (28 je viens de trouver en comptant )
ca marche, mais si je met
 
fieldDisk ca marche pas, les ocnstantes sont pas reconnues dans le script...

ah en fait j'ai pas eu de bol... c un petit bug qui n'est là que pour le fieldDisk pas pour les autres...

arf c'est fieldDisks et pas fieldDisk
Je me suis planté en faisant la doc

oki
 
sinon, encore une 'tit question, comment on fait pour faire un script pour un site qui fait du post, et pas du get???

On me demande pour que je l'ajoute dans la prochaine version

hehe, cool...
 
bein on est 2 alors... :]]]
 
paske j'voulais faire un 'tit script là, et en fait c enorme le nombre de sites qui marchent en post...