Author Topic: Script for egafd.com  (Read 32952 times)

0 Members and 1 Guest are viewing this topic.

Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #20 on: November 29, 2011, 10:24:11 pm »
Exact ???

« Last Edit: November 29, 2011, 11:07:36 pm by pra15 »

Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 1899
    • View Profile
Ivek23
Win 7 32bit, 64bit   PVD v0.9.9.21


Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #22 on: November 30, 2011, 09:02:35 pm »
Sorry, it's my first script!
I don't understand "egafd_people_mod.psf script  makes transfer all info data under these headings".

Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 1899
    • View Profile
Re: Script for egafd.com
« Reply #23 on: November 30, 2011, 09:47:05 pm »
Sorry, it's my first script!
I don't understand "egafd_people_mod.psf script  makes transfer all info data under these headings".

I just wanted to say this, that this script transfers the images actresses as well as titles of films, because usually when something is missing information that your  egafd_people (2). psf script  does not transfer any data.
Ivek23
Win 7 32bit, 64bit   PVD v0.9.9.21


Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #24 on: November 30, 2011, 10:20:09 pm »
I'm just triying egafd_people_mod.psf script with the URL up and tonight all is good, i don't understand.
Yesterday they didn't work???
My connection is low perhaps is for this reason ?

Now egafd_people(2).psf doesn't work, and i don't know what i had changed. The script find the good URL, the good name and block when he "GET" the page before the execution of ParsePeople! So it's not the default of data who is in cause!
« Last Edit: November 30, 2011, 11:17:15 pm by pra15 »

Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 1899
    • View Profile
Re: Script for egafd.com
« Reply #25 on: December 01, 2011, 09:59:58 am »
Now at least I hope so we solve problems around this or will this solve the problem.

For certain players not transfer info data as is the case here:

http://www.egafd.com/actresses/details.php/id/a00004
http://www.egafd.com/actresses/details.php/id/j00012
http://www.egafd.com/actresses/details.php/id/k00007
http://www.egafd.com/actresses/details.php/id/l00451
http://www.egafd.com/actresses/details.php/id/m00958
http://www.egafd.com/actresses/details.php/id/n00481

especially at this url:

http://www.egafd.com/actresses/details.php/id/a01022
http://www.egafd.com/actresses/details.php/id/b00117
http://www.egafd.com/actresses/details.php/id/d00140
http://www.egafd.com/actresses/details.php/id/j00652
http://www.egafd.com/actresses/details.php/id/k00487
http://www.egafd.com/actresses/details.php/id/m01376

It is interesting that in all these URL addresses  egafd_people_mod.psf script  makes transfer all info data under these headings, as well as actresses pictures or pictures with the words "No Picture Available".

That this is perhaps how to fix that will work for all URLs addresses.

egafd_people (3)(Ivek23).psf is attached

This script removes all problems and works great (perfect) for me, at least as far as I have done tests so far.

If this is okay now, or it could be in a similar way fix the egafd_movie. psf script.

[attachment deleted by admin]
Ivek23
Win 7 32bit, 64bit   PVD v0.9.9.21


Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #26 on: December 01, 2011, 11:15:08 am »
Ok thanks, works good!
Just change URL to URL1 in :

Code: [Select]
Lien := Lien + '<link url="' + URL1 + '">';
If no notes ------> error in my script.
But i don't understand why!
The error is in the function ParsePeople and i put a logmessage in ParsePage before the call of ParsePeople and i don't see it in the log.


Just an another question, can we insert TAB in field Biography, for visually align notes of movie.
I tried manually with <TAB> but don't work, i tried too add &#09 in script but this give me an error.

I tried too : Calculate the number of caracter of each movie, take the bigest, make the difference between the length of each movie, but as each caracter have not the same width the result is not align.
« Last Edit: December 01, 2011, 12:28:58 pm by pra15 »

Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #27 on: December 02, 2011, 04:30:45 pm »
Sorry,

Reading help, i've seen that we can modify the field Bio in a skin file .xml.
I've seen that you're an expert (IVEK23 real good skins)!

I know nothing about skin, i tried to modify one skin in putting :
<Link memo valsperline="2"/>, before the line <bio/> ---> give an error. (no egality)

If it works i'll modify the script egafd_people later!

have you a link for learning to make an xml ?
« Last Edit: December 02, 2011, 04:37:04 pm by pra15 »

Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 1899
    • View Profile
