Personal Video Database

English => Development => Scripts and Templates => Topic started by: woland68 on December 26, 2014, 06:38:05 pm

Title: Iafd Person e Website link (full)
Post by: woland68 on December 26, 2014, 06:38:05 pm
hi all
and can be added to the script "IAFD person", the full download of "Website" link  ???

Thanks for help

Iafd Site

(http://i.imgur.com/UGFnmfR.png)


Personal Video Database

(http://i.imgur.com/WAJTuwQ.png)
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on December 28, 2014, 07:26:43 pm
It was necessary to wait a bit, that is true your request.
It took a few tests that check if the script works correctly.
Made it was a few cosmetic changes.

Attached the new version.
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on December 28, 2014, 08:07:47 pm
works perfectly  :)
and can also add the full download of Filmography  ???

thank you
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on December 28, 2014, 09:11:14 pm
works perfectly  :)
and can also add the full download of Filmography  ???

thank you

Script is already ready, I just need to do some tests to check itself, if the script is really working properly. Most likely script will be added until tomorrow evening.
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on December 28, 2014, 09:14:36 pm
ok, thanks  ;D

ps: but you are Italian  ;)
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on December 29, 2014, 07:10:49 am
ps: but you are Italian  ;)

No, but I'm from Slovenia, Slovenian nationality.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on December 30, 2014, 07:01:10 am
and can also add the full download of Filmography  ???

Filmography for Performer Credits in iafd_people(pra15)2 script is transferred to the Filmography and Comment normal field (update can only filmography).

Scripts is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on January 20, 2015, 05:11:13 pm
I fixed a lot of errors in the iafd_people script.

Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on January 20, 2015, 06:04:11 pm
and can also add the full download of Filmography  ???

Filmography for Performer Credits in iafd_people(pra15)2 script is transferred to the Filmography and Comment normal field (update can only filmography).

In iafd_people (full) script consolidates information including filmography for women and men, as well as for directors.

I fixed the function of search results where they are now also included Reviews url links only to web sites (if they exist on the web pages), without the transfer of information.

I made a cosmetic correction of information transfer, which is now transferred only the information, which do not contain this information:

No known aliases 
No data
There are no comments for this performer.



Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on January 21, 2015, 01:11:08 am
Great job,

many thanks, it's perfect.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on January 21, 2015, 06:17:24 pm
Great job,

many thanks, it's perfect.

Thanks, pra15
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on January 21, 2015, 07:08:06 pm
I repaired some errors and cosmetic changes in iafd_movie script. I also added the duration.

Distributor data is now transferred to the Producer field.

Script is the attached.


BTW:
After a few tests, I will add iafd_movie (full) script to transfer even more additional information in the normal comment box.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on January 22, 2015, 07:07:38 pm
BTW:
After a few tests, I will add iafd_movie (full) script to transfer even more additional information in the normal comment box.

iafd_movie (full) script is here to use.

Added the following:

Comments, Honors and Awards data is now transferred to the Comment field.

AMRI Reviews data is now transferred to the Description field.
AMRI Reviews  -  Reviewed by  url links only to web sites (if they exist on the web pages), without the transfer of information.


Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on January 23, 2015, 11:59:23 pm
Thanks for your script,

I try it, it's ok but i have a little problem with it.
If  i have already the actor in the database, when i use it a new entry of the same actor is create and whith the old script no, so i think it's not because of the options of PVD but of the code.

I'll try to see why.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on January 24, 2015, 08:46:18 am
iafd_movie script
v 0.0.2.1 on 24.1.2015


Change of Also Known As:

I fixed the transfer of Also Known As information:
rather, it was like this
Quote
18 & Eager 15: Tits! Tits! Tits!
Nymphomane Unschuld (German original, Puaka)
now is as follows
Quote
18 & Eager 15: Tits! Tits! Tits!
Nymphomane Unschuld

Full download is now in IAFD AKA memo custom field.

Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on January 27, 2015, 06:13:38 pm
I don't understand why the new script had this problem.

Sometimes the page of a movie change in iafd.
I would like to update the list of actors in a movie but kepp the same id and not create new and erase the link of movie were they play in the filmographie field.
With this, one actor play in one movie only in PVD.


Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on January 28, 2015, 05:24:59 pm
Thanks for your script,

I try it, it's ok but i have a little problem with it.
If  i have already the actor in the database, when i use it a new entry of the same actor is create and whith the old script no, so i think it's not because of the options of PVD but of the code.

I'll try to see why.

Proposal for you:
if the old script function properly, might be my updates copied in the old script and then adjust these updates, maybe then the script would work properly.

I don't understand why the new script had this problem.

Sometimes the page of a movie change in iafd.
I would like to update the list of actors in a movie but kepp the same id and not create new and erase the link of movie were they play in the filmographie field.
With this, one actor play in one movie only in PVD.

I do not understand this and why this happens.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on January 28, 2015, 06:28:48 pm
Thanks for your script,

I try it, it's ok but i have a little problem with it.
If  i have already the actor in the database, when i use it a new entry of the same actor is create and whith the old script no, so i think it's not because of the options of PVD but of the code.

I'll try to see why.
I don't understand why the new script had this problem.

Sometimes the page of a movie change in iafd.
I would like to update the list of actors in a movie but kepp the same id and not create new and erase the link of movie were they play in the filmographie field.
With this, one actor play in one movie only in PVD.

Perhaps I now realized why this happens, because I also had a similar problem.

For example, they will be referred to the actress Valentine Demy (Valentina Demi) :

The People Database I have the name of the actress Valentine Demy, iafd_movie script is in the transmission of movie information for players wrote the name of the actress Valentine Demi. When I looked through the names of the actresses in People Database there was the name of the actress Valentine Demy and a new entry for the actress Valentine Demi. Indeed, it is one and the same actress who has several alternative names.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on January 28, 2015, 07:46:42 pm
I'll modify the ancient script, but i would like understand.

I don't think it's a problem of names.

I try the script with an empty database.
I put one movie, import informations of this movie and reimport informations. Now In the database i have 2 actors different with the same name and the first have no link of the movie in the filmographie Field.

And it's not a problem of name as O' ... or T. in tis cases with PVD, an other entry is create but the links of existing movie stay in the filmographie, just the new movie appears in the new entry actor. I don't know if i'm clear.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 01, 2015, 05:09:00 am
I have modified iafd_people script.

I put collected infos in tabs, i think that's give more flexibility for write info in Biographie.
I post the script as exemple but you can modify what infos keep and their positions in biographie if you're interested.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 02, 2015, 09:01:09 am
Nice work.

Problem is beauty error in the year of birth of actor or actress.

