Personal Video Database

Hello,
SOPA block downloading infos with script iafd_people !
You must deactivate all part in the script related to search photo and change in parse page : result := prfinished and not prdownload
The info are good but no photo!

Thank you!
Do you think we must add more style of search sentence (with 3 words for example) or this is not necessary.

I added notes in prList and changed somes errors in search procedure. (egafd_movie)

[attachment deleted by admin]

Here egafd_Movie with search procedure.

I change a little  :
If no result in the actual page (first letter alphabetic), prlist show others alphabetic pages for choice an other page.
I use two different searching sentence, the complete Title or a combination of the two first words of the title (we can improve more possibilities easily later).
For example :
Title = The Starter ====> The script search : 'the stater' and 'starter'
Title = The Young Starter =====> 'the young starter' and 'young'
Title = Starter, The ======> 'the starter' and 'starter' (if option in PVD place The in the end)

I made some test and it seems to work but.....

False there are bugs,
First change in GetDownloadUrl :
firstStr := LowerCase(Copy(nMovie, 1, (Length(nMovie)-(Length(nMovie)-1))));
and
//Search:
  I:= 0;
 
  While (I < nSearch) AND (ifFind = 0) do Begin
  logMessage ('while commence');


[attachment deleted by admin]

Many Thanks!

Hello,

I noted that if we have already create a database and if we want rename all movie file with data in PVD (like OrigTitle,year, studio) it's very difficult.
I think if a function can exist for use in script to rename a file using data in field it would be very interesting, and with this the possibility of change value in Path Field if it already exist.

Now i try to remedy to this in exporting my database in a CSV file, re-write my CSV file with a oooBasic macro where i change path, and re-import the new csv File in PVD.

Sorry for my english.
Thanks!

I changed procedure of search to more possibilities of results.
We can now obtain a result with "Segaud" for example.

I cleaned too variables who are not used.

I re-added conditions in parse people for <notes> <pseudonyms> and <Films> because i think within this, the script can give an error if for example :
there is part <notes> and there is not part <pseudonyms> in web page, in this case procedure parse page even so call parse people because 'IF pos(<notes>' is before 'IF pos(<pseudonyms' in parse page.

[attachment deleted by admin]

For me not work.
The script download directly data from http://www.egafd.com/actresses/details.php/id/n00082, i have not the list
and i don't understand why.

I modified SearchResults :

Before, as i declare RealName only in searchResults delete :
RealName := NomAct; (in getDownloadURL)
Montitle := ...... (in parsepage)

procedure SearchResults(HTML : string);

///////////////////////////////////////////////////////////////////////////////////////////
var curpos,endpos, counter : Integer; //
    actPosStart, actPosEnd, actalposStart, actalposEnd, urlPosStart, urlposEnd : integer;//
    beforeName, URLTemp, AliasName, NameTemp, RealName : string; //
///////////////////////////////////////////////////////////////////////////////////////////

Begin

//Méthode 2 Nom ou Pseudo
Curpos := Pos(nomAct, HTML);

If curpos > 0 then begin

endPos := curpos;
 
While (curpos > 0) AND (curpos < PosFrom('<h2 class="index">Actress:', HTML, Endpos)) do begin
endpos := curpos;

actPosStart:= PrevPos('>', HTML, curpos);
actPosEnd := Posfrom('</', HTML, actposStart);
NameTemp := Trim(Copy(HTML, actPosStart+1, (actPosEnd-actPosStart-1)));
LogMessage('NameTemp :' + NameTemp);
beforeName := Trim(Copy(HTML, actposStart-3, 1));
logMessage('before Name :'+ beforeName);

If copy(NameTemp,1,9) = 'alias for' then NameTemp := '';

