Personal Video Database

IMDb is changing layout again. Smells like new troubles for us...

Unfortunately, only two weeks after my initial post, and a week after my previous post, my mom, out of nowhere got COVID and lost her battle. May the God rest her soul...

CODE_PAGE      =28591 ;

CHANGE LOG :
            V 1.4.1.6 (08/11/2020) Ivek23: Added some new custom fields.

The following custom fields can be added to the IMDB_ [EN] [HTTPS] script.

Origtitle, Title and Localized title custom box.

Quote

Function ParsePage_IMDBMovieBASE(HTML:String):Cardinal; //BlockOpen
.
.
.
    LogMessage('Function ParsePage_IMDBMovieBASE BEGIN======================|');
    Result:=prFinished;  //It will change to prError if any big problem with exit;
    //Because the script don't retreives the data in the page order a token search for the first curPos position or block select is mandatory
    //Get ~title~, ~year~, ~origtitle~, ~poster~
    //Get all "raw" title summary (in raw because we need the hidden links, we avoid "complete" token in strings which opens/closes)
    ItemList:=TextBetWeenFirst(HTML,'<div class="title_block"','div class="plot_summary_wrapper">'); //WEB_SPECIFIC.
    If (Length(ItemList)>0) Then Begin
        //Get ~title~
        titleValue:=TextBetWeenFirst(ItemList,'<h1 class="">','<');       //Strings which opens/closes the data. WEB_SPECIFIC
        If titleValue = '0' then titleValue:='';
        If titleValue = '' then titleValue:=TextBetWeenFirst(ItemList,'<h1 class="long">','<');       //Strings which opens/closes the data. WEB_SPECIFIC
        AddFieldValueXML('title',titleValue);
      AddCustomFieldValueByName('Title',titleValue);
      AddCustomFieldValueByName('Localized title',titleValue);
        LogMessage('      Get result title:'+titleValue+'||');   
         //First normal kind get of ~year~
        ItemValue:=TextBetWeenFirst(ItemList,'<span id="titleYear">(',')</span>            </h1>');                                 //Strings which opens/closes the data. WEB_SPECIFIC     
        AddFieldValueXML('year',ItemValue);
.
.
.
        //Get ~origtitle~
        ItemValue:=TextBetWeenFirst(ItemList,'<div class="originalTitle">','<');          //Strings which opens/closes the data. WEB_SPECIFIC
        If (Length(ItemValue)=0) Then ItemValue:=titleValue;                           //Provider hides the original title if same that title. WEB_SPECIFIC
        AddFieldValueXML('origtitle',ItemValue);
      AddCustomFieldValueByName('Origtitle',ItemValue);
        LogMessage('      Get result origtitle:'+ItemValue+'||');
        ItemValue:=TextBetWeenFirst(ItemList,BASE_URL_IMAGE_PRE_TRUE,'.');

Thanks Ivek. I sincerely appreciate your help and your time. I'm getting "\warning.php" while trying to donload skin. Never mind. Don't bother yourself anymore. I'll adjust my ideas to my competeneces and PVD design possibilities.
Best regards

Function ParsePage_IMDBMovieBASE(HTML:String):Cardinal; //BlockOpen
.
.
.
    LogMessage('Function ParsePage_IMDBMovieBASE BEGIN======================|');
    Result:=prFinished;  //It will change to prError if any big problem with exit;
    //Because the script don't retreives the data in the page order a token search for the first curPos position or block select is mandatory
    //Get ~title~, ~year~, ~origtitle~, ~poster~
    //Get all "raw" title summary (in raw because we need the hidden links, we avoid "complete" token in strings which opens/closes)
    ItemList:=TextBetWeenFirst(HTML,'<div class="title_block"','div class="plot_summary_wrapper">'); //WEB_SPECIFIC.
    If (Length(ItemList)>0) Then Begin
        //Get ~title~
        titleValue:=TextBetWeenFirst(ItemList,'<h1 class="">','<');       //Strings which opens/closes the data. WEB_SPECIFIC
        If titleValue = '0' then titleValue:='';
        If titleValue = '' then titleValue:=TextBetWeenFirst(ItemList,'<h1 class="long">','<');       //Strings which opens/closes the data. WEB_SPECIFIC
        AddFieldValueXML('title',titleValue);
      AddCustomFieldValueByName('Title',titleValue);
      AddCustomFieldValueByName('Localized title',titleValue);
        LogMessage('      Get result title:'+titleValue+'||');   
         //First normal kind get of ~year~
        ItemValue:=TextBetWeenFirst(ItemList,'<span id="titleYear">(',')</span>            </h1>');                                 //Strings which opens/closes the data. WEB_SPECIFIC     
        AddFieldValueXML('year',ItemValue);