This is fine,
Code: [Select]
Alex Rox  ( 1979 - ???? )here is not
Code: [Select]
Alisha Bizart ???????? )because here not recorded any year of birth actor or actress.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 02, 2015, 01:28:50 pm
Yes, it's nothing, i put this as exemple, see the function pTab.
ptab(String Before,String,String After,Choice,Number of space,type of space).
For year ( 1111 ,1111) You must just change the "Choice" with 1 (in the first line on write info) to write left "(". I don't know if it's clear.
Exemple:
If value of year is nothing,
with pTab('(',Value,',',1,4,'*') give : (****,
with ptab('(',Value,',',2,10,'*') give : (**********
with pTab('(',Value,',',3,5,'*') give : *****,
with ptab('(',Value,',',4,5,'*') give : nothing
with ptab('(',Value,",",5,5,'*') give : *****
You can adjust as your choice  and the data you choose to write.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 02, 2015, 01:37:55 pm
Yes, it's nothing, i put this as exemple, see the function pTab.
ptab(String Before,String,String After,Choice,Number of space,type of space).
For year ( 1111 ,1111) You must just change the choice with 1 to write left "(". I don't know if it's clear in the first line on write info.
Exemple:
If value of year is nothing,
with pTab('(',Value,',',1,4,'*') give : (****,
with ptab('(',Value,',',2,10,'*') give : (**********
with pTab('(',Value,',',3,5,'*') give : *****,
with ptab('(',Value,',',4,5,'*') give : nothing
with ptab('(',Value,",",5,5,'*') give : *****
You can adjust as your choice  and the data you choose to write.

Thanks for the explanation, I hope I understood that, we'll see ...
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 02, 2015, 02:04:03 pm
If you're interested :
Sometimes actors have page in egafd and iafd. Script egafd write filmography of the actor in Biography Field, and iafd in awards comments. To Keep all infos of the actor and the two filmography, with iafd script i put infos over the filmography (in awards comment). File is attached.

Another script who use genre with name of Url.
if you have in URL : http://www.aaaa.com http://zzz.com http://www.ccc.com give AAA/CCC/ZZZ in genre field.
I use it just for simplify search in PVD.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 02, 2015, 04:24:40 pm
Nice work, thanks for the both scripts.

If you're interested :
Sometimes actors have page in egafd and iafd. Script egafd write filmography of the actor in Biography Field, and iafd in awards comments. To Keep all infos of the actor and the two filmography, with iafd script i put infos over the filmography (in awards comment). File is attached.

It can be used next to the other, for example iafd_movie script or iafd_movie (full) script. This saves all the information transmitted in the bio box as well as in the comment box.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 02, 2015, 08:42:21 pm
Code: [Select]
An other little modification to see link of websites in AKA name.

Declare on Global Variables: TabAKA : Array of string
Declare on Parse People : AkaPos and EndAkaPos as integer

then put this code just over "tabI [2] := Nomealt4;"

Code: [Select]
/////////////////////////////////////////////////////////////////////////////////////////////////
ExplodeString(Nomealt4, TabAKA, ',');
If High(TabAKA) > 1 then begin
Nomealt4 := '';
For i := 0 to High(TabAKA) do begin
AkaPos := Pos('(', TabAKA[i])+1;
If AkaPos <> 1 then begin
EndAkaPos := PosFrom(')', TabAKA[i], AkaPos);
TabAKA[i] := Copy(TabAKA[i],0,AkaPos-1) + '<link url="www.'+Copy(TabAKA[i],AkaPos,EndAkaPos-AkaPos)+'">'+Copy(TabAKA[i],AkaPos,EndAkaPos-AkaPos)+'</link>)';
end;
Case i of
0 : NomeAlt4 := TabAka[i];
else begin
NomeAlt4 := NomeAlt4 + ', ' + TabAka[i];
end;
end;
end;
end;
Logmessage('AAAA AKA: ' + Nomealt4);
////////////////////////////////////////////////////////////////////////////////////////////////
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 04, 2015, 03:20:52 am
Hello,

I add a new function in iafd_people(TABINFO): ftLine

See script for some explanations;
Function manage displaying line when you want tu put several values on the same line.
The function pTab is more easy to use now, in the most case you can use it like this : pTab('Name of value',value,'',4,0,''). See my exemple on write info.



Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 04, 2015, 06:30:04 pm
Hello,

I add a new function in iafd_people(TABINFO): ftLine

See script for some explanations;
Function manage displaying line when you want tu put several values on the same line.
The function pTab is more easy to use now, in the most case you can use it like this : pTab('Name of value',value,'',4,0,''). See my exemple on write info.

Nice, great job.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 04, 2015, 06:57:01 pm
Thanks.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 05, 2015, 09:32:28 am
iafd_movie script
v 0.0.2.5 on 5.2.2015


Change of Distributor:

I repaired some errors and cosmetic changes in iafd_movie script. I also added the duration.

Distributor data is now transferred to the Producer field.

Distributor data can now be transferred only in custom fields, namely:

Change of Studio:

Change of Also Known As:
Change of Also Known As:

I fixed the transfer of Also Known As information:
rather, it was like this
Quote
18 & Eager 15: Tits! Tits! Tits!
Nymphomane Unschuld (German original, Puaka)
now is as follows
Quote
18 & Eager 15: Tits! Tits! Tits!
Nymphomane Unschuld

Full download is now in IAFD AKA memo custom field

Is also added RemoveTagsEx1 function as a cosmetic correction.

Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 05, 2015, 12:48:36 pm
Thanks,
I'm testing it.

Works perfect, i haven't problem with creation of double actors now.

Thanks!
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 05, 2015, 04:04:24 pm
I've speaked too quickly!

I have yet the problem!

Seen what happens, i think the double was create if the actor was create first with the old script iafd_movie in the database.
In a new database, if i use only the last script : no problem.
If i use first the old script to put same actors and after i use the last script there is the problem.

 ???
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 05, 2015, 05:25:54 pm
I've speaked too quickly!

I have yet the problem!

Seen what happens, i think the double was create if the actor was create first with the old script iafd_movie in the database.
In a new database, if i use only the last script : no problem.
If i use first the old script to put same actors and after i use the last script there is the problem.

 ???

This is a problem, different url address.

http://www.iafd.com//person.rme/perfid=cherrylee_w/gender=f/fanny.htm http://www.iafd.com/person.rme/perfid=cherrylee_w/gender=f/fanny.htm

It is necessary to correct the BASE_URL address:

wrong
Code: [Select]
BASE_URL = 'http://www.iafd.com/';
properly
Code: [Select]
  BASE_URL = 'http://www.iafd.com';
The revised script is attached.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 05, 2015, 05:42:01 pm
It's an other problem,

with the old script with AddMoviePerson we put both the name and the transname.
With the new there's just the name.

I have modified the new script with the old method and it's ok.
But i'm not sure that is the best method. I don't want for the moment restart all my entries of the database actor!
Perhaps i'll make a script to erase all existing transname, i'll see.

I'll see for the URL too, thanks.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 06, 2015, 03:44:17 pm
Sorry, i have a little question :

Why use twice AddMoviePerson in script :
Code: [Select]
AddMoviePerson(Trim(Name), '', '', LowerCase(URL), ctActors);
AddMoviePerson(Name, '', '', URL, ctActors);
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 06, 2015, 07:19:06 pm
Sorry, i have a little question :

Why use twice AddMoviePerson in script :
Code: [Select]
AddMoviePerson(Trim(Name), '', '', LowerCase(URL), ctActors);
AddMoviePerson(Name, '', '', URL, ctActors);

Sorry, this
Code: [Select]
AddMoviePerson(Name, '', '', URL, ctActors);had to be removed, I forgot to do it.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 07, 2015, 05:02:28 pm
iafd_movie (full) script
v 0.2.5.0 on 7.2.2015


iafd_movie script
v 0.0.2.5 on 5.2.2015


Change of Distributor:

I repaired some errors and cosmetic changes in iafd_movie script. I also added the duration.

Distributor data is now transferred to the Producer field.

Distributor data can now be transferred only in custom fields, namely:
  • Distributor name only in Distributor multiselect custom field
  • The URL link to the Distributor name on web pages in IAFD Distributor1 memo custom field

Change of Studio:
  • Studio name only in IAFD Studio multiselect custom field
  • The URL link to the Studio name on web pages in IAFD Studio1 memo custom field

Change of Also Known As:
Change of Also Known As:

I fixed the transfer of Also Known As information:
rather, it was like this
Quote
18 & Eager 15: Tits! Tits! Tits!
Nymphomane Unschuld (German original, Puaka)
now is as follows
Quote
18 & Eager 15: Tits! Tits! Tits!
Nymphomane Unschuld

Full download is now in IAFD AKA memo custom field

Is also added RemoveTagsEx1 function as a cosmetic correction.

Change of Comments:

In addition to the already mentioned here are a few cosmetic changes in the comment box for the transmission of Comments information.


Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 08, 2015, 12:35:24 am
thanks
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 08, 2015, 10:42:17 pm
I made a little script to modify URL iafd with two //.

But i can't replace the existing URL, just add an other good URL. Do you know if we can remove by script an existing URL ?
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 09, 2015, 08:12:30 am
I made a little script to modify URL iafd with two //.

But i can't replace the existing URL, just add an other good URL. Do you know if we can remove by script an existing URL ?

We do not yet, it was already speaking about here (http://www.videodb.info/forum_en/index.php/topic,2349.msg13194.html#msg13194), but it was
not the answer to the question. If it is possible to replace the existing url address
Code: [Select]
http://www.iafd.com//person.rme/ with this url address,
Code: [Select]
http://www.iafd.com/person.rme/ it might work.



Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 09, 2015, 09:45:27 am
Thanks,
For the moment i use my script to add good url and script genre_people to all database.
After i sort by genre, with two IAFD/IAFD i delete manually all bad URL.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 09, 2015, 09:53:43 am
Thanks,
For the moment i use my script to add good url and script genre_people to all database.
After i sort by genre, with two IAFD/IAFD i delete manually all bad URL.

Otherwise it is a bit more work, but currently there is no other, no other variants as already mentioned above.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 11, 2015, 03:15:24 pm
iafd_movie (full) script
v 0.2.6.0 on 11.2.2015


Change of Studio:
  • Studio name only in IAFD Studio multiselect custom field
  • The URL link to the Studio name on web pages in IAFD Studio1 memo custom field

Change of Studio:

Distributor data can now be transferred only in custom fields, namely:
  • Distributor name only in Distributor multiselect custom field
  • The URL link to the Distributor name on web pages in IAFD Distributor1 memo custom field

Change of Distributor:

Replace the new changes in the Comments:

Change of Comments:

In addition to the already mentioned here are a few cosmetic changes in the comment box for the transmission of Comments information.

New Added:

Also included is a list of custom fields.

CustomField :

IAFDUpdated                        ----> Long Text
IAFD AKA                        ----> Memo
IAFD Studio                      ----> Multiselect List
IAFD Distributor                   ----> Multiselect List
IAFD Studio (Distributor)            ----> Memo
IAFD Compilation                  ----> Select List OR Multiselect List


Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 12, 2015, 04:01:32 pm
How would give this code
Code: [Select]
// Comments - Released
curPos := Pos('<h3>Comments</h3>', HTML);
if curPos > 0 then begin
LogMessage('Scene readout');
EndPos := curPos;
curPos := PosFrom ('<li style="padding-bottom: 0.5em;">Released:',HTML,curPos);
if curPos > 0 then begin
curPos := PosFrom('">Released:',HTML,curPos);
if curPos > 0 then begin
curPos := curPos + Length('">Released:');
EndPos := PosFrom('</li><',HTML,curPos);
Datanascita := Copy(HTML,curPos,EndPos-curPos); 
LogMessage(Datanascita);
if Datanascita <> '' then begin
ExplodeString(Datanascita, DateParts, ' ');

DateParts[0] := StringReplace(DateParts[0], '01', '1', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '02', '2', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '03', '3', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '05', '5', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '06', '6', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '07', '7', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '08', '8', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '09', '9', True, True, False);

DateParts[1] := StringReplace(DateParts[1],'January','1',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'February','2',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'March','3',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'April','4',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'May','5',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'June','6',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'July','7',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'August','8',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'September','9',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'October','10',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'November','11',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'December','12',true,true,true);

Datanascita:= DateParts[0] +'.'+ DateParts[1] +'.'+ DateParts[2];
LogMessage('release : '+ Datanascita);

AddFieldValueXML('release', Datanascita);

end
else
LogMessage('release not found');
end
else
LogMessage('Data di nascita: NESSUNA');
end;
end;
to regulate, it would not be necessary always to use this piece of code
Code: [Select]
DateParts[0] := StringReplace(DateParts[0], '01', '1', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '02', '2', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '03', '3', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '05', '5', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '06', '6', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '07', '7', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '08', '8', True, True, False);
DateParts[0] := StringReplace(DateParts[0], '09', '9', True, True, False);

DateParts[1] := StringReplace(DateParts[1],'January','1',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'February','2',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'March','3',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'April','4',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'May','5',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'June','6',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'July','7',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'August','8',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'September','9',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'October','10',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'November','11',true,true,true);
DateParts[1] := StringReplace(DateParts[1],'December','12',true,true,true);
repeatedly used to Released date converted to this format,  for example, as follows
Code: [Select]
30.10.2013
I guess it would be necessary to add to the script similar functions like this, for example,
Code: [Select]
// ******** CheckDate ************** Преобразовывает строку с датой в короткий формат ****
function CheckDate(s: String): String;
var
i, j, num        : Integer;
months           : Array [1..12] of AnsiString;
items            : TWideArray;
Day, Month, Year : String;
begin
months[ 1] := 'январ';
months[ 2] := 'феврал';
months[ 3] := 'март';
months[ 4] := 'апрел';
months[ 5] := 'ма';
months[ 6] := 'июн';
months[ 7] := 'июл';
months[ 8] := 'август';
months[ 9] := 'сентябр';
months[10] := 'октябр';
months[11] := 'ноябр';
months[12] := 'декабр';

ExplodeString (s, items, ' ');
for i := 0 to 2 do begin
if i > High (items) then Break;

num := StrToInt (items[i]);
if num > 0 then begin   // День или год
if num <= 31 then    // День
Day := items[i]
else if (num >= 1000) And (num <= 2200) then begin // Год
Year := items[i];
Break;   // Год - последний
end;
end else begin    // Месяц
for j := Low (months) to High (months) do
if Pos (months[j], LowerCase (items[i])) > 0 then Break;
end;
if j <= High (months) then
Month := IntToStr (j);
end;

if Year <> '' then begin
if Day = '' then
Day := '01'
else if length (Day) = 1 then
Day := '0' + Day;
if Month = '' then
Month := '01'
else if length (Month) = 1 then
Month := '0' + Month;
Result := Day + '.' + Month + '.' + Year;
end else
Result := s;
end;


// ******** CheckDates ************** Преобразовывает строку с датами, разделенными запятыми, в короткий формат ****
function CheckDates (s: String): String;
var
Dates  : TWideArray;
i      : integer;
Begin
ExplodeString (Replace (s), Dates, ',');
Result := '';
for i := low (Dates) to high (Dates) do begin
if Result = '' then
Result := Result + CheckDate (Dates[i])
else
Result := Result + ',' + CheckDate (Dates[i]);
end;
End;
but this I have never used and I admit that I do not know how to do this, so please help, I would be happy with the attached code.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 12, 2015, 04:59:21 pm
Can you give a link where h3 comments is present .
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 12, 2015, 05:33:59 pm
Can you give a link where h3 comments is present .

Here are a few links:

http://www.iafd.com//title.rme/title=10+hardcore+quickies+2/year=2011/10-hardcore-quickies-2.htm
http://www.iafd.com//title.rme/title=2+chicks+same+time+15/year=2013/2-chicks-same-time-15.htm
http://www.iafd.com//title.rme/title=all+internal+234/year=2005/all-internal-234.htm
http://www.iafd.com//title.rme/title=anal+attack+8/year=2011/anal-attack-8.htm
http://www.iafd.com//title.rme/title=100%25+natural+wonders+1/year=2004/100%25-natural-wonders-1.htm
http://www.iafd.com//title.rme/title=10+man+cum+slam+13/year=2005/10-man-cum-slam-13.htm
http://www.iafd.com//title.rme/title=2+men+inside+me/year=2007/2-men-inside-me.htm
http://www.iafd.com//title.rme/title=2+on+1+14/year=2002/2-on-1-14.htm
http://www.iafd.com//title.rme/title=3+day+rule/year=2012/3-day-rule.htm
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on February 12, 2015, 07:48:23 pm
I don't know if that you want.
You can use the function for date like : 01 Septembre 2002 or September 01, 2002.
But for the third i don't know how. With '/' in the text i always obtain an error in PVD.
I tried explode the date or simply copy(.... but nothing work!

Code: [Select]
function ConfDate(OrigDate:string):string;
Var
i : Integer;
OrigDate, d, m, y : string;
TabMonths : Array of string;
TabDate : TwideArray;

BEGIN
TabMonths := ['Null','January','February','March','April','May','June','Jully','August','Septembre','October','November','December'];
ExplodeString(OrigDate,TabDate,' ');
If TabDate[0] <> '' then begin
If Length(TabDate[0]) > 2 then begin
m := TabDate[0];
For i := 1 to 12 do begin
If m = TabMonths[i] then m:=IntToStr(i);
end;
LogMessage('Mois: ' + m);
d := Copy(TabDate[1],1,Length(TabDate[1])-1);
If Copy(TabDate[1],1,Length(TabDate[1])-2) = '0' then d:= Copy(TabDate[1],2,1);
y := TabDate[2];
end else if TabDate[1] <> '' then begin
y:= TabDate[2];
m:= TabDate[1];
For i := 1 to 12 do begin
If m = TabMonths[i] then m:=IntToStr(i);
end;
d:= TabDate[0];
If Copy(TabDate[0],1,Length(TabDate[0])-1) = '0' then d:= Copy(TabDate[0],2,1);
LogMessage('Year: ' + y + ' month: ' + m + ' day: ' + d);
end else begin
y:='';
m:='';
d:='';
end;
//end else begin
//ExplodeString(OrigDate,TabDate,'/');
//y := Copy(OrigDate,7,4);
//m := Copy(OrigDate,3,3);
//For i := 1 to 12 do begin
//If m = Copy(TabMonths[i],1,3) then m:=IntToStr(i);
//end;
//d := Copy(OrigDate,1,2);
//If Copy(TabDate[0],1,Length(TabDate[0])-1) = '0' then d:= Copy(TabDate[0],2,Length(TabDate[0])-1);
//LogMessage('Annee: '+y+' mois: ' +m+' jour: '+d);
end;
Result:= d + '.' + m + '.' + y;
END;

If this can help.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 12, 2015, 08:00:26 pm
If this can help.

Thanks, will see ...
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 13, 2015, 03:05:00 pm
If this can help.

Thanks, will see ...

Thank you very much, it work.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 14, 2015, 02:20:48 pm
iafd_movie (full) script
v 0.0.2.6 on 14.2.2015


Change of Studio:
  • Studio name only in IAFD Studio multiselect custom field
  • The URL link to the Studio name on web pages in IAFD Studio1 memo custom field

Change of Studio:
  • The URL link to the Studio name on web pages now in IAFD Studio (Distributor)  memo custom field

Distributor data can now be transferred only in custom fields, namely:
  • Distributor name only in Distributor multiselect custom field
  • The URL link to the Distributor name on web pages in IAFD Distributor1 memo custom field

Change of Distributor:
  • The URL link to the Distributor name on web pages now in IAFD Studio (Distributor) memo custom field

New Added:
  • IAFDUpdated in the IAFDUpdated long text custom field

Also included is a list of custom fields.

CustomField :

IAFDUpdated                        ----> Long Text
IAFD AKA                        ----> Memo
IAFD Studio                      ----> Multiselect List
IAFD Distributor                   ----> Multiselect List
IAFD Studio (Distributor)            ----> Memo

Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 15, 2015, 09:54:01 am
iafd_movie (full) script
v 0.2.6.5 on 15.2.2015


I fixed bug in Honors and Awards data transfer.

Change of  CustomField :

Quote
CustomField :

IAFDUpdated                        ----> Long Text
IAFD AKA                        ----> Memo
IAFD Studio                      ----> Multiselect List
IAFD Distributor                   ----> Multiselect List
IAFD Studio (Distributor)            ----> Memo
IAFD Compilation                  ----> Select List OR Multiselect List
IAFD Studio                      ----> Select List OR Multiselect List
IAFD Distributor                   ----> Select List OR Multiselect List

Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on February 16, 2015, 06:28:11 pm
iafd_movie(Release) script
v 0.2.5.0 on 16.2.2015


There is now an example of how the above mentioned code now add to the iafd_movie (Release) script and how it works for the transmission of  Released, Release Date, DVD Release, First release and Date of Production data.

CustomField :

IAFDUpdated                  ----> Long Text
IAFD Comments               ----> Memo
IAFD Released               ----> Short Text OR Long Text
IAFD Release Date            ----> Short Text OR Long Text
DVD release                  ----> Short Text OR Long Text
First release               ----> Short Text OR Long Text
Production date               ----> Short Text OR Long Text
Production dates            ----> Short Text OR Long Text


Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on March 15, 2015, 12:13:39 pm
iafd_movie (full) script
v 0.2.7.0 on 15.3.2015


New Added:
and this function
Code: [Select]
function HTMLValue(HTML: string; StartPos, EndPos: Integer; StartValue, EndValue: string): string;
var
  ValueStart, ValueEnd: Integer;
begin
  ValueStart := PosFrom(StartValue, HTML, StartPos);
  if (ValueStart > 0) and ((ValueStart < EndPos) or (EndPos = 0)) then
  begin
    ValueStart := ValueStart + Length(StartValue);
    ValueEnd := PosFrom(EndValue, HTML, ValueStart);
    Result := Copy(HTML, ValueStart, ValueEnd - ValueStart);
  end else
    Result := '';
end;

CustomField :

IAFD Magazine Reviews            ----> Memo


IAFD Magazine Reviews is also added in comment box.

Transfer information Comments the now only in the IAFD Comments -
Add of  CustomField :
IAFD  Comments            ----> Memo


Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on March 19, 2015, 12:55:30 pm
iafd_movie script
v 0.0.2.8 on 19.3.2015


New Added:
  • IAFD Compilation in the IAFD Compilation select list or multiselectlist custom field

Also included is a list of custom fields.

CustomField :

IAFDUpdated                        ----> Long Text
IAFD AKA                        ----> Memo
IAFD Studio                      ----> Multiselect List
IAFD Distributor                   ----> Multiselect List
IAFD Studio (Distributor)            ----> Memo
IAFD Compilation                  ----> Select List OR Multiselect List
IAFD Compilation is also added in comment box.

Is also added DVD Bonus in Scene Breakdowns.


Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on March 29, 2015, 01:22:29 pm
iafd_movie(BuyThisMovie) script
v 0.2.7.5 on 29.3.2015


If anyone is interested in Buy This Movie Information is attached below iafd_movie (BuyThisMovie) script with some information, which are listed in the list of custom fields.

Also included is a list of custom fields.

CustomField :

IAFD Buy This Movie                  ----> Memo

IAFD HD-DVD - Buy This Movie         ----> Memo
IAFD DL(HD) - Buy This Movie         ----> Memo
IAFD Pre-Owned BR - Buy This Movie      ----> Memo
IAFD Rent BR - Buy This Movie         ----> Memo
IAFD BR - Buy This Movie            ----> Memo
IAFD DL - Buy This Movie            ----> Memo
IAFD DVD - Buy This Movie            ----> Memo
IAFD Used DVDs - Buy This Movie         ----> Memo


Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on April 11, 2015, 12:20:54 pm
How would give this code
Code: [Select]
// Buy This Movie - DVD
curPos := PosFrom('<h4>DVD</h4>',HTML,EndPos);
if curPos > 0 then begin
endPos := curPos;
Curpos := Posfrom('shopclick.asp?sku=', HTML, Curpos);
while (curPos > 0) AND (curPos < PosFrom('<h4>DVD RENTALS</h4>', HTML, endPos)) do begin
curPos := curPos + Length('shopclick.asp?sku=');
Endpos := PosFrom('">', HTML, Curpos);
URL3 := 'http://www.iafd.com/shopclick.asp?sku=' + Copy(HTML, Curpos, Endpos- Curpos);
// Get Name
Curpos := PosFrom('">', HTML, Endpos) + 2;
endPos := PosFrom('</a> -  ', HTML, curPos);
Name3 := Copy(HTML, curPos, endPos-curPos);
Curpos := PosFrom('</a> -', HTML, Endpos);
if curPos > 0 then begin
curPos := curPos + Length('</a> -');
endPos := curPos+8;
Price := Trim(Copy(HTML, curPos, endPos-curPos));
Price := StringReplace(Price,'<','',true,false,true);
end;
// Fullinfo BioField:
If URL3 <> '' then
begin
dbgstrg7 := dbgstrg7+'<link url="'+URL3+'">'+Name3+'</link>  -  '+Price+'<br>';
end;
Curpos := Posfrom('shopclick.asp?sku=', HTML, Curpos);
end;
If dbgstrg7 <> '' then dbgstrg7 := dbgstrg7;
AddCustomFieldValueByName('IAFD DVD - Buy This Movie',dbgstrg7);
If dbgstrg7<> '' then fullinfo2:= fullinfo2 + 'DVD :' + #13#10 + dbgstrg7
else fullinfo2:= fullinfo2;
end else
curPos := endPos;
to regulate, it would not be necessary always to change this piece of code
Code: [Select]
while (curPos > 0) AND (curPos < PosFrom('<h4>DVD RENTALS</h4>', HTML, endPos)) do beginto this part of the code
Code: [Select]
while (curPos > 0) AND (curPos < PosFrom('<h4>Used DVDs</h4>', HTML, endPos)) do beginor by that part of the code
Code: [Select]
while (curPos > 0) AND (curPos < PosFrom('<h3>Usage Notice</h3>', HTML, endPos)) do begin
I think it would be necessary to add a function in which to combine these pieces of code (I do not know how to write code for this function), such as for example:
    "  <h4>DVD RENTALS</h4>  "
    "  <h4>Used DVDs</h4>  "
    "  <h3>Usage Notice</h3>  "

Here are a few links:

http://www.iafd.com//title.rme/title=10+hardcore+quickies+2/year=2011/10-hardcore-quickies-2.htm
http://www.iafd.com//title.rme/title=2+chicks+same+time+15/year=2013/2-chicks-same-time-15.htm
http://www.iafd.com//title.rme/title=all+internal+234/year=2005/all-internal-234.htm
http://www.iafd.com//title.rme/title=anal+attack+8/year=2011/anal-attack-8.htm
http://www.iafd.com//title.rme/title=100%25+natural+wonders+1/year=2004/100%25-natural-wonders-1.htm
http://www.iafd.com//title.rme/title=10+man+cum+slam+13/year=2005/10-man-cum-slam-13.htm
http://www.iafd.com//title.rme/title=2+men+inside+me/year=2007/2-men-inside-me.htm
http://www.iafd.com//title.rme/title=2+on+1+14/year=2002/2-on-1-14.htm
http://www.iafd.com//title.rme/title=3+day+rule/year=2012/3-day-rule.htm


Please help to resolve this problem, recommended the use of iafd_movie (BuyThisMovie) script. (http://www.videodb.info/forum_en/index.php?action=dlattach;topic=3951.0;attach=6064)
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on April 11, 2015, 12:22:16 pm
How would give this code
Code: [Select]
// Buy This Movie - DVD
curPos := PosFrom('<h4>DVD</h4>',HTML,EndPos);
if curPos > 0 then begin
endPos := curPos;
Curpos := Posfrom('shopclick.asp?sku=', HTML, Curpos);
while (curPos > 0) AND (curPos < PosFrom('<h4>DVD RENTALS</h4>', HTML, endPos)) do begin
curPos := curPos + Length('shopclick.asp?sku=');
Endpos := PosFrom('">', HTML, Curpos);
URL3 := 'http://www.iafd.com/shopclick.asp?sku=' + Copy(HTML, Curpos, Endpos- Curpos);
// Get Name
Curpos := PosFrom('">', HTML, Endpos) + 2;
endPos := PosFrom('</a> -  ', HTML, curPos);
Name3 := Copy(HTML, curPos, endPos-curPos);
Curpos := PosFrom('</a> -', HTML, Endpos);
if curPos > 0 then begin
curPos := curPos + Length('</a> -');
endPos := curPos+8;
Price := Trim(Copy(HTML, curPos, endPos-curPos));
Price := StringReplace(Price,'<','',true,false,true);
end;
// Fullinfo BioField:
If URL3 <> '' then
begin
dbgstrg7 := dbgstrg7+'<link url="'+URL3+'">'+Name3+'</link>  -  '+Price+'<br>';
end;
Curpos := Posfrom('shopclick.asp?sku=', HTML, Curpos);
end;
If dbgstrg7 <> '' then dbgstrg7 := dbgstrg7;
AddCustomFieldValueByName('IAFD DVD - Buy This Movie',dbgstrg7);
If dbgstrg7<> '' then fullinfo2:= fullinfo2 + 'DVD :' + #13#10 + dbgstrg7
else fullinfo2:= fullinfo2;
end else
curPos := endPos;
to regulate, it would not be necessary always to change this piece of code
Code: [Select]
while (curPos > 0) AND (curPos < PosFrom('<h4>DVD RENTALS</h4>', HTML, endPos)) do beginto this part of the code
Code: [Select]
while (curPos > 0) AND (curPos < PosFrom('<h4>Used DVDs</h4>', HTML, endPos)) do beginor by that part of the code
Code: [Select]
while (curPos > 0) AND (curPos < PosFrom('<h3>Usage Notice</h3>', HTML, endPos)) do begin
I think it would be necessary to add a function in which to combine these pieces of code (I do not know how to write code for this function), such as for example:
    "  <h4>DVD RENTALS</h4>  "
    "  <h4>Used DVDs</h4>  "
    "  <h3>Usage Notice</h3>  "

Here are a few links:

http://www.iafd.com//title.rme/title=10+hardcore+quickies+2/year=2011/10-hardcore-quickies-2.htm
http://www.iafd.com//title.rme/title=2+chicks+same+time+15/year=2013/2-chicks-same-time-15.htm
http://www.iafd.com//title.rme/title=all+internal+234/year=2005/all-internal-234.htm
http://www.iafd.com//title.rme/title=anal+attack+8/year=2011/anal-attack-8.htm
http://www.iafd.com//title.rme/title=100%25+natural+wonders+1/year=2004/100%25-natural-wonders-1.htm
http://www.iafd.com//title.rme/title=10+man+cum+slam+13/year=2005/10-man-cum-slam-13.htm
http://www.iafd.com//title.rme/title=2+men+inside+me/year=2007/2-men-inside-me.htm
http://www.iafd.com//title.rme/title=2+on+1+14/year=2002/2-on-1-14.htm
http://www.iafd.com//title.rme/title=3+day+rule/year=2012/3-day-rule.htm


Please help to resolve this problem, recommended the use of iafd_movie (BuyThisMovie) script. (http://www.videodb.info/forum_en/index.php?action=dlattach;topic=3951.0;attach=6064)

This part of the code
Code: [Select]
function BuyThisMovies(BuyThisMovie : String) : String;
var
 curPos, EndPos : Integer;
 I : Integer;
 TabNames : TwideArray;
begin
TabNames := ['<h4>DVD</h4>', '<h4>DVD RENTALS</h4>', '<h4>Used DVDs</h4>', '<h3>Usage Notice</h3>'];
//TabNames := ['DVD','DVD RENTALS', 'Used DVDs', 'Usage Notice'];
For I := Low(TabNames) to High(TabNames) do
begin
Result := TabNames[I];
end;
end;
does not work, if anyone can help.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on April 11, 2015, 07:26:07 pm
hello,

Sorry, before make a function, i need understand more that you want exactly.
You give 3 possibilities for condition to stop. But i see some pages (links up) and there are more than one possibilities in the page (ex: h4 dvdrentals and h3 usage notice on the same page).
You must choose a priority if you want stop the code. For exemple if i found h3 usage first i don't search h4 dvdrental.

I don't know if i'm clear (always my bad english). If you can explain me exactly what you want.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on April 12, 2015, 07:17:01 am
hello,

Sorry, before make a function, i need understand more that you want exactly.
You give 3 possibilities for condition to stop. But i see some pages (links up) and there are more than one possibilities in the page (ex: h4 dvdrentals and h3 usage notice on the same page).
You must choose a priority if you want stop the code. For exemple if i found h3 usage first i don't search h4 dvdrental.

I don't know if i'm clear (always my bad english). If you can explain me exactly what you want.

For example:
For  transmission of DVD information on this http://www.iafd.com//title.rme/title=3+day+rule/year=2012/3-day-rule.htm and many similar IAFD movie pages use this piece of code,
Code: [Select]
// Buy This Movie - DVD
curPos := PosFrom('<h4>DVD</h4>',HTML,EndPos);
if curPos > 0 then begin
endPos := curPos;
Curpos := Posfrom('shopclick.asp?sku=', HTML, Curpos);
while (curPos > 0) AND (curPos < PosFrom('<h4>DVD RENTALS</h4>', HTML, endPos)) do begin
curPos := curPos + Length('shopclick.asp?sku=');
Endpos := PosFrom('">', HTML, Curpos);
URL3 := 'http://www.iafd.com/shopclick.asp?sku=' + Copy(HTML, Curpos, Endpos- Curpos);
// Get Name
Curpos := PosFrom('">', HTML, Endpos) + 2;
endPos := PosFrom('</a> -  ', HTML, curPos);
Name3 := Copy(HTML, curPos, endPos-curPos);
Curpos := PosFrom('</a> -', HTML, Endpos);
if curPos > 0 then begin
curPos := curPos + Length('</a> -');
endPos := curPos+8;
Price := Trim(Copy(HTML, curPos, endPos-curPos));
Price := StringReplace(Price,'<','',true,false,true);
end;
// Fullinfo BioField:
If URL3 <> '' then
begin
dbgstrg7 := dbgstrg7+'<link url="'+URL3+'">'+Name3+'</link>  -  '+Price+'<br>';
end;
Curpos := Posfrom('shopclick.asp?sku=', HTML, Curpos);
end;
If dbgstrg7 <> '' then dbgstrg7 := dbgstrg7;
AddCustomFieldValueByName('IAFD DVD - Buy This Movie',dbgstrg7);
If dbgstrg7<> '' then fullinfo2:= fullinfo2 + 'DVD :' + #13#10 + dbgstrg7
else fullinfo2:= fullinfo2;
end else
curPos := endPos;
which is on the web page followed by the DVD RENTALS record information.

Where there is no DVD RENTALS record information, followed Used DVDs record information, this part of the code
Code: [Select]
// Buy This Movie - DVD
curPos := PosFrom('<h4>DVD</h4>',HTML,EndPos);
if curPos > 0 then begin
endPos := curPos;
Curpos := Posfrom('shopclick.asp?sku=', HTML, Curpos);
while (curPos > 0) AND (curPos < PosFrom('<h4>Used DVDs</h4>', HTML, endPos)) do begin
curPos := curPos + Length('shopclick.asp?sku=');
Endpos := PosFrom('">', HTML, Curpos);
URL3 := 'http://www.iafd.com/shopclick.asp?sku=' + Copy(HTML, Curpos, Endpos- Curpos);
// Get Name
Curpos := PosFrom('">', HTML, Endpos) + 2;
endPos := PosFrom('</a> -  ', HTML, curPos);
Name3 := Copy(HTML, curPos, endPos-curPos);
Curpos := PosFrom('</a> -', HTML, Endpos);
if curPos > 0 then begin
curPos := curPos + Length('</a> -');
endPos := curPos+8;
Price := Trim(Copy(HTML, curPos, endPos-curPos));
Price := StringReplace(Price,'<','',true,false,true);
end;
// Fullinfo BioField:
If URL3 <> '' then
begin
dbgstrg7 := dbgstrg7+'<link url="'+URL3+'">'+Name3+'</link>  -  '+Price+'<br>';
end;
Curpos := Posfrom('shopclick.asp?sku=', HTML, Curpos);
end;
If dbgstrg7 <> '' then dbgstrg7 := dbgstrg7;
AddCustomFieldValueByName('IAFD DVD - Buy This Movie',dbgstrg7);
If dbgstrg7<> '' then fullinfo2:= fullinfo2 + 'DVD :' + #13#10 + dbgstrg7
else fullinfo2:= fullinfo2;
end else
curPos := endPos;
used to download DVD information.

Where there is no DVD RENTALS record information or Used DVDs record information, on each side IAFD movie compulsory Usage Notice record information (http://www.iafd.com//title.rme/title=10+hardcore+quickies+2/year=2011/10-hardcore-quickies-2.htm), this part of the code
Code: [Select]
// Buy This Movie - DVD
curPos := PosFrom('<h4>DVD</h4>',HTML,EndPos);
if curPos > 0 then begin
endPos := curPos;
Curpos := Posfrom('shopclick.asp?sku=', HTML, Curpos);
while (curPos > 0) AND (curPos < PosFrom('<h3>Usage Notice</h3>', HTML, endPos)) do begin
curPos := curPos + Length('shopclick.asp?sku=');
Endpos := PosFrom('">', HTML, Curpos);
URL3 := 'http://www.iafd.com/shopclick.asp?sku=' + Copy(HTML, Curpos, Endpos- Curpos);
// Get Name
Curpos := PosFrom('">', HTML, Endpos) + 2;
endPos := PosFrom('</a> -  ', HTML, curPos);
Name3 := Copy(HTML, curPos, endPos-curPos);
Curpos := PosFrom('</a> -', HTML, Endpos);
if curPos > 0 then begin
curPos := curPos + Length('</a> -');
endPos := curPos+8;
Price := Trim(Copy(HTML, curPos, endPos-curPos));
Price := StringReplace(Price,'<','',true,false,true);
end;
// Fullinfo BioField:
If URL3 <> '' then
begin
dbgstrg7 := dbgstrg7+'<link url="'+URL3+'">'+Name3+'</link>  -  '+Price+'<br>';
end;
Curpos := Posfrom('shopclick.asp?sku=', HTML, Curpos);
end;
If dbgstrg7 <> '' then dbgstrg7 := dbgstrg7;
AddCustomFieldValueByName('IAFD DVD - Buy This Movie',dbgstrg7);
If dbgstrg7<> '' then fullinfo2:= fullinfo2 + 'DVD :' + #13#10 + dbgstrg7
else fullinfo2:= fullinfo2;
end else
curPos := endPos;
used to download DVD information.

Conclusion:
How to create a single piece of code, which would be a universal transfer DVD information, and they would be one part of the code used (replacement) instead of the three above mentioned parts of codes.


I hope it will now be easier to understand the request and thank you in advance for your efforts and assistance.
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on April 12, 2015, 08:24:52 pm
It's not exactly what you want,
I made a script for all data in Buy This Movie grouped on one customfield. The code is shortly.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on April 13, 2015, 05:20:36 pm
It's not exactly what you want,
I made a script for all data in Buy This Movie grouped on one customfield. The code is shortly.

Ok, no problem, thanks anyway, by the way -  great job.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on April 30, 2015, 07:56:45 pm
iafd_movie (full) script
v 0.2.8.5 on 30.4.2015


New Added:
CustomField :

IAFD Buy This Movie         ----> Memo


I made some cosmetic correction the transfer Comments information.

The Scene Breakdowns, I also added a DVD Bonus code, which information can now be transferred (until now it was not possible).


Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on May 09, 2015, 06:06:38 pm
iafd_movie(Releases) script
v 0.2.8.5 on 9.5.2015


CustomField :

   IAFD Released                     ----> Short Text OR Long Text
   IAFD Release Date                  ----> Short Text OR Long Text
   DVDrelease                        ----> Memo
   First release                     ----> Memo
   DVD Produced                     ----> Short Text OR Long Text


The script is similar to a iafd_movie(Release) script
v 0.2.5.0 on 16.2.2015
(http://www.videodb.info/forum_en/index.php/topic,3951.msg18837.html#msg18837), but it does not transfer any information which they are listed there, but only to those already mentioned above (description of the custom fields).

Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on May 11, 2015, 08:23:10 pm
iafd_movie (full) script
v 0.2.9.5 on 11.5.2015


I made a few cosmetic adjustments for the transfer of information:
New Added:

IAFD to Genre box.
Complete Movie information, if a  " COMPLETE "  notation appears on the movie web site.

Is also added DVD Bonus in Check box.


CustomField :

DVD Bonus                           ----> Checkbox
Complete Movie                        ----> Checkbox


Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on May 15, 2015, 05:44:31 pm
iafd_movie_(full) script
v 0.2.9.9 on 15.5.2015


There is now iafd_movie_ (full) script, which is a release candidate, which will be in the near by future also became the final version, if not found any major errors in data transmission.

I did change the names of custom fields, which are listed below.

CustomField :

IAFDUpdated                        ----> Long Text
Comments                        ----> Memo
AKA                              ----> Memo
Studio                            ----> Select List OR Multiselect List
Distributor                      ----> Select List OR Multiselect List
Studio (Distributor)               ----> Memo
Compilation                        ----> Select List OR Multiselect List
Magazine Reviews                        ----> Memo
Buy This Movie                        ----> Memo
DVD Bonus                           ----> Checkbox
Complete Movie                        ----> Checkbox


Is also added Category in normal Category box.

Script is the attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on May 21, 2015, 10:08:41 am
Finally, there is now iafd_movie script the final version of which can be found attached however, here. (http://www.videodb.info/forum_en/index.php/topic,2002.msg19087.html#msg19087)

iafd_movie script transferred a lot of movie information, which are described in the previous post, so by now I will not mention.

If the interest in the script in the future, the possibility that it is also added to the Download page. (http://www.videodb.info/forum_en/index.php?action=down)
Title: Re: Iafd Person e Website link (full)
Post by: AimHere on June 01, 2015, 04:38:56 pm
I want to use the iafd people script, but it's not working as expected for me.

When I am in People view and use the Import feature with iafd_people(full) selected, nothing happens. I briefly see the connection status at the bottom of the PVD window, but none of the fields for that person get updated. I also tried the same thing with the regular iafd_people, no difference. But I can call up the info page for the same person in my web browser and see all the usual bio, photo, filmography, etc.

I'm using PVD 1.0 with the latest versions of the iafd_people scripts from this thread (replies 7 and 8, I think). I checked the Overwrite options for the selected script in the Import tab, and all fields are set to overwrite.

I've also tried adding a few completely new people (chosen at random from the IAFD) and running the scripts against them, with the same results... no data imported.

What am I doing wrong?

aimhere
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on June 02, 2015, 01:59:42 pm
I want to use the iafd people script, but it's not working as expected for me.

When I am in People view and use the Import feature with iafd_people(full) selected, nothing happens. I briefly see the connection status at the bottom of the PVD window, but none of the fields for that person get updated. I also tried the same thing with the regular iafd_people, no difference. But I can call up the info page for the same person in my web browser and see all the usual bio, photo, filmography, etc.

I'm using PVD 1.0 with the latest versions of the iafd_people scripts from this thread (replies 7 and 8, I think). I checked the Overwrite options for the selected script in the Import tab, and all fields are set to overwrite.

I've also tried adding a few completely new people (chosen at random from the IAFD) and running the scripts against them, with the same results... no data imported.

What am I doing wrong?

aimhere

Nothing doing wrong.

Search results works, then the script does not transfer url address, as well as any other information. What is wrong with that script does not transfer information from some tests I could not figure out why a script does not want to download information.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on June 02, 2015, 03:36:06 pm
[quote author=AimHere link=topic=3951.msg19146#msg19146
Nothing doing wrong.

Search results works, then the script does not transfer url address, as well as any other information. What is wrong with that script does not transfer information from some tests I could not figure out why a script does not want to download information.

I'm very sorry, but I can not find a solution, maybe someone else what helps in this regard.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on June 02, 2015, 06:06:07 pm
[quote author=AimHere link=topic=3951.msg19146#msg19146
Nothing doing wrong.

Search results works, then the script does not transfer url address, as well as any other information. What is wrong with that script does not transfer information from some tests I could not figure out why a script does not want to download information.

I'm very sorry, but I can not find a solution, maybe someone else what helps in this regard.

AimHere and the rest, now I have found a mistake in the script, which successfully pra15 solution wrote already a few weeks ago and can be found here:
http://www.videodb.info/forum_en/index.php/topic,3446.msg18992.html#msg18992

This solution can now change in the script and will then also the successful data transmission to a specific person.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on June 09, 2015, 05:23:13 am
iafd_people (full) script
v 0.2.0.1 on 9.6.2015

The revised script is attached.
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on July 30, 2015, 09:22:04 pm
iafd_people (full) script
v 0.2.0.1 on 9.6.2015

The revised script is attached.


Hi Ivek23

the script "people full" does not work  ???

Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on July 31, 2015, 06:14:45 pm
iafd_people (full) script
v 0.2.0.1 on 9.6.2015

The revised script is attached.


Hi Ivek23

the script "people full" does not work  ???

iafd_people (full) script
v 0.2.0.2 on 31.7.2015

I apologize for my small mistake in Photo code, an error is now corrected.
The script should now function properly.

The revised script is attached.
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on July 31, 2015, 06:53:39 pm
thanks Ivek23
the script works perfectly now  ;D

2 questions  ???

1) and you can enter the scene in the brackets of the actresses also tab movie? (see screen)
2) how to set IAFD for movies, and adultdvdempire to download only the cover?
thanks again
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on July 31, 2015, 07:39:39 pm
I found a bug in the script "IAFD people full"  ::)
if there are multiple slashes (///) the information is not loaded  ???
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on August 01, 2015, 06:15:08 am
2) how to set IAFD for movies, and adultdvdempire to download only the cover?
thanks again

IAFD web sites for movies, there does not exist and you will not find a covers.

For adultdvdempire however, do as follows:

Tools / Settings / Plugins / AdultDVDEmpire.com

First make a check mark in all fields, and then remove all fields except Poster fields. Script should now download only the covers and no other information.

thanks again

Welcome.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on August 01, 2015, 06:46:15 am
I found a bug in the script "IAFD people full"  ::)
if there are multiple slashes (///) the information is not loaded  ???

iafd_people (full) script
v 0.2.0.3 on 31.7.2015

An error is now corrected. The script should now function properly.

The revised script is attached.
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on August 01, 2015, 06:51:19 am
1) and you can enter the scene in the brackets of the actresses also tab movie? (see screen)

Try  iafd_movie(cast) script.

 The script is attached.
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on August 01, 2015, 07:17:16 am
I found a bug in the script "IAFD people full"  ::)
if there are multiple slashes (///) the information is not loaded  ???

iafd_people (full) script
v 0.2.0.3 on 31.7.2015

An error is now corrected. The script should now function properly.

The revised script is attached.



thanks Ivek23  ;)
this works now
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on August 01, 2015, 07:24:59 am
1) and you can enter the scene in the brackets of the actresses also tab movie? (see screen)

Try  iafd_movie(cast) script.

 The script is attached.

It does not work  :(
I did not understand, and this different from iafd_movie (full) (dimensions are smaller)  ???
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on August 01, 2015, 08:19:45 am
2) how to set IAFD for movies, and adultdvdempire to download only the cover?
thanks again

IAFD web sites for movies, there does not exist and you will not find a covers.

For adultdvdempire however, do as follows:

Tools / Settings / Plugins / AdultDVDEmpire.com

First make a check mark in all fields, and then remove all fields except Poster fields. Script should now download only the covers and no other information.

thanks again

Welcome.

work, Thanks :)
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on August 01, 2015, 10:17:13 am
I did not understand, and this different from iafd_movie (full) (dimensions are smaller)  ???

Since the script is just code for the actors, there you write, try this
Try  iafd_movie(cast) script.

If it does not work
It does not work  :(
So you do not confirmed Actors box in the settings by you Actors information again does not overwrite or you can not display the Role information for Actors (see picture sshot-35), because the menu is working normally (see picture sshot-34).
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on August 01, 2015, 10:28:19 am

now visible  :)
My mistake, was not selected "role" in "information card"  ;D  ::)
thanks  ;)
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on August 01, 2015, 10:59:40 am
now visible  :)
My mistake, was not selected "role" in "information card"  ;D  ::)

It's nice to hear that the problem is solved.

thanks  ;)

Welcome.
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on August 02, 2015, 04:13:00 pm
I must thank Ivek23 e pra15 for completing this script  :)
Good work, congratulations  :D
Title: Re: Iafd Person e Website link (full)
Post by: AimHere on August 02, 2015, 06:39:24 pm
Hey Ivek,

I'm a little confused about which is the latest IAFD script? There are multiple message threads here, and I'm not sure which has the definitive version...

Title: Re: Iafd Person e Website link (full)
Post by: woland68 on August 02, 2015, 06:53:28 pm
Hey Ivek,

I'm a little confused about which is the latest IAFD script? There are multiple message threads here, and I'm not sure which has the definitive version...

in fact there is a bit of confusion   ???
you could put the final script (updated) in the first thread on the front page
to facilitate the understanding   ::)