Re: Script for egafd.com
« Reply #28 on: December 02, 2011, 04:58:22 pm »
Quote
I've seen that you're an expert (IVEK23 real good skins)!
Thanks.
I studied  other skin which is available via auto-update system and worked experiments until I really had made the skin for his taste.

Quote
If you have a link for learning to make an xml ?
Link for help and learning: http://www.videodb.info/help/hlp_skins.html

Quote
I know nothing about skin, i tried to modify one skin in putting :
<Link memo valsperline="2"/>, before the line <bio/> ---> give an error. (no egality)
What exactly are you going to say this and what to do with this. Describe a little more to help.

Ivek23
Win 7 32bit, 64bit   PVD v0.9.9.21


Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #29 on: December 02, 2011, 07:05:46 pm »
I have seen this page but i don't know how use the infos!

How use the properties, how write?

Up, i say i take a xml skin, and i tried to add this line <link memo...., because in the help page this propertie valsperline=”X”    says Number of separate values that should be shown on one line. So if i can separate the link of movie and note of this movie, perhaps i'll can align them.

i tried for example add </italic> manually in the field between the link and the notes but doesn't work!
So i need a tutoriel for learning to use the help? ;D

What i can write directly in the field, (like <Link url=....) and what i must write in a xml?
I don't know if i'am clear!
« Last Edit: December 02, 2011, 07:14:17 pm by pra15 »

Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 1899
    • View Profile
Re: Script for egafd.com
« Reply #30 on: December 02, 2011, 08:33:45 pm »
If you do not mind, would have answered the skin in the morning.

I'm in Bio adding links movies that are now in the movies section (see picture attached).

egafd_people (4)(Ivek23).psf is attached

[attachment deleted by admin]
Ivek23
Win 7 32bit, 64bit   PVD v0.9.9.21


Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #31 on: December 02, 2011, 11:27:09 pm »
Thanks,
Extra but with this method the list of movie in the database risk growing  rapidly, even if you don't have the movie.
This for this reason i opted for the first solution (the list just for info).
It's for this too, i asked up if it was possible to know in the script the movie who are also in database for not write them two times in the biography and in the filmography.

But filters are here for that i suppose!
« Last Edit: December 02, 2011, 11:44:32 pm by pra15 »

Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #32 on: December 03, 2011, 01:34:08 am »
Suggestion :
Declare Origt

After Get Movie

Code: [Select]
//If Original:
actposstart := actposEnd + 5;
actposstart := PosFrom('">', HTML, actposstart) + 2;
actPosEnd := PosFrom('</', HTML, actPosstart) - 1;
If copy(HTML, actposstart, 3) = 'alt' then
OrigT := Copy(HTML, (actPosstart + 22),(actPosEnd-actPosStart-21))
else
OrigT := Title;

Code: [Select]
AddPersonMovie(Trim(OrigT), '', '', Year, LowerCase(URL1), ctActors);
That's reduce the number of new Database Movie, just original title.

Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 1899
    • View Profile
Re: Script for egafd.com
« Reply #33 on: December 03, 2011, 03:52:04 pm »
I apologize for the late reply.
As far as I found out I would like to change People skin.
People section does not allow custom fields, for now does not (version 1 is also supposed to allow).

I know nothing about skin, i tried to modify one skin in putting :
<Link memo valsperline="2"/>, before the line <bio/> ---> give an error. (no egality)
This one is not - does not work - error
The potential is as follows

Code: [Select]
<tab>
              <caption>&amp;Biography</caption>
              <color>$E0ECFE</color>
              <row>
                <column halign="center">
                  <fieldlabel field="bio" />
                </column>
              </row>
              <row>
                <column>
                  <bio collapsedlines="3" valsperline="1">
  <font>
                    <size>11</size>
<name>Arial Black</name>
                   </font>
                  </bio>
                </column>
              </row>
            </tab>
or
Code: [Select]
              <color>$E0ECFE</color>
              <row>
                <column halign="center">
                  <fieldlabel field="bio" />
                </column>
              </row>
              <row>
                <column>
                  <bio collapsedlines="3" valsperline="1">
  <font>
                    <size>10</size>
<!-- <name>Arial Black</name> -->
                   </font>
                  </bio>
                </column>
              </row>
           
This is also the approximate answer to this:
I have seen this page but i don't know how use the infos!

How use the properties, how write?

Up, i say i take a xml skin, and i tried to add this line <link memo...., because in the help page this propertie valsperline=”X”    says Number of separate values that should be shown on one line. So if i can separate the link of movie and note of this movie, perhaps i'll can align them.

i tried for example add </italic> manually in the field between the link and the notes but doesn't work!
So i need a tutoriel for learning to use the help?

