Page 1 of 1
[FR] Petite correction au script d'import Monsieur Cinéma
Posted: 2003-05-24 18:56:26
by 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;
Posted: 2003-05-24 20:03:18
by Kiwi le Calamar
Faites comme si je n'avais rien dit... Je ne comprends plus rien...
Posted: 2003-05-24 20:06:44
by 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...
Le mystère s'épaissit...
Posted: 2003-05-24 20:11:57
by 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....
Un espoir
Posted: 2003-05-24 20:21:44
by 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...
Posted: 2003-05-24 20:47:24
by 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...
Posted: 2003-05-24 20:57:46
by antp
Merci pour l'info
Je vais faire la correction
Encore un petit complément
Posted: 2003-05-24 21:25:07
by 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