Case NameTemp of
  '' :      Begin                     //Name in alias for ....
            actPosEnd := PosFrom('href="', HTML, actPosEnd);
            end;
           
  nomAct :  Begin                     //Same name as Title
            Case BeforeName of
              'c' : Begin             //Real Name
              RealName := NameTemp;
              AliasName := NameTemp;
              LogMessage('Real Name :' + RealName);
              // Get URL
              urlPosStart := Prevpos('href="', HTML, actposStart);
        urlPosend := PosFrom('" class="', HTML, urlPosstart);
        URLTemp := BASE_URL + Trim(Copy(HTML, urlposStart + 6, (urlPosEnd-urlPosStart-6)));
        LogMessage('URL:' + URLTemp);
        AddMoviePerson(RealName, RealName, '', Lowercase(URLTemp), ctactors);
        AddSearchResult(AliasName, NameTemp, '', LowerCase(URLTemp),'');
              end;
             
              else begin              // Good Name but Alias
              AliasName := NomAct;
              // Real Name
              actalPosStart := Posfrom('alias for ', HTML, actposEnd);
        actalposEnd := Posfrom('</span>', HTML, actalposstart);
        RealName := Trim(Copy(HTML, (actalposStart + 10), (actalposEnd - actalposStart - 10)));
        // Get URL
        urlPosStart := PrevPos('href="', HTML, actPosstart);
        urlPosend := PosFrom('" class="', HTML, urlPosstart);
        URLTemp := BASE_URL + Trim(Copy(HTML, urlposStart + 6, (urlPosEnd-urlPosStart-6)));
        LogMessage('URL :' + URLTemp);
        AddMoviePerson(NomAct, RealName, '', Lowercase(URLTemp), ctactors);
        AddSearchResult(AliasName, NameTemp, '', LowerCase(URLTemp),'');
              end;
            end;
 
            End;
    else begin
    // Alias Name
    actPosStart:= PrevPos('>', HTML, curpos);
    actPosEnd := Posfrom('</', HTML, actposStart);
    AliasName := Trim(Copy(HTML, actPosStart+1, (actPosEnd-actPosStart-1)));
    LogMessage('Alias Name :' + AliasName);
    beforeName := Trim(Copy(HTML, actposStart-3, 1));
   
      Case beforename of
        'c' : Begin                   // Alias is real Name
              // Real Name
              RealName := AliasName;
              LogMessage('Real Name :' + RealName);
              // Get URL
              urlPosStart := Prevpos('href="', HTML, actposStart);
        urlPosend := PosFrom('" class="', HTML, urlPosstart);
        URLTemp := BASE_URL + Trim(Copy(HTML, urlposStart + 6, (urlPosEnd-urlPosStart-6)));
        LogMessage('URL:' + URLTemp);
        AddMoviePerson(NomAct, RealName, '', Lowercase(URLTemp), ctactors);
        AddSearchResult(AliasName, RealName, '', LowerCase(URLTemp),'');
              end;
        else begin
              // Real Name
              actalPosStart := Posfrom('alias for ', HTML, actposEnd);
        actalposEnd := Posfrom('</span>', HTML, actalposstart);
        RealName := Trim(Copy(HTML, (actalposStart + 10), (actalposEnd - actalposStart - 10)));
        NameTemp := 'alias for ' + Realname;
        // Get URL
        urlPosStart := PrevPos('href="', HTML, actPosstart);
        urlPosend := PosFrom('" class="', HTML, urlPosstart);
        URLTemp := BASE_URL + Trim(Copy(HTML, urlposStart + 6, (urlPosEnd-urlPosStart-6)));
        LogMessage('URL :' + URLTemp);
        AddMoviePerson(NomAct, RealName, '', Lowercase(URLTemp), ctactors);
        AddSearchResult(AliasName, NameTemp, '', LowerCase(URLTemp),'');
        end;
              end;
      end;
    end;

curpos := PosFrom(nomAct, HTML, actPosEnd);

end;

end;

end;
It seems to work!
We can now search with part of name or part of alias name (only if the part is in good alphabetic page).

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!