English > Development

Script for egafd.com

<< < (18/27) > >>

Ivek23:

--- Quote ---a baby! because my english is approximative and sometimes it could makes somes confusions or misunderstanding, so if you could be most simply possible, that's all!
--- End quote ---

OK, he is best expressed in its Slovenian language, for translation into English using Google Translate.
If anything helps when I next added a reply, this also in my own language.
(Če kaj pomaga, ko bom naslednjič dodal reply,
bo ta  tudi v mojem jeziku.)

pra15:
Me, i use a dictionary!

I looked my search function and i didn't find the error!
Somes page works but if there's no 'notes' like this it not works:
http://www.egafd.com/actresses/details.php/id/n00008

The prlist is good but the script stop after have choosen a name.
I don't understand why!

I added an if pos('<th>Notes</th>', HTML) > 0 then begin in parsepeople before using this part of the page but doesn't work.

If you have an idea?

Ivek23:
http://www.egafd.com/actresses/details.php/id/n00008

Works a bit slower but it works for me.


--- Quote ---I added an if pos('<th>Notes</th>', HTML) > 0 then begin in parsepeople before using this part of the page but doesn't work.
--- End quote ---

Perhaps what this helps


--- Code: ---//---------------------- Parse Page -------------------------
// ParsePage
// - Entrypoint for the script. Check if the search-term leads to zero, one or many results.
function ParsePage(HTML : String; URL : AnsiString) : Cardinal;
var NomTitle : string;

begin

NomTitle := '<title>' + RealName + '</title>'; //Valeur Titre dans la page de l'actrice

//Choix suivant page chargée


If Pos('<title>Actresses:', HTML) > 0 then begin //Si page index actrices
SearchResults(HTML); //Appel de la fonction recherche dans page index
Result := prList; //Résultat de la recherche
end else
If Pos('<title>Actresses:', HTML) < 0 then begin
LogMessage('Erreur...');
Result := prError; //error (actrice non trouvée)
end
else
//Page actrice
If Pos('<th>Notes</th>', HTML) > 0 then begin //Si page actrice
Mode := smNormal;
ParsePeople(URL, HTML); //Recherche des infos
Result := prDownload; //Récupérer les données
end
else
If Pos('<th>Pseudonyms</th>', HTML) > 0 then begin //Si page actrice
Mode := smNormal;
ParsePeople(URL, HTML); //Recherche des infos
Result := prDownload; //Récupérer les données
end
else
If Pos('<th>Films</th>', HTML) > 0 then begin //Si page actrice
Mode := smNormal;
ParsePeople(URL, HTML); //Recherche des infos
Result := prDownload; //Récupérer les données
end else
Result := prError; //erreur (page non trouvée)

end;

//-----------------------Initialisation du script-----------------

begin
 Mode := smSearch;   //Mode d'initialisation du script
end.
--- End code ---

He also added the full script for the help.

[attachment deleted by admin]

pra15:
You're script doesn't work for me!

With what name ('title') did you make search : segaug, nicole segaud.....
Have you remove url before search?

I don't understand!

Ivek23:

--- Quote from: pra15 on December 21, 2011, 06:49:08 am ---You're script doesn't work for me!

With what name ('title') did you make search : segaug, nicole segaud.....
Have you remove url before search?

I don't understand!

--- End quote ---

It is true that this segaug, nicole segaud.....  does not work, but Nicole Segaud would like it should work. Pictures attached.

Script does not work for all or only at this address. With me this script works perfectly, no major problems with what the title might work more slowly but it works.

[attachment deleted by admin]

Navigation

[0] Message Index

[#] Next page

[*] Previous page