Author Topic: Personal Video Database 1.0.2.7 MOD (Read 277427 times)

jondak · « **Reply #200 on:** July 02, 2019, 11:08:53 am »

Thank you.

Ivek23 · « **Reply #201 on:** July 21, 2019, 06:24:12 am »

Quote from: Ivek23 on June 20, 2019, 08:19:06 am

Quote from: jondak on June 19, 2019, 06:46:27 pm
Quote from: jippo on June 16, 2019, 10:36:52 pm
I'm having this since two weeks ago.

I'm scanning with IMDB.

Same error:
IMDB_[EN][HTTPS].psf V 1.4.1.0 (10/02/2019)

For now 2 movies triggered the error:
https://www.imdb.com/title/tt1210059/ Flying Lessons (2010)

https://www.imdb.com/title/tt1877647/ Ghoul (2012)

Seems the movies with this error have no Plot Keywords

Thanks for the error message. It's true, what you have already mentioned, that your movie titles have no Plot Keywords. I corrected this error.

Quote
CHANGE LOG :
V 1.4.1.1 (20/06/2019) Ivek23: ParsePage_PLOTKEYWORDS small corrections and fix in the parts of the code 18-19/6/2019 forum alerts.
.
.
.
Function ParsePage_IMDBMoviePLOTKEYWORDS(HTML:String):Cardinal; //BlockOpen
//Returns:
// Result:=prFinished; Script has finished gathering data
// Result:=prError; If ¿any big problem? with exit
//Retrieve: ~Tags~
Var
curPos,endPos,index:Integer;
//curPos,endPos:Integer;
//ItemValue:String;
     ItemValue,ItemList:String;
     //Category,URL,Name:String;
     Category,Name:String;
     ItemArray:TWideArray;
Begin
LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS BEGIN======================|');
Result:=prFinished; //It will change to prError if any big problem with exit;
   //Get "Plot Keywords" info
curPos:=Pos('<h1 class="header">Plot Keywords</h1>',HTML);
if (curPos=0) then Exit;
EndPos:=curPos;
   //Get "Plot Keywords" info
   //If Pos('<h1 class="header">Plot Keywords</h1>',HTML)>0 Then Begin
   curPos:=Pos('<h1 class="header">Plot Keywords</h1>',HTML);
   If 0<curPos Then Begin
      EndPos:=curPos;
      Category:=TextBetween(HTML,'<h1 class="header">','</h1>',True,curPos);
      LogMessage(' Get result Category:'+Category+'||');
      Name:=TextBetween(HTML,'<div class="header"><div class="nav"><div class="desc">','</div></div></div>',True,curPos);
      LogMessage(' Get result Name:'+Name+'||');
      AddCustomFieldValueByName('Plot Keywords','<link url="'+GetFieldValueXML('url')+'keywords">'+Category+'</link>'+' '+Name);
   End;
   //Get "Plot Keywords" info
If (Pos('It looks like we don'+Chr(39)+'t have any Plot Keywords for this title yet.',HTML)>0) then Exit;
   curPos:=Pos('<h1 class="header">Plot Keywords</h1>',HTML);
   If 0<curPos Then Begin
      //EndPos:=curPos;
      //Go Tags list
      curPos:=Pos('<table class="dataTable evenWidthTable2Col"><tbody>',HTML);
      curPos:=curPos+Length('<table class="dataTable evenWidthTable2Col"><tbody>');
      endPos:=PosFrom('</table>',HTML,curPos);
      //ItemList:=Copy(HTML,curPos,endPos-curPos);
      ItemList:=Trim(Copy(HTML,curPos,endPos-curPos));
      curPos:=Pos('tp://ogp.me/ns#"',ItemList);
If 0<curPos then ItemList:=Copy(ItemList,0,curPos-1);
      ItemList:=RemoveTagsEx(ItemList);
      ItemList:=StringReplace(ItemList,' </div>','|',True,True,False);
      ItemList:=RemoveTags(ItemList, False);
      //LogMessage(' Parse results ('+IntToStr(curPos)+','+IntToStr(endPos)+') complex ItemList:'+ItemList+'||'+#13);
      //LogMessage(' Parse results ItemList:'+#13+ItemList+' ||');
      //LogMessage(' Parse results ItemList: '+ItemList+' ||');
      ExplodeString(ItemList,ItemArray,'|');
      For index:=Low(ItemArray) To High(ItemArray) Do Begin //Remember index begin in 0
