Personal Video Database

I hope you will help me 2 more questions.

in the script code, I found:

Quote

If (Length(ItemValue)=0) Then ItemValue:=titleValue;                           //Provider hides the original title if same that title. WEB_SPECIFIC

Is there a way to unhide both origtitle and title when they're the same?

        //Get ~alternatetitle~
        ItemValue:=TextBetWeenFirst(ItemList,'","alternateName":"','","');          //Strings which opens/closes the data. WEB_SPECIFIC
      AddCustomFieldValueByName('Localized title',ItemValue);
      
      if GET_LOCAL_TITLE then AddFieldValueXML('title',ItemValue);
        if ItemValue <> '' then LogMessage('      Get result alternatetitle:'+ItemValue+'||');      
      If ItemValue <> '' then AddCustomFieldValueByName('Imdb_Title',ItemValue+#13+titleValue+'  (original title)')
      Else AddCustomFieldValueByName('Imdb_Title',titleValue);
      //Get ~IMDB_Movietype~

And maybe the biggest challenge for me. Is it possible to get/import English (International) title to a Title field while at the same time importing Localized Title too? Or to some other custom field for example?

Function ParsePage_IMDBMovieAKA(HTML:String):Cardinal; //BlockOpen
    //Returns:
    //     Result:=prFinished; Script has finished gathering data
    //     Result:=prError; If żany big problem? with exit;
    //Retrieve: ~aka~ "Also Known As"
  Var
    curPos,endPos,index:Integer;
    ItemValue,ItemList:String;
   ItemValue1:String;
   ItemList2:String;
   Name,Role,ItemValue2:String;
    ItemArray: TWideArray;
  Begin
    LogMessage('Function ParsePage_IMDBMovieAKA BEGIN=====================||');
    Result:=prFinished;  //It will change to prError if any big problem with exit;
    //Get ~aka~ (several values in a line break separated list) Be careful don't repeat
.
.
.
   //Get all aka list ~Imdb Aka~
   ItemValue1:=StringReplace(ItemValue1,'|','',True,True,False);
   ItemValue1:=StringReplace(ItemValue1,'                                                        ',#13,True,True,False);      
   AddCustomFieldValueByName('Imdb Aka',ItemValue1);
   //Get ~aka~ (English title)
    curPos:=Pos('<table class="ipl-zebra-list akas-table-test-only">',ItemList2)     //String which opens the subList data. WEB_SPECIFIC   
   While curPos>0 Do Begin   
      Name:=TextBetWeen(ItemList2,'<td class="aka-item__name">','</td>',false,curPos);
      if Name <> '' then LogMessage('      Get result Name:'+Name+'||');
      Role:=TextBetWeen(ItemList2,'<td class="aka-item__title">','</td>',false,curPos);
      if Role <> '' then LogMessage('      Get result Role:'+Role+'||');       
   
      if ItemValue2 <> '' then ItemValue2:=ItemValue2+#13;
      if Name <> '' then ItemValue2:=ItemValue2+Name;
      if Role <> '' then ItemValue2:=ItemValue2+#160#160+Role;      
      if ItemValue2 <> '' then LogMessage('      Get results aka 2:'+ItemValue2+'||');   
      If Pos('(English title)',Name) > 1 then Role:=Role else Role:='';   
      if ItemValue2 <> '' then LogMessage('      Get results aka2:'+Role+'||');
      AddCustomFieldValueByName('English title',Role);
      //AddFieldValueXML('title',Role);
      curPos:=PosFrom('<tr class="ipl-zebra-list__item aka-item">',ItemList2,curPos)     //String which opens the subList data. WEB_SPECIFIC   
   End;      
    LogMessage('Function ParsePage_IMDBMovieAKA END=====================||');
  End; //BlockClose

That was really fast, thank you so much!

Is it only me, or Allmovie.com doesn't work anymore?

Hello Ivek (and gear)
Are these scripts fixed only for gear, or they will be available for all of us?

      //(*         
    //Go to "Tv Mode"    
   StartPos:=Pos('<h1 textlength="',HTML);
   if StartPos>0 then begin   
      ItemValue:=HTMLValue(HTML,StartPos,0,'<li role="presentation" class="ipc-inline-list__item">','releaseinfo?ref_=tt_ov_rdat');
      if ItemValue <> '' then LogMessage('      Get result Tv Mode1:'+ItemValue+'||');
      debug_pos1:=Pos('<a href="',ItemValue);
      if debug_pos1 >0 then ItemValue := Copy(ItemValue,0,debug_pos1-1);
      //ItemValue:=StringReplace(ItemValue,'','',True,False,True);
      //ItemValue:=StringReplace(ItemValue,'</a>','',True,False,True);
      AddCustomFieldValueByName('Tv',ItemValue);      
      if ItemValue <> '' then LogMessage('      Get result Tv Mode (CF~Tv~):'+ItemValue);
      //ItemValue1:=HTMLValue(HTML,StartPos,0,'<li role="presentation" class="ipc-inline-list__item','</ul>');
      ItemValue1:=HTMLValues(HTML,'<h1 textlength="','</ul>','"ipc-inline-list__item">','</',', ',StartPos);
      //ItemValue1:=HTMLValues2(HTML,'<h1 textlength="','</ul>','<li role="presentation" class="ipc-inline-list__item">','</li>',', ',StartPos);      
      AddCustomFieldValueByName('Tv2',ItemValue1);   
      if ItemValue1 <> '' then LogMessage('      Get result Tv Mode01:'+#13+ItemValue1+'||'+#13);      
   end else
      LogMessage('tv-metadata not found');   

   StartPos:=Pos('releaseinfo?ref_=tt_ov_rdat',HTML);
   if StartPos>0 then begin
      yearValue:=HTMLValue(HTML,StartPos,0,'</a>','</span></li><li role="presentation" class="ipc-inline-list__item"><a href="/title/');
      //AddCustomFieldValueByName('IMDB_year',yearValue);
      //AddCustomFieldValueByName('IMDB Year',yearValue);
      AddCustomFieldValueByName('IMDB_Series-year',yearValue);
      if yearValue <> '' then LogMessage('      Get result Tv Mode (CF~IMDB_year~)+:'+yearValue);   
   end else
      LogMessage('tv-metadata-a not found');      
   //*)   

Quote

  //Retreive Data Config
  USE_SAVED_PVDCONFIG  = True ;  //Use the Overwrite Options of the script saved in pvdconf.ini for avoid download not used pages. Remember PVD only save in exit.
  GET_ORIGINAL_TITLE  = True ;  //Download the alternate title info in your language in your country in of the principal movie page if it exists there for to replace the original title in the Title field. 
//  GET_ORIGINAL_TITLE  = False ;  //Download the alternate title info in your language in your country in of the principal movie page if it exists there for to replace the original title in the Title field.
//  GET_LOCAL_TITLE  = True ;  //Download the alternate title info in your language in your country in of the principal movie page if it exists there.
  GET_LOCAL_TITLE  = False ;  //Download the alternate title info in your language in your country in of the principal movie page if it exists there. 
  GET_FULL_MPAA  = True ;  //Download Certification provider page for retreive the MPAA info. Otherwise only the info of the principal movie page.
  GET_FULL_AKA  = True ;  //Download 'Also Known As' provider page for retreive the info. Otherwise only the info of the principal movie page.
  GET_FULL_CREDIT  = True ;  //Download Cast or Credit provider page for retreive the info. Otherwise only the info of the principal movie page.
  PEOPLE_LIMIT  = 25;    //Limit of number of actors (cast) or of credits (crew) retrieved.
  GET_FULL_AWARDS  = True ;  //Download Awards provider page for retreive the info. Otherwise doesn't do nothingh because no info in the principal movie page.
  EVENTS_LIMIT  = 100;   //Limit of number of events (USA Academy Awards, Golden Globes, etc) to retrive awards.
  GET_FULL_FEATURES  = True ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio, etc).
  //GET_FULL_FEATURES  = False ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio, etc).
  GET_MINI_FEATURES  = True ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio).
  //GET_MINI_FEATURES  = False ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio).
  //GET_FEATURES  = True ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio).
  GET_FEATURES  = False ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio).
  GET_FULL_PLOTKEYWORDS  = True ;  //Download Plot Keywords provider page for retreive the Plot Keywords info. Otherwise only the info of the principal movie page
  PLOTKEYWORDS_LIMIT  = 100;  //Limit of number of tags retrieved only when download Plot Keywords provider page.
  GET_FULL_PLOTSUMMARY  = True ;  //Download Plot provider page for retreive the Summaries info. Otherwise only the info of the principal movie page