What i can write directly in the field, (like <Link url=....) and what i must write in a xml?
I don't know if i'am clear!
If for example in the skin Bio box do it Url hyperlink (as shown in the attached picture), then those in xml skin not necessary to enter anything.

However, I suggest you to look for the movie section topic My current skin for Ivek23 and download the skin pvd_movie_tabs_normal extra AllMovie.
For the People section of the skin PVD Personal ITabs and periodically review each of them and reorder them, thus you will also gain knowledge about the skins, at least I hope so.
If you do not know anything, but write a topic in the Support board and you will probably receive an answer to the question.



[attachment deleted by admin]
Ivek23
Win 7 32bit, 64bit   PVD v0.9.9.21


Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #34 on: December 03, 2011, 05:58:26 pm »
Thanks a lot,

I'll read all and hope i'll die less stupid after!  :-[

Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 1899
    • View Profile
Re: Script for egafd.com
« Reply #35 on: December 03, 2011, 06:38:37 pm »
Code: [Select]
// Get Role (Now defined)
         actPosStart := PosFrom('<a href="', HTML, EndPos);   // search for url start;
         actPosStart4 := PosFrom('> <i>', HTML, actPosStart)
         actPosEnd:=PosFrom('</i></li>', HTML, actPosStart4);    // search for url end
         Role := Trim(Copy(HTML, (actPosStart4 + 5), (actPosEnd - actPosStart4 - 5) ));
         LogMessage(Role);
     
         debug_pos1:=Pos('(',Role);
          if debug_pos1 >0 then
            Role:= Copy(Role,0,debug_pos1-1);
            LogMessage(Role);

In egafd_people (2). psf script I tried to add Role, but we do not manage to add a Role in Bio field. Would you try to add this to the script.

Thank you in advance.
« Last Edit: December 03, 2011, 07:17:41 pm by Ivek23 »
Ivek23
Win 7 32bit, 64bit   PVD v0.9.9.21


Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #36 on: December 04, 2011, 01:00:33 am »
I'll try.

In the meantime i modified the script iafd_people in the same idea that egafd_people.

I desactived somes infos, especially the section //Web Site because there's a little bug.
The text in the fieldBio (mode modify) is correct but in mode "design" the first movie of the filmographie go up the link of the website!
I don't know why.
If you're interested i post it.


[attachment deleted by admin]

Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #37 on: December 04, 2011, 10:31:07 am »
For Role :
Just after Year,

Code: [Select]
// Get Role (Not yet defined)
         actPosStart := PosFrom('<i>', HTML, (actposend-1)) + 4;
         actPosEnd:=PosFrom('</i></li>', HTML, actPosStart) - 1;
         Role := Trim(Copy(HTML, actposStart, (actPosEnd - actPosStart)));
         LogMessage('Role: ' + Role);
     
         debug_pos1:=Pos('(',Role);
         if debug_pos1 >0 then
         Role:= Copy(Role,0,debug_pos1-1);
         LogMessage(Role);

AddPersonMovie(Trim(Title), '', '', Year, LowerCase(URL1), ctActors);


// Total Line
If Lien <> '' then
Lien := Lien + #13;
If URL1 <> '' then
Lien := Lien + '<link url="' + URL1 + '">' + Name + '</link>';
If Year <> '' then
Lien := Lien + ' • ' + Year;
If Role <> '' then
Lien := Lien + ' • ' + Role;

It seems to be OK.

And for separate Year to notes :
Replace //Get Year by this :

Code: [Select]
//Notes :
actPosStart := PosFrom('<a href="', HTML, EndPos);
actPosStart2 := PosFrom('</a>', HTML, actPosStart);
Av := Trim(Copy(HTML, (actposstart2 + 5), 1));
     logmessage('AV : ' + Av);
     If Av = '<' then begin
     actposStart2 := (actposstart2 + 5);           //Step to go after "</a>"
     actposstart3 := PosFrom('>', HTML, actposStart2);
     actposend := PosFrom('<', HTML, actposstart3);
     Notes := Trim(Copy(HTML, (actposstart3 +1), (actposend - actposStart3 - 1)));
     logmessage('Notes :' + Notes);
     end;   

         debug_pos1:=Pos('(',Notes);
         if debug_pos1 >0 then
         Year:= Copy(Notes,0,debug_pos1-1);
         LogMessage(Notes);

///Get Year & Note :
tmpYear := Copy(Notes, 0, 2);
logMessage('tmpYear :' + tmpYear);

Case tmpYear of
'c.' : Begin
Year := Copy(Notes,2,4);
Note := '';
end;

'19', '20' : Begin
If Copy(Notes,0,5) = 's' {OR Copy(Notes,0,5) = '?'} then begin
Year := Copy(Notes,0,5);
Note := Copy(Notes,7, Length(Notes)-6);
end
else begin
Year := Copy(Notes,0,4);
Note := Copy(Notes,6, Length(Notes)-5);
end;
                       If Copy(Notes,0,5) = '?' then begin
Year := Copy(Notes,0,5);
Note := Copy(Notes,7, Length(Notes)-6);
end
else begin
Year := Copy(Notes,0,4);
Note := Copy(Notes,6, Length(Notes)-5);
end;
end;

else begin
Year := '';
Note := Notes;
end;
end;

logmessage('Year :' + Year);
logmessage('Note :' + Note);

and :

Code: [Select]
// Total Line
If Lien <> '' then
Lien := Lien + #13;
If URL1 <> '' then
Lien := Lien + '<link url="' + URL1 + '">' + Name + '</link>';
If Year <> '' then
Lien := Lien + ' • ' + Year;
If Note <> '' then
Lien := Lien + ' • ' + Note;
If Role <> '' then
Lien := Lien + ' • ' + Role;

It seems to be Ok too, but perhaps i have not seen all differents cases!

I've noted that if there's no "Notes" after a movie, the next movie does not appears in the bio, seems to again function Posfrom don't step to the good place!
« Last Edit: December 04, 2011, 01:33:14 pm by pra15 »

Offline Ivek23

  • Global Moderator
  • *****
  • Posts: 1899
    • View Profile
Re: Script for egafd.com
« Reply #38 on: December 04, 2011, 04:24:19 pm »
Code: [Select]
//Notes :
actPosStart := PosFrom('<a href="', HTML, EndPos);
actPosStart2 := PosFrom('</a>', HTML, actPosStart);
Av := Trim(Copy(HTML, (actposstart2 + 5), 1));
     logmessage('AV : ' + Av);
     If Av = '<' then begin
     actposStart2 := (actposstart2 + 5);           //Step to go after "</a>"
     actposstart3 := PosFrom('>', HTML, actposStart2);
     actposend := PosFrom('<', HTML, actposstart3);
     Notes := Trim(Copy(HTML, (actposstart3 +1), (actposend - actposStart3 - 1)));
     logmessage('Notes :' + Notes);
     end;   

         debug_pos1:=Pos('(',Notes);
         if debug_pos1 >0 then
         Year:= Copy(Notes,0,debug_pos1-1);
         LogMessage(Notes);

///Get Year & Note :
tmpYear := Copy(Notes, 0, 2);
        logMessage(Notes);

Case tmpYear of
'c.' : Begin
Year := Copy(Notes,2,4);
Note := '';
end;

'19', '20' : Begin
If Copy(Notes,0,5) = 's' {OR Copy(Notes,0,5) = '?'} then begin
Year := Copy(Notes,0,5);
Note := Copy(Notes,7, Length(Notes)-6);
end
else begin
Year := Copy(Notes,0,4);
Note := Copy(Notes,6, Length(Notes)-5);
end;
                       If Copy(Notes,0,5) = '?' then begin
Year := Copy(Notes,0,5);
Note := Copy(Notes,7, Length(Notes)-6);
end
else begin
Year := Copy(Notes,0,4);
Note := Copy(Notes,6, Length(Notes)-5);
end;
end;

else begin
Year := '';
Note := Notes;
end;
end;

logmessage('Year :' + Year);
logmessage('Note :' + Note);

This code is OK, but no work yet.

Add your script, that it tested and to see why my modifies script does not work.
« Last Edit: December 04, 2011, 06:02:39 pm by Ivek23 »
Ivek23
Win 7 32bit, 64bit   PVD v0.9.9.21


Offline pra15

  • Power User
  • ****
  • Posts: 164
    • View Profile
Re: Script for egafd.com
« Reply #39 on: December 04, 2011, 06:21:38 pm »
I post the code egafd_people(Role).psf.

For me the code is OK!
Have you declare all new variable? (notes, note, tmpYear...)
In what URL have you tested it ?

I'm seeing an error :
change in case 'c.' : -----> Year := Copy(Notes,4,4);

Still stay the problem of the movies who are not reed after a movie within "notes"!


[attachment deleted by admin]
« Last Edit: December 04, 2011, 06:52:15 pm by pra15 »

 

anything