If (index=PLOTKEYWORDS_LIMIT) Then break; //Limited depassed. Compares with = (not with >) because index begin in 0
         ItemValue:=ItemValue+ItemArray[index]+', ';
         LogMessage(' Get result Keyword: #'+IntToStr(index+1)+' | '+ItemArray[index]+', '+'||');
      End;
      index:=index+1;
      If ItemValue <> '' then AddFieldValueXML('tags',ItemValue);
      LogMessage(' Get result Plot Keywords: '+ItemValue+'||');
End;
LogMessage('Function ParsePage_IMDBMoviePLOTKEYWORDS END=====================||');
End; //BlockClose

It's attached IMDB_ [EN] [HTTPS] V 1.4.1.1 script.

The IMDB_ [EN] [HTTPS] 1.4.1.1 script is also available via the program's auto-update system.

http://www.videodb.info/forum_en/index.php?action=down

jippo · « **Reply #202 on:** September 29, 2019, 10:04:33 pm »

I am having these imports with filmaffinity.

jippo · « **Reply #203 on:** October 07, 2019, 10:49:49 pm »

Quote from: jippo on September 29, 2019, 10:04:33 pm

I am having these imports with filmaffinity.

I think it is a problem related with the filmaffinity headers.

VVV_Easy_Programing · « **Reply #204 on:** October 20, 2019, 02:17:06 pm »

Debuged Filmaffinity Scripts:
CHANGE LOG :
V 4.1.0.0 (20/10/2019) VVV: Fixed bug of search URL with new API (jippo alert).

VVV_Easy_Programing · « **Reply #205 on:** October 20, 2019, 06:15:38 pm »

Changelog:

MOD V.2019.10.20; Ivek23, VVV: Debuged new versions of IMDB and Filmaffinity.

Last version always in the first post

afrocuban · « **Reply #206 on:** December 24, 2019, 01:20:57 am »

Just my 2 cents. If for someone is more convenient, I made PVDportable.exe of portable.bat with simple bat2exe converter. Just unpack it and run it instead portable.bat.

Ivek23 · « **Reply #207 on:** December 24, 2019, 08:46:06 am »

Quote from: afrocuban on December 24, 2019, 01:20:57 am

Just my 2 cents. If for someone is more convenient, I made PVDportable.exe of portable.bat with simple bat2exe converter. Just unpack it and run it instead portable.bat.

Thanks for this, but it doesn't work on my 32 bit Windows. It requires checking what version of OS you have. It may also be possible to make a 32 bit OS version.

afrocuban · « **Reply #208 on:** December 25, 2019, 02:41:16 am »

You're welcome. Here is 32-bit version.

Ivek23 · « **Reply #209 on:** December 25, 2019, 07:35:06 am »

Quote from: afrocuban on December 25, 2019, 02:41:16 am

You're welcome. Here is 32-bit version.

Thanks a lot.

afrocuban · « **Reply #210 on:** December 26, 2019, 03:30:28 am »

Anyone could do that, no big deal.
Best regards

RazorHall · « **Reply #211 on:** December 27, 2019, 06:03:49 am »

Hey, guys. I just downloaded the 1.0.2.7 MOD and moved my collection file over, but when I opened it up, I have a list of 53,931 movies instead of the 9,000 or so that I actually own. In the list, my owned movies are highlighted in blue while the rest are in gray. What's the easiest way to get rid of all those that shouldn't be there?

Ivek23 · « **Reply #212 on:** December 27, 2019, 08:27:41 am »

Quote from: RazorHall on December 27, 2019, 06:03:49 am

Hey, guys. I just downloaded the 1.0.2.7 MOD and moved my collection file over, but when I opened it up, I have a list of 53,931 movies instead of the 9,000 or so that I actually own. In the list, my owned movies are highlighted in blue while the rest are in gray. What's the easiest way to get rid of all those that shouldn't be there?