//  GET_FULL_PLOT_SUMMARY  = True ;  //Set to False to not wanted to Download full synopsis for Plot provider page for retreive the Synopsis info in Comment box. 
  GET_FULL_PLOT_SUMMARY  = False ;  //Set to True if to wanted to Download full synopsis for Plot provider page for retreive the Synopsis info in Comment box.
//  MAX_IMAGE_HEIGTH  = 1200; //Heigth limit of the stored posters.   
  MAX_IMAGE_HEIGTH  = 500; //Heigth limit of the stored posters.
  //Process Data Config
  PRESERVE_PVD_DESCRIPTION_SETTING  = True ; //Avoid double use of ~description~ and ~comment~ using only the user check fields table selection otherwise try get "plot_summary"
  //Process Behaviour Config
  BYPASS_SILENT  = True ;  //Ensure critical ShowMessage alerts bypassing Silent PVdB preferences
  CHECK_WEBSITE  = True ;  //Add to SearchResult List the true HTTPS links 'Just to check the website' with the browser
  //CHECK_WEBSITE  = False ;  //Add to SearchResult List the true HTTPS links 'Just to check the website' with the browser
  POSTER_IN_SEARCH  = True ;//Download and show movie posters in the list of the SearchResult

      if ItemValue <> '' then LogMessage('      Get result Tv Mode (CF~Tv~):'+ItemValue);
      yearValue:=HTMLValue(HTML,StartPos,0,'</a>','</span></li><li role="presentation" class="ipc-inline-list__item"><a href="/title/');
      AddCustomFieldValueByName('IMDB_year',yearValue);
      AddCustomFieldValueByName('IMDB Year',yearValue);
      //AddCustomFieldValueByName('IMDB_Series-year',yearValue);
      if yearValue <> '' then LogMessage('      Get result Tv Mode (CF~IMDB_year~)+:'+yearValue);