these are the last  :)

iafd_movie script (full) 0.2.9.9

SCRIPT:         iafd_movie script
AUTHOR:            SusiMeier
DATE:            20/6/2010
VERSION:         0.0.1.3

CO-AUTHOR:            Ivek23

SCRIPT MODIFICATION:   Ivek23
MODIFICATION VERSION:      0.2.9.9
DATE:               29/12/2014
UPDATE:               15/05/2015

iafd_people script (full) 0.2.0.3

SCRIPT:         iafd_people script
AUTHOR:            SusiMeier
DATE:            20/6/2010
VERSION:         0.0.1.1

MODIFICATION SCRIPT :   iafd_people(pra15) script
CO-AUTHOR:                 pra15   
MODIFICATION DATE:         23/1/2012
MODIFICATION VERSION:      0.1.1.3

CO-AUTHOR:            Ivek23

SCRIPT MODIFICATION:   Ivek23
MODIFICATION VERSION:   0.2.0.3
DATE:               29/12/2014
UPDATE:               31/7/2015
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on August 02, 2015, 08:59:27 pm
and can, in addition to Studio, also enter the (Distributor)? ::)

Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on August 03, 2015, 07:36:17 am
and can, in addition to Studio, also enter the (Distributor)? ::)

No, because you already have a custom field for this, more can be found at this link:

http://www.videodb.info/forum_en/index.php/topic,3951.msg18805.html#msg18805

Title: Re: Iafd Person e Website link (full)
Post by: woland68 on August 03, 2015, 08:07:59 am
ok, Solved
 ;D

thnks Ivek23
Title: Re: Iafd Person e Website link (full)
Post by: Ivek23 on August 03, 2015, 08:25:24 pm
I must thank Ivek23 e pra15 for completing this script  :)
Good work, congratulations  :D
ok, Solved
 ;D

thnks Ivek23

Welcome.
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on September 07, 2015, 10:06:53 pm
scripts do not work anymore  :'(
IAFD changed the layout of the pages  ???
Title: Re: Iafd Person e Website link (full)
Post by: pra15 on September 07, 2015, 11:15:12 pm
I don't have many time, i have started to adapt it, see the post Iafd scripts did not work anymore (http://www.videodb.info/forum_en/index.php/topic,4010.0.html), there is a problem with search function but if you have address of page you can have info.
Title: Re: Iafd Person e Website link (full)
Post by: woland68 on September 09, 2015, 10:12:46 am
I don't have many time, i have started to adapt it, see the post Iafd scripts did not work anymore (http://www.videodb.info/forum_en/index.php/topic,4010.0.html), there is a problem with search function but if you have address of page you can have info.

I read the discussion
I wanted to know if the script and "full", and loads all the information as before  ???