It's simple. Do as described below and should be as before updating to MOD version.

You now have the filter set to make all movies visible, and now in the Filters tab, switch to Visible and only see blue-highlighted movies.

RazorHall · « **Reply #213 on:** December 27, 2019, 08:35:14 am »

Quote from: Ivek23 on December 27, 2019, 08:27:41 am

You now have the filter set to make all movies visible, and now in the Filters tab, switch to Visible and only see blue-highlighted movies.

Thanks! Never would have found that otherwise. :-)

I'm also getting the following error message when I try to import using the IMDB plugin:
"This script needs the external file for work. PVdbDownPage.exe Read script text for further information."
Where can I find this file?

Ivek23 · « **Reply #214 on:** December 27, 2019, 09:06:58 pm »

Quote from: RazorHall on December 27, 2019, 08:35:14 am

I'm also getting the following error message when I try to import using the IMDB plugin:
"This script needs the external file for work. PVdbDownPage.exe Read script text for further information."
Where can I find this file?

They are found in the Scripts folder, which is a PVD program folder. If it's not there, use the link found here

Quote

http://vvveasy.altervista.org/wp-content/uploads/2019/10/PVD_1.0.2.7_MOD-V20191020.zip

and download PVD MOD again. Then unzip it and find the Script folder and then copy PVdbDownPage.exe to your PVD Script folder.

RazorHall · « **Reply #215 on:** December 28, 2019, 12:46:55 am »

My anti-virus program kept quarantining that file for some reason, but once I made it an exception it seems to be working. Thanks, Ivek!

Ivek23 · « **Reply #216 on:** December 28, 2019, 09:09:01 am »

Quote from: RazorHall on December 28, 2019, 12:46:55 am

My anti-virus program kept quarantining that file for some reason, but once I made it an exception it seems to be working. Thanks, Ivek!

I am glad that the problem has been solved and that everything is working properly now.

VVV_Easy_Programing · « **Reply #217 on:** January 08, 2020, 08:46:27 pm »

Only for afrocuban:

FilmAffinity_[EN][HTTPS]-afrocuban
CHANGE LOG :
V 4.1.0.0-afrocuban (08/01/2020) VVV: Added support for custom field named 'FilmAffinity.com'.

The difference is only in the name and version and line 777 has been added:
AddCustomFieldValueByName('FilmAffinity.com',StringReplace(DownloadURL,BASE_URL_PRE_TRUE,BASE_URL_PRE,True,False,False));

If you add the attached file in yours script folder and you have the custom field 'FilmAffinity.com' in your movie data base it must work ... but I can't try it because my movie database hasn't this custom field.

VVV_Easy_Programing · « **Reply #218 on:** January 08, 2020, 08:49:18 pm »

If you want a live or working link you only must change that line adding the html code (in bold), then:

AddCustomFieldValueByName('FilmAffinity.com', '<link url="'+ StringReplace(DownloadURL,BASE_URL_PRE_TRUE,BASE_URL_PRE,True,False,False)+ '">FilmAffinity.com</link>');

afrocuban · « **Reply #219 on:** January 09, 2020, 12:15:27 am »

Thank you so much Easy! God bless you!

It just looks that custom field piece of code has to come at the beginning of ~url section:

//Get ~url~
AddCustomFieldValueByName('FilmAffinity.com', '<link url="'+ StringReplace(DownloadURL,BASE_URL_PRE_TRUE,BASE_URL_PRE,True,False,False)+ '">FilmAffinity.com</link>');
if (0=Pos(BASE_URL,StoredURL)) then begin //Write the url if not exists (Spanish or english)
AddFieldValueXML('url',StringReplace(DownloadURL,BASE_URL_PRE_TRUE,BASE_URL_PRE,True,False,False));
LogMessage(' Get result url:'+StringReplace(DownloadURL,BASE_URL_PRE_TRUE,BASE_URL_PRE,True,False,False)+'||');
end;

This is how it works flawlessly. Thanks again!

News:

Author Topic: Personal Video Database 1.0.2.7 MOD (Read 277427 times)