Personal Video Database

Quote from: pra15 on December 24, 2011, 09:29:04 pm

For ewample if you search Natacha, the script download info of Natacha but in the egafd (N) page there are other Natacha ( Natacha [2] , Natacha [3].....), so i would like that in the prlist i can choose the good natacha.
I you have an idea why the prlist not appears?

Quote from: pra15 on December 25, 2011, 03:17:49 pm

http://www.egafd.com/actresses/details.php/id/n00082

Otherwise work fine, now it is again a problem with this:
when I search results for Natacha PVD freezes me with your latest script, while the previous version with no problems.
This version of search results should be kept and modify it a little further and really the right solution for search results.

egafd_people (pra15)13 script attached.

[attachment deleted by admin]

Merry Christmas!

The same back.

For ewample if you search Natacha, the script download info of Natacha but in the egafd (N) page there are other Natacha ( Natacha [2] , Natacha [3].....), so i would like that in the prlist i can choose the good natacha.
I you have an idea why the prlist not appears?

With me everything is OK with the results.
Picture attached.
egafd_people (4) (Ivek23)13 script attached.

[attachment deleted by admin]

Thanks for Christmas Beta version 1.0.2.2

BTW:
Merry Christmas And Happy New Year 2012

Thanks.

I don't know if it's possible to change title (putting the real name), during the script after choosing a line in the prlist and before getting web page.

Not I know this may be what help you:
КиноПоиск.Ru for movie
КиноПоиск.Ru for people

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

Works a bit slower but it works for me.

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.

Perhaps what this helps

//---------------------- 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.
He also added the full script for the help.

[attachment deleted by admin]

I made this just for me, because i use iafd too and this can allow to sort more easily my list of actors.

OK, now I understand,

I don't understand very well why you want to add birthday to the birthplace, the data is already in the field Birthday, if you think it's better, ok!

This will only be with me, in the final version, which will be accessible to all, will like this

the data is already in the field Birthday

as was mentioned and it is right that such remains.

I agree, but I think you got the same opinion.

I don't understand very well this :
Would be found to regulate  egafd movie script  that may be looking for movie titles the same way as in  egafd  people  script .

I wanted to say as follows:
If you have the title of the film and no other data in the PVD database that it could be the egafd movie script through the search results find the url and other info data for such a movie title.

Sorry, you should write to me like a baby

I do not understand this.

Will this be something to help.

For TabBirthDay

TabBirthDay := ['1860', '1861', '1862', '1863', '1864', '1865', '1866', '1867', '1868', '1869'
                , '1870', '1871', '1872', '1873', '1874', '1875', '1876', '1877', '1878', '1879'
                , '1980', '1981', '1982', '1983', '1984', '1985', '1986', '1987', '1988', '1889'
                , '1890', '1891', '1892', '1893', '1894', '1895', '1896', '1897', '1898', '1899'
        , '1900', '1901', '1902', '1903', '1904', '1905', '1906', '1907', '1908', '1909'
                , '1910', '1911', '1912', '1913', '1914', '1915', '1916', '1917', '1918', '1919'
                , '1920', '1921', '1922', '1923', '1924', '1925', '1926', '1927', '1928', '1929'
                , '1930', '1931', '1932', '1933', '1934', '1935', '1936', '1937', '1938', '1939'
                , '1940', '1941', '1942', '1943', '1944', '1945', '1946', '1947', '1948', '1949'
                , '1950', '1951', '1952', '1953', '1954', '1955', '1956', '1957', '1958', '1959'
                , '1960', '1961', '1962', '1963', '1964', '1965', '1966', '1967', '1968', '1969'
                , '1970', '1971', '1972', '1973', '1974', '1975', '1976', '1977', '1978', '1979'
                , '1980', '1981', '1982', '1983', '1984', '1985', '1986', '1987', '1988', '1989'
                , '1990', '1991', '1992', '1993', '1994', '1995', '1996', '1997', '1998', '1999'
, 'exit'];

For country i add somes :

Code: [Select]

TabCountry := ['Austrian', 'Belgian', 'Brazilian', 'Bulgarian', 'Belarusian', 'Canadian'
                , 'Chinese', 'Cuban', 'Colombian', 'Croatian', 'Cyprus', 'Czech', 'Dutch'
                , 'Danish', 'English', 'Estonian', 'Ecuadorian', 'Finnish', 'French', 'German'
                , 'Greek', 'Hungarian', 'Indian', 'Irish', 'Italian', 'Kyrgyzstan', 'Latvian'
                , 'Lithuanian', 'Maori', 'Moldovan', 'Netherlands', 'Norwegian', 'Portuguese'
                , 'Polish', 'Romanian', 'Russian', 'Slovak', 'Slovenian', 'Spanish', 'Swiss'
                , 'Swedish', 'Venezuelan', 'Ukrainian', 'Yugoslavian', 'French-Canadian'
                , 'French (Algerian origin)', 'French, Moroccan origin', 'French (Moroccan origin)'
                , 'French of Vietnamese origin','French, Vietnamese origin,', 'Russian / Kyrgyzstan'
                , 'Yugoslavian/French', 'exit'];

Thanks for clearing the list.

I can not connect Birthday and TabCountry info data into a single, into a single piece of code to connect to the Birthplace box transferred data for the country and year of birth together.

Should look something like as attached code:

Code: [Select]

if (Birthday <> '') AND (TabCountry[I] <> '') then
AddFieldValue(pfBirthplace, Birthday + '  b. ' + TabCountry[I]);
I := High(TabCountry);or

Code: [Select]

if (Birthplace <> '') AND (TabCountry[I] <> '') then
AddFieldValue(pfBirthplace, Birthplace + '  b. ' + TabCountry[I]);
I := High(TabCountry);
You can somehow arrange to make this work, nice please.

For your problem
AddFieldValue(pfBirthplace, (Birthday + 'b.' + TabCountry) ); you have forgotten ()

I'm just trying this and it works!

Anyway I do with this part of code with your solution, we PVD always report this error:
Out of Range
so I do not know more what to do that this would still work as it should, because I almost gave up in this case.
I use the PVD version 9.9.21, what about you.

Are two redundant beauty error:
First this:
begin
AddFieldValue(pfGenre, 'EGAFD');

// URL: //
I have blocked or deleted, because there will always be one way or another display, and my opinion is that does not belong there at all.

Second this
//////////
// BIO: //

curpos := Pos('<th>Films</th>', HTML);
    LogMessage('Films readout');
    if curPos > 0 then    begin

Lien := '----- Filmographie (EGAFD) -----' + #09;

    EndPos := curPos;
Equal, this will always be displayed, and if there is a filmography or is not, so it is better so that

//////////
// BIO: //

curpos := Pos('<th>Films</th>', HTML);
    LogMessage('Films readout');
    if curPos > 0 then    begin

Lien := '' ;

    EndPos := curPos;
and not otherwise shown, because important the fact this is that when the script as final version of the script well done and it will be possible to get, or will also available via auto-update system, potential users this part of the displayed data probably they will not like.

I would ask if you can attach the full script to test it, even with my with problems associated part of the code, and see my script errors.
Thanks.