Now I changed the Bing url address to search for results because the old Bing url address did not want to download the search results, but reported an error that it did not find the search results. This was probably a block for the Banned IP address, because I already have a similar experience with Kinopoisk.ru websites, where there is a captcha, which did not allow the transfer of information. Now I've added numbering to search results and make it easier to check the correct url.

  //Retreive Data Config
  USE_SAVED_PVDCONFIG  = True ;  //Use the Overwrite Options of the script saved in pvdconf.ini for avoid download not used pages. Remember PVD only save in exit.
  GET_ORIGINAL_TITLE  = True ;  //Download the alternate title info in your language in your country in of the principal movie page if it exists there for to replace the original title in the Title field. 
//  GET_ORIGINAL_TITLE  = False ;  //Download the alternate title info in your language in your country in of the principal movie page if it exists there for to replace the original title in the Title field.
//  GET_LOCAL_TITLE  = True ;  //Download the alternate title info in your language in your country in of the principal movie page if it exists there.
  GET_LOCAL_TITLE  = False ;  //Download the alternate title info in your language in your country in of the principal movie page if it exists there. 
  GET_FULL_MPAA  = True ;  //Download Certification provider page for retreive the MPAA info. Otherwise only the info of the principal movie page.
  GET_FULL_AKA  = True ;  //Download 'Also Known As' provider page for retreive the info. Otherwise only the info of the principal movie page.
  GET_FULL_CREDIT  = True ;  //Download Cast or Credit provider page for retreive the info. Otherwise only the info of the principal movie page.
  PEOPLE_LIMIT  = 25;    //Limit of number of actors (cast) or of credits (crew) retrieved.
  GET_FULL_AWARDS  = True ;  //Download Awards provider page for retreive the info. Otherwise doesn't do nothingh because no info in the principal movie page.
  EVENTS_LIMIT  = 100;   //Limit of number of events (USA Academy Awards, Golden Globes, etc) to retrive awards.
  GET_FULL_FEATURES  = True ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio, etc).
  //GET_FULL_FEATURES  = False ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio, etc).
  GET_MINI_FEATURES  = True ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio).
  //GET_MINI_FEATURES  = False ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio).
  //GET_FEATURES  = True ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio).
  GET_FEATURES  = False ; //Download Technical Specs for retreive the original movie features (Runtime, Sound Mix, Color, Aspect Ratio).
  GET_FULL_PLOTKEYWORDS  = True ;  //Download Plot Keywords provider page for retreive the Plot Keywords info. Otherwise only the info of the principal movie page
  PLOTKEYWORDS_LIMIT  = 100;  //Limit of number of tags retrieved only when download Plot Keywords provider page.
  GET_FULL_PLOTSUMMARY  = True ;  //Download Plot provider page for retreive the Summaries info. Otherwise only the info of the principal movie page
//  GET_FULL_PLOT_SUMMARY  = True ;  //Set to False to not wanted to Download full synopsis for Plot provider page for retreive the Synopsis info in Comment box. 
  GET_FULL_PLOT_SUMMARY  = False ;  //Set to True if to wanted to Download full synopsis for Plot provider page for retreive the Synopsis info in Comment box.
//  MAX_IMAGE_HEIGTH  = 1200; //Heigth limit of the stored posters.   
  MAX_IMAGE_HEIGTH  = 500; //Heigth limit of the stored posters.
  //Process Data Config
  PRESERVE_PVD_DESCRIPTION_SETTING  = True ; //Avoid double use of ~description~ and ~comment~ using only the user check fields table selection otherwise try get "plot_summary"
  //Process Behaviour Config
  BYPASS_SILENT  = True ;  //Ensure critical ShowMessage alerts bypassing Silent PVdB preferences
  CHECK_WEBSITE  = True ;  //Add to SearchResult List the true HTTPS links 'Just to check the website' with the browser
  //CHECK_WEBSITE  = False ;  //Add to SearchResult List the true HTTPS links 'Just to check the website' with the browser
  POSTER_IN_SEARCH  = True ;//Download and show movie posters in the list of the SearchResult