[FR] Petite correction au script d'import Monsieur Cinéma

[Kiwi le Calamar]

Dans la version actuelle, il ne marche pas (si mon installation s'est déroulée sans erreur)

Il y a actuellement (ligne 75 à 77)

Code: Select all

     Page.Free;
     if PickTreeExec(Address) then
        AnalyzePage(Address);

il faudrait permuter pour avoir (si j'ai bien compris et en tout cas ça marche mieux pour moi comme ça )

Code: Select all

     if PickTreeExec(Address) then
        AnalyzePage(Address);
      Page.Free;

[Kiwi le Calamar]

Faites comme si je n'avais rien dit... Je ne comprends plus rien...

[Kiwi le Calamar]

En fait, c'est très mystérieux... Si je fais F6 F9, il démarre le script (j'ai remis le code original), fait quelque chose, puis rien, il me dit "script executed with success", mais n'affiche jamais l'arbre des choix. Par contre, si je fais F6 puis que je clique sur Run, alors l'exécution du script se fait normalement... mystèèèère...

[Kiwi le Calamar]

En fait, ce qui marche correctement, c'est:
F6, F9 (exécution pour rien), F9 (ok, j'ai le PickTree)

C'est très étrange....

[Kiwi le Calamar]

Aussi curieux que ça puissse paraître... à la première exécution:
le test

Code: Select all

 if Pos('<a href="/">Accueil</a> > Recherche  </td>', Line) > 0 then
    

semble renvoyer false... mais à toutes les exécutions ultérieures, ça renvoie true... ??? étrange...

[Kiwi le Calamar]

Ce coup-ci, j'ai trouvé, pour que le script tourne il faut, à la ligne 50

Code: Select all

if Pos('Accueil</a> > Recherche  </td>', Line) > 0 then 

(supprimer le a href)

Curieusement, au premier appel, il y a le href n'est pas vide... Etrange, étrange...

[antp]

Merci pour l'info
Je vais faire la correction

[Guest]

Si jamais la recherche ne retourne aucun résultat, le PickTree se remplit avec plein de n'importe quoi. Pour éviter, j'ai ajouté:

Code: Select all

      BeginPos := Pos('<b>  Films </b>', Line);
      if (BeginPos > 0) then
      begin

(le if then), aux alentours de la ligne 56