Recent Posts

Pages: 1 2 [3] 4 5 6 7 8 ... 10
21
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Confusion
« Last post by Ivek23 on March 28, 2025, 06:26:56 am »
Notice:

These two Function ConfDate1 and Function ConfDate2 below are not used in the script because if there is no complete date (day, month, year) or if the day or month is missing, PVD will freeze.

Quote
Function ConfDate1(OrigDate:String): String; //BlockOpen
Var
   i, rNum:Integer;
   d, m, y: String;
   TabMonths, TabFullMonths:Array of string;
   TabDate:TwideArray;
begin
   TabMonths := ['Null', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'];
   TabFullMonths := ['Null', 'January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'];
   rNum := ExplodeString(OrigDate, TabDate, '/');
   // LogMessage('* Function ConfDate1 => rNum: ' + IntToStr(rNum));
   if (rNum <= 1) then begin
      rNum := ExplodeString(OrigDate, TabDate, ' ');
      // LogMessage('* Function ConfDate1 => rNum: ' + IntToStr(rNum));
   end;
   if (rNum > 0) then begin
      // LogMessage('** Function ConfDate1 => TabDate 0: ' + TabDate[0]);
      // LogMessage('** Function ConfDate1 => TabDate 1: ' + TabDate[1]);
      // LogMessage('** Function ConfDate1 => TabDate 2: ' + TabDate[2]);
      if (Length(TabDate[0]) > 0) then begin
         if (Length(TabDate[0]) > 2) then begin
            m := TabDate[0];
            for i := 1 to 12 do begin
               if ((m = TabMonths) or (m = TabFullMonths)) then begin
                  m := IntToStr(i);
                  break;
               end;
            end;
            LogMessage('* Function ConfDate1 => Months: ' + m);
            // d := Copy(TabDate[1], 1, Length(TabDate[1])-1);
            d := TabDate[1];
            If Copy(TabDate[1], 1, 1) = '0' then
               d:= Copy(TabDate[1], 2, 1);
            y := TabDate[2];
         end else if (Length(TabDate[1]) > 0) then begin
            y:= TabDate[2];
            m:= TabDate[1];
               For i := 1 to 12 do begin
                  If ((m = TabMonths) or (m = TabFullMonths)) then begin
                     m := IntToStr(i);
                     break;
                  end;
               end;
            d:= TabDate[0];
            If Copy(TabDate[0], 1, 1) = '0' then
               d:= Copy(TabDate[0], 2, 1);
            LogMessage('* Function ConfDate1 => 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, 1, 3) then begin
                  m := IntToStr(i);
                  break;
               end;
            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('* Function ConfDate1 - Year: ' + y + ' month: ' + m + ' day: ' + d);
      end;
      Result := d + '.' + m + '.' + y;
   end;
End; //BlockClose

Function ConfDate2(OrigDate:String): String; //BlockOpen
Var
    i, rNum:Integer;
    d, m, y: String;
    TabMonths, TabFullMonths:Array of string;
    TabDate:TwideArray;
begin
    TabMonths := ['Null', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'];
    TabFullMonths := ['Null', 'January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'];
    rNum := ExplodeString(OrigDate, TabDate, '/');
    // LogMessage('* Function ConfDate2 => rNum: ' + IntToStr(rNum));
    if (rNum <= 1) then begin
        rNum := ExplodeString(OrigDate, TabDate, ' ');
        // LogMessage('* Function ConfDate2 => rNum: ' + IntToStr(rNum));
    end;
    if (rNum > 0) then begin
        // LogMessage('** Function ConfDate2 => TabDate 0: ' + TabDate[0]);
        // LogMessage('** Function ConfDate2 => TabDate 1: ' + TabDate[1]);
        // LogMessage('** Function ConfDate2 => TabDate 2: ' + TabDate[2]);
        if (Length(TabDate[0]) > 0) then begin
            if (Length(TabDate[0]) > 2) then begin
                m := TabDate[0];
                for i := 1 to 12 do begin
                    if ((m = TabMonths) or (m = TabFullMonths)) then begin
                        m := IntToStr(i);
                        break;
                    end;
                end;
                if Length(m) = 1 then m := '0' + m; // Ensure month has two digits
                LogMessage('* Function ConfDate2 => Months: ' + m);
                d := TabDate[1];
                If Copy(TabDate[1], 1, 1) = '0' then
                    d := Copy(TabDate[1], 2, 1);
                if Length(d) = 1 then d := '0' + d; // Ensure day has two digits
                y := TabDate[2];
            end else if (Length(TabDate[1]) > 0) then begin
                y := TabDate[2];
                m := TabDate[1];
                For i := 1 to 12 do begin
                    If ((m = TabMonths) or (m = TabFullMonths)) then begin
                        m := IntToStr(i);
                        break;
                    end;
                end;
                if Length(m) = 1 then m := '0' + m; // Ensure month has two digits
                d := TabDate[0];
                If Copy(TabDate[0], 1, 1) = '0' then
                    d := Copy(TabDate[0], 2, 1);
                if Length(d) = 1 then d := '0' + d; // Ensure day has two digits
                LogMessage('* Function ConfDate2 => 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, 1, 3) then begin
                    m := IntToStr(i);
                    break;
                end;
            end;
            if Length(m) = 1 then m := '0' + m; // Ensure month has two digits
            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);
            if Length(d) = 1 then d := '0' + d; // Ensure day has two digits
            LogMessage('Function ConfDate2 - Year: ' + y + ' month: ' + m + ' day: ' + d);
        end;
        // Format the date as yyyy-mm-dd
        Result := y + '-' + m + '-' + d;
    end;
End; //BlockClose
22
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Custom Fields
« Last post by Ivek23 on March 28, 2025, 06:06:55 am »
Quote
//Custom field names to use------------------------------------------------------------------------
  THANKS_FIELD            =   'Thanks Credits';
  FOLLOWEDBY_FIELD      =   'Followed By';
  SILENT_FIELD               =   'Silent';
  IMDB_FIELD               =   'IMDB';

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:
  • Thanks Credits (Checkbox)
  • Followed By (Checkbox)
  • Silent (Checkbox)
  • IMDB (Checkbox)
23
PVD Python Scripts / PVD Selenium MOD v4 IMDb Movie Script Custom Fields
« Last post by Ivek23 on March 28, 2025, 05:58:20 am »
In this thread PVD Selenium MOD v4 IMDb Movie Script Custom Fields working in PVD Selenium MOD version will be all the information that is related to custom fields in PVD Selenium MOD  IMDb Movie Script version.

All custom fields are visible in Preferences/Movies/Custom Items, where you can add the fields.
24
PVD Python Scripts / IMDb ALL-IN-ONE SCRIPT
« Last post by afrocuban on March 23, 2025, 01:55:13 am »
IMPORTANT!!!

A few hours ago, IMDb completely changed /fullcredits page html layout, so that page doesn't work any more. Soon, /reference page will be changed too. I know because I got popups offering me to peek to a new "Reference" page. So, until that happen, I will not update scripts, because both pages will share the same code again, and it will be easier to change. For now I made a quick fix everything to work if you check the options in Configurator as I suggested earlier. In addition you have to check "Download the Cast or Credit (text only) provider page to retrieve the full information. Or else, only the info from the main movie page will be downloaded." option and to download fullcredits page too!!! This should work until /reference page changes, or any other page changes meanwhile.

And it happened just when I finished ''all-in one script" while successfully doing final tests. Here's the pack.


Quote
So, with one IMDb Script you get all movies, Series, episode list, and then you apply the same script for episodes.


Also, new search window introduced, with different types of search and countdown of 10 seconds defaulted to "general" search.

It took only 600 additional lines comparing to Movie script, including a lot of commented out lines, and one simple python script to get all of this.

Extract and overwrite existing scripts with this pack.


I will soon start to re-birth AllMovie and RottentTomatoes scripts. I will not revive any other script.
25
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Confusion
« Last post by Ivek23 on March 22, 2025, 06:25:24 am »
We'll get to that, I'm currently checking that part of the code isn't working and I'm working on a fix. I'll post the fix later today.
26
PVD Python Scripts / Re: Selenium Imdb Series and Episodes Scripts discussion
« Last post by afrocuban on March 21, 2025, 09:52:07 pm »
Thanks!
27
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Confusion
« Last post by afrocuban on March 21, 2025, 09:50:34 pm »
Thanks Ivek.


here's the assesment of these 3 snippets:


The only thing from the first 2 snippets  I see is that commented out lines are deleted from the original. I compared everything in Notepad++:

Quote
      //MovieURL := 'http://www.imdb.com' + TextBetWeenFirst(ItemList, '", "url":"', '", "name":"');
Quote
      //LogMessage('Function ParsePage_IMDBMovieBASE -   *   Get result url 1: ' + MovieURL + ' | |');

Quote
         // If titleValue = '' then titleValue := TextBetWeenFirst(ItemList, '<h1 class="long">', '<'); // Strings which opens/closes the data. WEB_SPECIFIC



These lines, which were already commented out, are just deleted as "improvement" but they don't influence anything anyway, so I am not sure what improvement is there? With or without them, everything works anyway.

Also, the third snippets works too, it's just the other way to achieve the same. There are so many ways to achieve the same goal, and I choose one, that works too.

I hope to see what doesn't work actually in the scripts.


28
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Confusion
« Last post by Ivek23 on March 21, 2025, 07:13:42 pm »
Function ParsePage_IMDBMovieBASE

Improved part of the code
Quote
      //Get ~IMDb Url~
      MovieURL := TextBetWeenFirst(ItemList, '","url":"','","name":"');
      MovieURL := StringReplace(MovieURL, 'https://' ,'http://' ,True, False, True);
      AddFieldValueXML('url', MovieURL);
      LogMessage('Function ParsePage_IMDBMovieBASE -  *  Get result MovieURL: ' + MovieURL);
      // IMDB_FIELD         = 'IMDB';
       if PosFrom('imdb', MovieURL, 1) > 0 then
      AddCustomFieldValueByName(IMDB_FIELD, '-1');

   
Quote
      If Not (ReferencePageDownloaded) Then Begin
         // Get ~title~
         titleValue := TextBetWeenFirst(ItemList, '","name":"', '","'); // 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
         //if GET_ORIGINAL_TITLE then - If set to false, both with GET_LOCAL_TITLE, nothing will be added, so it doesn't make sense here. However, in REFERENCE, as the third option, we can set the title available from the IMDb page for users with English settings (on IMDb or computer Regional Settings) or those in English-speaking geo-locations.
         AddFieldValueXML('title', titleValue);
         AddCustomFieldValueByName('Title', titleValue);
         AddCustomFieldValueByName('Localized title', titleValue);
         LogMessage('Function ParsePage_IMDBMovieBASE - Get result title: ' + titleValue + ' | |');

      //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[2] = '0')) Then Begin
         // Get ~origtitle~
         ItemValue := TextBetWeenFirst(ItemList, '","name":"', '","'); // 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);
         AddCustomFieldValueByName('Original Title', ItemValue);
         LogMessage('Function ParsePage_IMDBMovieBASE - Get result origtitle + (CF~OrigTitle~): ' + ItemValue + ' | |');
      //End;

Improved part of the code

Quote
      If Not (ReferencePageDownloaded) Then Begin
         // Get ~title~
         titleValue := TextBetWeenFirst(ItemList, '","name":"', '","'); // Strings which opens/closes the data. WEB_SPECIFIC
         If titleValue = '0' then titleValue := '';
         //if GET_ORIGINAL_TITLE then - If set to false, both with GET_LOCAL_TITLE, nothing will be added, so it doesn't make sense here. However, in REFERENCE, as the third option, we can set the title available from the IMDb page for users with English settings (on IMDb or computer Regional Settings) or those in English-speaking geo-locations.
         AddFieldValueXML('title', titleValue);
         AddCustomFieldValueByName('Title', titleValue);
         AddCustomFieldValueByName('Localized title', titleValue);
         LogMessage('Function ParsePage_IMDBMovieBASE - Get result title: ' + titleValue + ' | |');

      //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[2] = '0')) Then Begin
         // Get ~origtitle~
         ItemValue := TextBetWeenFirst(ItemList, '","name":"', '","'); // 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);
         AddCustomFieldValueByName('Original Title', ItemValue);
         LogMessage('Function ParsePage_IMDBMovieBASE - Get result origtitle + (CF~OrigTitle~): ' + ItemValue + ' | |');
      //End;

   

Quote
//If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[18] = '0')) Then Begin
            // Get ~rdate~ + (CF~IMDB Release Date~)
            ItemValue := TextBetWeenFirst(ItemList, ',"datePublished":"', '","'); // Strings which opens/closes the data. WEB_SPECIFIC
            AddFieldValueXML('rdate', ItemValue); // It has to be added here, because being original field it follows by design the regional settings of your computer and cannot be customized like IMDB Release Date(s). It can be added as ItemArray[2] + '.' + ItemArray[1] + '.' + ItemArray[0]; only if the formats in the HTML and your computer are identical.
            LogMessage('Function ParsePage_IMDBMovieBASE - Get result ~rdate~: ' + ItemValue + ' | |');
            ItemValue := StringReplace(ItemValue, '-01', '-1', True, False, True);
            ItemValue := StringReplace(ItemValue, '-02', '-2', True, False, True);
            ItemValue := StringReplace(ItemValue, '-03', '-3', True, False, True);
            ItemValue := StringReplace(ItemValue, '-04', '-4', True, False, True);
            ItemValue := StringReplace(ItemValue, '-05', '-5', True, False, True);
            ItemValue := StringReplace(ItemValue, '-06', '-6', True, False, True);
            ItemValue := StringReplace(ItemValue, '-07', '-7', True, False, True);
            ItemValue := StringReplace(ItemValue, '-08', '-8', True, False, True);
            ItemValue := StringReplace(ItemValue, '-09', '-9', True, False, True);
            if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieBASE - Get result ReleaseDatePublished: ' + ItemValue + ' | |');
            if ItemValue <> '' then begin
               ExplodeString(ItemValue, ItemArray, '-');
               ItemValue := ItemArray[2] + '.' + ItemArray[1] + '.' + ItemArray[0];
               AddCustomFieldValueByName('IMDB Release Date', ItemValue);
               if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieBASE - Get result DatePublished (CF~IMDB Release Date~): ' + ItemValue + ' | |');
            //End;
         End;
      End;   //If Not (ReferencePageDownloaded) then Begin should and here

Improved part of the code for the CustomStringReplace function, thus obtaining better space in scripts.

Quote
         //If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[18] = '0')) Then Begin
            // Get ~rdate~ + (CF~IMDB Release Date~)
            ItemValue := TextBetWeenFirst(ItemList, ',"datePublished":"', '","'); // Strings which opens/closes the data. WEB_SPECIFIC
            AddFieldValueXML('rdate', ItemValue); // It has to be added here, because being original field it follows by design the regional settings of your computer and cannot be customized like IMDB Release Date(s). It can be added as ItemArray[2] + '.' + ItemArray[1] + '.' + ItemArray[0]; only if the formats in the HTML and your computer are identical.
            LogMessage('Function ParsePage_IMDBMovieBASE - Get result ~rdate~: ' + ItemValue + ' | |');
            ItemValue := CustomStringReplace(ItemValue, ['-01', '-02', '-03', '-04', '-05', '-06', '-07', '-08', '-09'], ['-1', '-2', '-3', '-4', '-5', '-6', '-7', '-8', '-9']);
            if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieBASE - Get result ReleaseDatePublished: ' + ItemValue + ' | |');
            if ItemValue <> '' then begin
               ExplodeString(ItemValue, ItemArray, '-');
               ItemValue := ItemArray[2] + '.' + ItemArray[1] + '.' + ItemArray[0];
               AddFieldValueXML('rdate',ItemValue);
               AddCustomFieldValueByName('IMDB Release Date', ItemValue);
               if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieBASE - Get result DatePublished (CF~IMDB Release Date~): ' + ItemValue + ' | |');
            //End;
         End;
      End;   //If Not (ReferencePageDownloaded) then Begin should and here


More to come next time or tomorrow.

29
PVD Python Scripts / Re: Selenium Imdb Series and Episodes Scripts discussion
« Last post by Ivek23 on March 21, 2025, 05:56:24 pm »
Quote from: afrocuban on March 21, 2025, 01:35:44 pm
Question:
Which script creates seasons in PVD?

Imdb Movie(episodelist) [HTTPS] script or Imdb Movie(episodelist) [HTTPS] x number and sea tag before the word script.
30
PVD Python Scripts / Re: Selenium Imdb Series and Episodes Scripts discussion
« Last post by afrocuban on March 21, 2025, 01:35:44 pm »
Question:
Which script creates seasons in PVD?
Pages: 1 2 [3] 4 5 6 7 8 ... 10