.
.
.
        //Get ~origtitle~
        ItemValue:=TextBetWeenFirst(ItemList,'<div class="originalTitle">','<');          //Strings which opens/closes the data. WEB_SPECIFIC
        If (Length(ItemValue)=0) Then ItemValue:=titleValue;                           //Provider hides the original title if same that title. WEB_SPECIFIC
        AddFieldValueXML('origtitle',ItemValue);
      AddCustomFieldValueByName('Origtitle',ItemValue);
        LogMessage('      Get result origtitle:'+ItemValue+'||');
        ItemValue:=TextBetWeenFirst(ItemList,BASE_URL_IMAGE_PRE_TRUE,'.');

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;
    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
    if (Pos('It looks like we don'+Chr(39)+'t have any AKAs for this title yet.',HTML)>0) then Exit;
    //Go to "Also Known As"
    curPos:=Pos('class="ipl-list-title">Also Known As (AKA)',HTML);                      //Strings start which opens the block content data. WEB_SPECIFIC
    curPos:=PosFrom('</h4>',HTML,curPos);                                              //Strings end which opens the block content data.  WEB_SPECIFIC
    curPos:=curPos+Length('</h4>');                                                    //Strings end which opens the block content data.  WEB_SPECIFIC
    //Get all "raw" list aka for create good values separators
    endPos:=PosFrom('</table>',HTML,curPos);                                            //Strings which opens/closes the data. WEB_SPECIFIC
    ItemList:=Copy(HTML,curPos,endPos-curPos);
    ItemList:=StringReplace(ItemList,'<td class="aka-item__name--empty"></td>','(Empty)|',True,True,False);   //Fill the empty values (in countries) con in order to asure that ExplodeString get a value. WEB_SPECIFIC
    ItemList:=StringReplace(ItemList,'<td></td>','(Empty)|',True,True,False);             //Fill the empty values (in countries) con in order to asure that ExplodeString get a value. WEB_SPECIFIC
    ItemList:=StringReplace(ItemList,'</td>','|',True,True,False);                      //WEB_SPECIFIC
    //Get all aka list (NOT necesary in raw because: Several couple of valors (Country/title) but the first is the original title
    ItemList:=RemoveTags(ItemList, False);
    LogMessage('           Parse results ('+IntToStr(curPos)+','+IntToStr(endPos)+') complex ItemList:'+ItemList+'||');
    ExplodeString(ItemList,ItemArray,'|');
    ItemValue:='';
    For index:=Low(ItemArray) To High(ItemArray) Do Begin        //Remember index begin in 0
        If (Pos('original title',ItemArray[index])>0) then begin
            AddFieldValueXML('origtitle',ItemArray[index+1]);       //WEB_SPECIFIC
         AddCustomFieldValueByName('Origtitle',ItemArray[index+1]);       //WEB_SPECIFIC
            LogMessage('      Get result origtitle:'+ItemArray[index+1]+'||');
        end else begin
            //Verify if we get before the same title
            If (Pos(ItemArray[index+1],ItemValue)=0) Then ItemValue:=ItemValue+'<br>'+ItemArray[index+1];
        end;
        index:=index+1;  //In order to make a for loop with +2 increment (one here and one by the for).
    End;
    AddFieldValueXML('aka',ItemValue);
    LogMessage('      Get results aka:'+ItemValue+'||');
    LogMessage('Function ParsePage_IMDBMovieAKA END=====================||');
  End; //BlockClose

Thanks for clarification!

Still, I need help. When <title> is equal to <origtitle>, origtitle becomes invisible in the skin. Is there a way to force origtitle to be visible in the skin anyway?

In the following example, I applied exactly the same formatting as in the code above, but in this case one field is linkified - "Director" field. Both codes, the code above and the following code, are presented in the screenshots of the skin (Original title and Title in one row, and Director in the row below it)

Thanks Ivek! It work flawlessly!

Regarding movie list in the tree on the left, you think the font can only be black when not selected, or white when selected?