Recent Posts

Pages: [1] 2 3 4 5 6 ... 10
1
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Confusion
« Last post by Ivek23 on March 30, 2025, 01:17:08 pm »
Function ParsePage_IMDBMovieMPAA

Minor code correction.

Quote
//(*
   // Get "Certification" (CF~Certification~) info
      If Pos('<span id="certificates">Certifications</span>', HTML) > 0 Then
      Begin
        curPos := Pos('<span id="certificates">Certifications</span>', HTML);
        EndPos := PosFrom('</section>', HTML, curPos);

        // Extract the relevant section
        Section := Copy(HTML, curPos, EndPos - curPos);
        //LogMessage('Function ParsePage_IMDBMovieMPAA - Extract the relevant Section: ' + Section + ' | |');

        curPos := 1;
        ItemValue1 := '';

        // Parse the certification items
        While PosFrom('"certificates-item">', Section, curPos) > 0 Do
        Begin
         // Move to the label
         curPos := PosFrom('<span class="ipc-metadata-list-item__label ipc-btn--not-interactable" aria-disabled="false"', Section, curPos) + Length('<span class="ipc-metadata-list-item__label ipc-btn--not-interactable" aria-disabled="false"');
         categoryName := TextBetween(Section, '>', '</span>', False, curPos);
         //LogMessage('Function ParsePage_IMDBMovieMPAA - categoryName after TextBetween: ' + categoryName + ' | |');

         // Move to the value
         curPos := PosFrom('href="', Section, curPos) + Length('href="');
         categoryValue := TextBetween(Section, '">', '</a>', False, curPos);
         //LogMessage('Function ParsePage_IMDBMovieMPAA - categoryValue after TextBetween: ' + categoryValue + ' | |');

         // Format the category link with proper spaces
         ItemValue1 := ItemValue1 + '   •   ' + categoryName + ': ' + categoryValue + '<br>';

         // Move to the next item
         curPos := PosFrom('</li>', Section, curPos) + Length('</li>');
        End;

        // Remove the trailing "   •   " if it exists and keep the last </br> intact
        If Copy(ItemValue1, Length(ItemValue1) - 14, 14) = '<br>   •   ' Then
        Begin
         ItemValue1 := Copy(ItemValue1, 1, Length(ItemValue1) - 14);
        End;

        AddCustomFieldValueByName('Certification', 'Certification<br>' + ItemValue1);
        If ItemValue1 <> '' Then
         LogMessage('Function ParsePage_IMDBMovieMPAA - Certification:<br>' + ItemValue1 + ' | |');
      End
      Else
      Begin
        LogMessage('Function ParsePage_IMDBMovieMPAA - Certification section not found');
        Result := prError; // Set to error if Certification section is not found
      End;
//*)
    LogMessage('Function ParsePage_IMDBMovieMPAA END=====================| |');
  End; //BlockClose
2
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Confusion
« Last post by Ivek23 on March 30, 2025, 12:53:48 pm »
Function ParsePage_IMDBMovieAKA

Minor code correction.

Quote
//(*   
    //Get ~aka~ (multiple values in a line break separated list) Be careful don't repeat #13
   // Note that "For" loop iterates through each element in the ItemArray and checks if it is already present in the ItemValue string. If it's not present, it adds it to ItemValue. only unique AKA values are stored and logged!
    //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('<h3 class="ipc-title__text"><span id="akas">Also Known As (AKA)</span>', HTML);                      //Strings start which opens the block content data. WEB_SPECIFIC
   If 0<curPos then begin
      EndPos := curPos;
      //ItemList := HTMLValues2(HTML, '<h3 class="ipc-title__text"><span id="akas">Also Known As (AKA)</span>', '</section>', '<label class="', '</label>', '*', EndPos);
      ItemList := HTMLValues2(HTML, '<h3 class="ipc-title__text"><span id="akas">Also Known As (AKA)</span>', '</section>', '<span class="ipc-metadata-list-item__list-content-item ipc-btn--not-interactable"', '</span>', '*', EndPos);
      //LogMessage('Function ParsePage_IMDBMovieAKA -      Get result ItemList: ' + ItemList);
      ItemValue1 := ItemList;
      ExplodeString(ItemList, ItemArray, '*');
      ItemValue := '';
      For index := Low(ItemArray) To High(ItemArray) Do Begin        //Remember index begins at 0
         //LogMessage('Function ParsePage_IMDBMovieAKA -      Get result ItemArray[index]*: ' + ItemArray[index]);
         If (Pos(ItemArray[index], ItemValue)=0) Then ItemValue := ItemValue + '<br>' + ItemArray[index];
      End;
      //ItemValue := StringReplace(ItemValue, '', '', True, True, False);
      AddFieldValueXML('aka', ItemValue);
      AddCustomFieldValueByName('Imdb Aka', ItemValue);
      if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieAKA -      Get results ~aka~ & (CF~Imdb Aka~) : ' + ItemValue);
   End;
//*)
//(*   
// Initialize the string to collect all entries
allItemValues := '';

// Get "Also Known As (AKA)" information with countries
curPos := Pos('>Also Known As (AKA)<', HTML);
If 0 < curPos Then Begin
    EndPos := PosFrom('</section>', HTML, curPos);

    While curPos < EndPos Do Begin
        // Find each list item
        curPos := PosFrom('<li role="presentation" class="ipc-metadata-list__item', HTML, curPos);
        If (curPos = 0) Or (curPos > EndPos) Then Break;

        // Extract the country or label
        countryStart := PosFrom('<span class="ipc-metadata-list-item__label ipc-btn--not-interactable"', HTML, curPos) + Length('<span class="ipc-metadata-list-item__label ipc-btn--not-interactable" aria-disabled="false">');
        countryEnd := PosFrom('</span>', HTML, countryStart);
        countryValue := Copy(HTML, countryStart, countryEnd - countryStart);

        // Extract the AKA title
        akaStart := PosFrom('<span class="ipc-metadata-list-item__list-content-item ipc-btn--not-interactable"', HTML, countryEnd) + Length('<span class="ipc-metadata-list-item__list-content-item ipc-btn--not-interactable" aria-disabled="false">');
        akaEnd := PosFrom('</span>', HTML, akaStart);
        akaValue := Copy(HTML, akaStart, akaEnd - akaStart);

        // Move curPos past the end of the AKA title span
        curPos := akaEnd + Length('</span>');

        // Extract any subText (like (English), (Japanese), etc.)
        subTextStart := PosFrom('<span class="ipc-metadata-list-item__list-content-item--subText"', HTML, akaEnd);
        If (subTextStart > 0) And (subTextStart < PosFrom('</li>', HTML, akaStart)) Then Begin
            subTextStart := subTextStart + Length('<span class="ipc-metadata-list-item__list-content-item--subText">');
            subTextEnd := PosFrom('</span>', HTML, subTextStart);
            subText := Copy(HTML, subTextStart, subTextEnd - subTextStart);
            akaValue := akaValue + ' ' + subText;
            // Move curPos past the end of the subText span
            curPos := subTextEnd + Length('</span>');
        End Else
            subText := '';

        // Combine country and AKA for the custom field
        ItemValue := countryValue + ' - ' + akaValue;

        // Collect the result
        allItemValues := allItemValues + ItemValue + #13#10;

        // Move to the next list item
        curPos := PosFrom('</li>', HTML, curPos) + Length('</li>');
    End;

    // Add the collected results to the custom field
    AddCustomFieldValueByName('IMDbCountryAKA', allItemValues);
    LogMessage('Function ParsePage_IMDBMovieAKA - Get result IMDbCountryAKA: ' + allItemValues);
End;
//*)
//(*
   // Get (CF~IMDbPremiereDates~) information with countries and dates
      // Initialize the string to collect all entries
      allItemValues := '';

      curPos := Pos('<h3 class="ipc-title__text"><span id="releases">Release Date</span>', HTML);
      LogMessage('Function ParsePage_IMDBMovieAKA - CurPos initial: ' + IntToStr(curPos));
      If 0 < curPos Then Begin
         EndPos := PosFrom('</section>', HTML, curPos);
         //LogMessage('Function ParsePage_IMDBMovieAKA - EndPos: ' + IntToStr(EndPos));

         While curPos < EndPos Do Begin
            // Find each list item
            curPos := PosFrom('<li role="presentation" class="ipc-metadata-list__item ipc-metadata-list', HTML, curPos);
            //LogMessage('Function ParsePage_IMDBMovieAKA - CurPos list item: ' + IntToStr(curPos));
            If (curPos = 0) Or (curPos > EndPos) Then Break;

            // Extract the country or label
            countryStart := PosFrom('aria-label="', HTML, curPos) + Length('aria-label="');
            countryEnd := PosFrom('"', HTML, countryStart);
            countryValue := Copy(HTML, countryStart, countryEnd - countryStart);
            //LogMessage('Function ParsePage_IMDBMovieAKA - CountryValue for (CF~IMDbPremiereDates~): ' + countryValue);

            // Extract the release date
            dateStart := PosFrom('<span class="ipc-metadata-list-item__list-content-item ipc-btn--not-interactable" aria-disabled="false">', HTML, countryEnd) + Length('<span class="ipc-metadata-list-item__list-content-item ipc-btn--not-interactable" aria-disabled="false">');
            dateEnd := PosFrom('</span>', HTML, dateStart);
            dateValue := Copy(HTML, dateStart, dateEnd - dateStart);
            //LogMessage('Function ParsePage_IMDBMovieAKA - DateValue for (CF~IMDbPremiereDates~): ' + dateValue);

            // Move curPos past the end of the date span
            curPos := dateEnd + Length('</span>');
            //LogMessage('Function ParsePage_IMDBMovieAKA - CurPos after date for (CF~IMDbPremiereDates~): ' + IntToStr(curPos));

            // Extract any subText (like (limited), (Fantasia International Film Festival), etc.)
            subTextStart := PosFrom('<span class="ipc-metadata-list-item__list-content-item--subText"', HTML, dateEnd);
            //LogMessage('Function ParsePage_IMDBMovieAKA - SubTextStart for (CF~IMDbPremiereDates~): ' + IntToStr(subTextStart));
            If (subTextStart > 0) And (subTextStart < PosFrom('</li>', HTML, dateStart)) Then Begin
               subTextStart := subTextStart + Length('<span class="ipc-metadata-list-item__list-content-item--subText">');
               subTextEnd := PosFrom('</span>', HTML, subTextStart);
               subText := Copy(HTML, subTextStart, subTextEnd - subTextStart);
               dateValue := dateValue + ' ' + subText;
               // Move curPos past the end of the subText span
               curPos := subTextEnd + Length('</span>');
               //LogMessage('Function ParsePage_IMDBMovieAKA - SubText for (CF~IMDbPremiereDates~): ' + subText);
               //LogMessage('Function ParsePage_IMDBMovieAKA - CurPos after subText for (CF~IMDbPremiereDates~): ' + IntToStr(curPos));
            End Else
               subText := '';

            // Combine country, date, and subText for the custom field
            ItemValue := countryValue + ' - ' + dateValue;
            //LogMessage('Function ParsePage_IMDBMovieAKA - ItemValue for (CF~IMDbPremiereDates~): ' + ItemValue);

            // Collect the result
            allItemValues := allItemValues + ItemValue + #13#10;

            // Move to the next list item
            curPos := PosFrom('</li>', HTML, curPos) + Length('</li>');
            //LogMessage('Function ParsePage_IMDBMovieAKA - CurPos after </li>: ' + IntToStr(curPos));
         End;

         // Add the collected results to the custom field
         AddCustomFieldValueByName('IMDbPremiereDates', allItemValues);
         LogMessage('Function ParsePage_IMDBMovieAKA - Get result (CF~IMDbPremiereDates~): ' + allItemValues);
      End;
//*)

    LogMessage('Function ParsePage_IMDBMovieAKA END=====================| |');
   //LogMessage('Function ParsePage_IMDBMovieAKA: Ending processing.')
  End; //BlockClose
3
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Custom Fields
« Last post by Ivek23 on March 29, 2025, 04:11:46 pm »
ParsePage_IMDBMoviePLOTKEYWORDS

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:

  • Title1 (Multiselect list)
  • Plot Keywords (Memo)


ParsePage_IMDBMovieTECHNICAL

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:

  • mdb Runtime1 (Multiselect list)
  • Imdb SoundMix (Memo)
  • Imdb Sound Mix (Multiselect list)
  • Imdb_Color (Multiselect list)
  • Imdb Color: (Multiselect list)
  • Imdb_Aspect Ratio (Multiselect list)
  • Imdb Aspect Ratio (Multiselect list)
  • Aspect Ratio (Multiselect list)
  • ImdbTechSpecs (Memo)
  • Run time (Short Text)


ParsePage_IMDBMovieAWARDS

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:

  • IMDbAwards1 (Memo) or (Long Text)


ParsePage_IMDBMovieCONNECTIONS

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:

  • Connect (Multiselect list)


ParsePage_IMDBMoviePLOTSUMMARY

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:

  • Plot Summary (Memo) or (Long Text)
  • IMDB Synopsis (Memo) or (Long Text)


ParsePage_IMDBMovieCRITICREVIEWS

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:

  • Metascore (Rating)


Function ParsePage

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:

  • IMDbID or IMDbID: (Short Text)
  • IMDb.com (Memo)
  • WaybackArchive IMDb URLs (Memo)
  • IMDbMovieLinksInfo (Memo)
  • IMDbSearchUrl (Memo)
  • IMDbMoviesUrl (Memo)
  • CompE or IMDb_Movies_ Urls (Memo)
  • Plotsummary_URL (Memo)
  • Download_URL (Memo)
  • IUpdated (Long Text)
4
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Custom Fields
« Last post by Ivek23 on March 29, 2025, 03:15:49 pm »
ParsePage_IMDBMovieREFERENCE

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:
  • Reference (Memo)
  • Year (Multiselect list)
  • Title (Memo)
  • Localized title (Memo)
  • Title1 (Long Text)
  • Origtitle (Memo)
  • Original Title (Memo)
  • Imdb_Title (Memo)
  • Imdb Title 1 (Memo)
  • Imdb Title (Memo)
  • IMDB Rating or IMDBRating (Rating)
  • IMDB Votes or IMDB Votes:', (Number)
  • IMDB Release Date (Short Text)
  • TOP_250 or Top 250: (Number)
  • TOP_250TV (Number)
  • Bottom 100 (Number)
  • IMDb Studio2 (Memo)
  • Distributors (Memo)
  • IMDbAwards1(Memo) or (Long Text)
  • IMDb_Reviews_Summary (Memo)
  • IMDB Plot Summary (Memo)
  • Description (Memo)
  • IMDB_Tagline (Memo)
  • Sound Mix (Multiselect list)
  • IMDB - Sound Mix (Multiselect list)
  • Run time 1 (Short Text)
  • Imdb Runtime 1 (Long Text)
  • ProductionBudget (Long Text)
  • Language: (Multiselect list)
  • IMDb_Filming_Locations (Memo)
  • Color : (Multiselect list)
  • Imdb Color : (Multiselect list)
  • Certification: (Memo)
  • Imdb Aka (Memo)
  • IMDbCountryAKA (Memo)
5
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Confusion
« Last post by Ivek23 on March 29, 2025, 12:58:31 pm »
Function ParsePage_IMDBMovieBASE

Minor code correction.

Quote
   If Not (ReferencePageDownloaded) Then Begin
      If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[19] = '0')) Then Begin
         // Get ~budget~
         //curPos := Pos('<span class="ipc-metadata-list-item__label" aria-disabled="false">Budget</span>', HTML); // WEB_SPECIFIC
         curPos := Pos('<span class="ipc-metadata-list-item__label ipc-btn--not-interactable" aria-disabled="false">Budget</span>', HTML); // WEB_SPECIFIC
         If 0 < curPos Then Begin
            ItemValue := TextBetWeen(HTML, '<span class="ipc-metadata-list-item__label ipc-btn--not-interactable" aria-disabled="false">Budget</span><div class="ipc-metadata-list-item__content-container"><ul class="ipc-inline-list ipc-inline-list--show-dividers ipc-inline-list--inline ipc-metadata-list-item__list-content base" role="presentation"><li role="presentation" class="ipc-inline-list__item"><span class="ipc-metadata-list-item__list-content-item ipc-btn--not-interactable" aria-disabled="false">', '</span></li></ul>', false, curPos); // Strings which opens/closes the data. WEB_SPECIFIC
            ItemValue := StringReplace(ItemValue, ' (estimated)', '', True, True, False); // Eliminate '(estimated)' if exists
            if ItemValue <> '' then AddCustomFieldValueByName('ProductionBudget', ItemValue);
            ItemValue := StringReplace(ItemValue, 'EUR', '', True, True, False); // Eliminate 'EUR' if exists
            ItemValue := StringReplace(ItemValue, #36, '', True, True, False); // Eliminate '$' if exists
            ItemValue := StringReplace(ItemValue, '€', '', True, True, False); // Eliminate '€' if exists
            ItemValue := StringReplace(ItemValue, ',', '', True, True, False); // Eliminate ',' if exists
            AddFieldValueXML('budget', ItemValue);
            if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieBASE - ParsePage_IMDBMovieBASE - Get results ~budget~: ' + ItemValue + ' | |');
         End;
      End;
   End;   //If Not (ReferencePageDownloaded) Then Begin should end here
   
      //Get (CF~Domestic~) Gross US & Canada
      //curPos:=Pos('<span class="ipc-metadata-list-item__label" aria-disabled="false">Gross US & Canada</span>',HTML);      //WEB_SPECIFIC
      curPos:=Pos('<span class="ipc-metadata-list-item__label ipc-btn--not-interactable" aria-disabled="false">Gross US & Canada</span>',HTML);      //WEB_SPECIFIC
      If 0<curPos Then Begin       
         ItemValue:=TextBetWeen(HTML,'<span class="ipc-metadata-list-item__label ipc-btn--not-interactable" aria-disabled="false">Gross US & Canada</span>','</li></ul>',false,curPos);      //Strings which opens/closes the data. WEB_SPECIFIC
         //LogMessage('Function ParsePage_IMDBMovieBASE -      Get results BoxOffice Gross US & Canada:'+ItemValue+'||');
         if ItemValue <> '' then AddCustomFieldValueByName('Domestic',ItemValue);      
         ItemValue:=StringReplace(ItemValue,#36,'',True,True,False);        //Eliminate '$' if exists 
         ItemValue:=StringReplace(ItemValue,'€','',True,True,False);        //Eliminate '€' if exists         
         ItemValue:=StringReplace(ItemValue,',','',True,True,False);        //Eliminate ',' if exists       
         if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieBASE -      Get results Box Office Gross US & Canada  (CF~Domestic~):'+ItemValue+'||');
      End;   
   
      If Not (USE_SAVED_PVDCONFIG And (ConfigOptions[20] = '0')) Then Begin
         // Get ~money~ +  (CF~Worldwide~) Box Office worldwide
         //curPos := Pos('<span class="ipc-metadata-list-item__label" aria-disabled="false">Gross worldwide</span>', HTML); // WEB_SPECIFIC
         curPos := Pos('<span class="ipc-metadata-list-item__label ipc-btn--not-interactable" aria-disabled="false">Gross worldwide</span>', HTML); // WEB_SPECIFIC
         If 0 < curPos Then Begin
            ItemValue := TextBetWeen(HTML, '<span class="ipc-metadata-list-item__label ipc-btn--not-interactable" aria-disabled="false">Gross worldwide</span><div class="ipc-metadata-list-item__content-container"><ul class="ipc-inline-list ipc-inline-list--show-dividers ipc-inline-list--inline ipc-metadata-list-item__list-content base" role="presentation"><li role="presentation" class="ipc-inline-list__item"><span class="ipc-metadata-list-item__list-content-item ipc-btn--not-interactable" aria-disabled="false">', '</span></li></ul>', false, curPos); // Strings which opens/closes the data. WEB_SPECIFIC
            LogMessage('Function ParsePage_IMDBMovieBASE -      Get results BoxOffice worldwide: ' + ItemValue + ' | |');

            // Process the monetary value for XML
            MoneyValue := ItemValue;
            MoneyValue := StringReplace(MoneyValue, #36, '', True, True, False); // Eliminate '$' if exists
            MoneyValue := StringReplace(MoneyValue, '€', '', True, True, False); // Eliminate '€' if exists
            MoneyValue := StringReplace(MoneyValue, ',', '', True, True, False); // Eliminate ',' if exists
            LogMessage('Function ParsePage_IMDBMovieBASE - Processed Box Office value for "money" PVD field: ' + MoneyValue);
            AddFieldValueXML('money', MoneyValue);

            // Add the Worldwide value with currency symbol
            If ItemValue <> '' Then AddCustomFieldValueByName('Worldwide', ItemValue);

            If MoneyValue <> '' Then LogMessage('Function ParsePage_IMDBMovieBASE - Get results Box Office worldwide ~money~ +  (CF~Worldwide~): ' + MoneyValue + ' | |');
         End;
      End;
      
6
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Confusion
« Last post by Ivek23 on March 29, 2025, 12:46:57 pm »
Function ParsePage_IMDBMovieMPAA

Fix part of the code.

Quote
    mpaaValue := '';
   
   // Get (CF~IMDbmpaaSummary~)
      curPos := Pos('<select id="jump-to"', HTML);
      If curPos > 0 Then
      Begin
        // Extract the relevant section for categories
        curPos := PosFrom('<option', HTML, curPos);
        endPos := PosFrom('</select>', HTML, curPos);
        mpaaSection := Copy(HTML, curPos, endPos - curPos);
        //LogMessage('Function ParsePage_IMDBMovieMPAA - Extracted Category section for (CF~IMDbmpaaSummary~): ' + mpaaSection);

        // Parse the options and category names
        curPos := 1;
        mpaaContent := '';
        While PosFrom('<option', mpaaSection, curPos) > 0 Do
        Begin
         curPos := PosFrom('<option', mpaaSection, curPos) + Length('<option');
         optionValue := TextBetween(mpaaSection, 'value="', '">', False, curPos);
         categoryName := TextBetween(mpaaSection, '">', '</option>', False, curPos);

         // Format the category link
         mpaaContent := mpaaContent + '<link url="' + MovieURL + optionValue + '">' + categoryName + '</link>    ';

         // Move to the next position
         curPos := PosFrom('</option>', mpaaSection, curPos) + Length('</option>');
        End;

        // Remove the trailing "   •   " if it exists and keep the last </link> intact
        If Copy(mpaaContent, Length(mpaaContent) - 13, 7) = '   •   ' Then
        Begin
         mpaaContent := Copy(mpaaContent, 1, Length(mpaaContent) - 14) + '</link>';
        End;

        // Combine and format the final result 
        mpaaContent := '<link url="' + MovieURL + '#contentRating' + '">Content Ratings Summary:</link>     •     ' + mpaaContent;
       
        // Store the result in the custom field
        AddCustomFieldValueByName('IMDbmpaaSummary', mpaaContent);
        LogMessage('Function ParsePage_IMDBMovieMPAA - Stored result for (CF~IMDbmpaaSummary~)');
      End
      Else
      Begin
        LogMessage('Function ParsePage_IMDBMovieMPAA - Content Rating section for (CF~IMDbmpaaSummary~) not found');
        Result := prError; // Set to error if content rating section is not found
      End;
      
      
Custom field to remove.

Quote
      AddFieldValueXML('mpaa', mpaaValue);
      //AddCustomFieldValueByName('IMDB_MPAA', mpaaValue);
      LogMessage('Function ParsePage_IMDBMovieMPAA - Final ~mpaa~ Result: ' + mpaaValue + ' | |');

   // Get "Certification" (CF~Certification~) info


7
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Custom Fields
« Last post by Ivek23 on March 28, 2025, 08:00:33 pm »
Function ParsePage_IMDBMovieAKA

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:

  • Release infos (Memo)
  • Imdb Aka (Memo)
  • IMDbCountryAKA (Memo)
  • IMDbPremiereDates (Memo)

Function ParsePage_IMDBMovieCREDIT

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:

  • Cinema (Memo)
  • Cinema1 (Memo)
  • IMDb Directed by: (Memo)
  • IMDb Cast (Memo)
  • Thank (Memo)


Function ParsePage_IMDBMovieMPAA

PVD custom field for Type/Comments in Preferences/Movies/Custom Items:

  • IMDbmpaaSummary (Memo)
  • IMDbmpaaDetails (Memo)
  • Certification (Memo)
8
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Confusion
« Last post by Ivek23 on March 28, 2025, 05:27:31 pm »
Function ParsePage_IMDBMovieBASE

Quote
// Get ~User Reviews~

This part of the code is added here.

Quote
FullReview := StringReplace(FullReview, '; - )', '', True, False, True);

The whole code is now like this.

Quote
      // Get ~User Reviews~
   curPos := Pos('<section data-testid="UserReviews"', HTML); // Start of the User Reviews section
   If 0 < curPos Then Begin
      // Loop through multiple reviews if needed
      While 0 < curPos Do Begin
         // Find the review subject start
         curPos := PosFrom('data-testid="review-summary"><a href="', HTML, curPos);
         If 0 < curPos Then Begin
            curPos := PosFrom(' class="ipc-title-link-wrapper" tabindex="0"><h3 class="ipc-title__text">', HTML, curPos) + Length(' class="ipc-title-link-wrapper" tabindex="0"><h3 class="ipc-title__text">');
            EndPos := PosFrom('<svg', HTML, curPos);
            ItemValue := Copy(HTML, curPos, EndPos - curPos);
            ItemValue := Trim(ItemValue); // Clean up leading/trailing whitespace
            curPos := EndPos;

            // Find the review content start
            curPos := PosFrom('<div class="ipc-overflowText--children"><div class="ipc-html-content ipc-html-content--base" role="presentation"><div class="ipc-html-content-inner-div" role="presentation">', HTML, curPos) + Length('<div class="ipc-overflowText--children"><div class="ipc-html-content ipc-html-content--base" role="presentation"><div class="ipc-html-content-inner-div" role="presentation">');
            EndPos := PosFrom('</div></div></div></div></div><div class="ipc-list-card__actions">', HTML, curPos);
            ReviewContent := Copy(HTML, curPos, EndPos - curPos);
            ReviewContent := Trim(ReviewContent); // Clean up leading/trailing whitespace

            // Combine review subject and content
            FullReview := ItemValue + #13#10 + '-------------------------------------------' + #13#10 + ReviewContent; // Add new line between subject and content

            // Clean up unnecessary parts of the review content
            FullReview := StringReplace(FullReview, '; - )', '', True, False, True);
            FullReview := StringReplace(FullReview, ':)', '', True, False, True);
            FullReview := StringReplace(FullReview, '=)', '', True, False, True);

            // Add the review to custom fields
            AddCustomFieldValueByName('User Reviews', FullReview);
            AddCustomFieldValueByName('User Comments', FullReview);

            // Log the review
            If FullReview <> '' Then LogMessage('Function ParsePage_IMDBMovieBASE - Get result User Reviews (CF~User Reviews~) (CF~User Comments~): <br>' + FullReview + ' | |');

            // Move to the next review
            curPos := PosFrom('<section data-testid="UserReviews"', HTML, curPos);
         End Else Break;
      End;
   End;

In Function ParsePage_IMDBMovieBASE, everything would be there.
9
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Confusion
« Last post by Ivek23 on March 28, 2025, 05:22:09 pm »
Function ParsePage_IMDBMovieBASE

Cleaned part of the code and Custom field name changes.

Quote
//LogMessage('Function ParsePage_IMDBMovieBASE -      Get results ItemList before If  GET_MINI_FEATURES Then Begin: ' + ItemList + ' | |');
         If  GET_MINI_FEATURES Then Begin
      If Not(TechnicalPageDownloaded) then Begin
      //Get ~features~ (multiline) GET_FULL_FEATURES = False only the info from the main movie page..
            ItemList := '';
            // Get the original "Runtime" (in minutes) as ~length~ (in seconds) instead of the duration of the user movie copy
            curPos := Pos('<span class="ipc-metadata-list-item__label" aria-disabled="false">Runtime</span>', HTML);
            if curPos > 0 then begin
               Hours := StrToInt(HTMLValue(HTML, curPos, 0, '<div class="ipc-metadata-list-item__content-container">', '<!-- --> <!-- -->hour'));
               LogMessage('Function ParsePage_IMDBMovieBASE - Get result Original Runtime: ' + IntToStr(Hours) + ' | |');
               If (Pos('hour<!-- --> <!-- -->', HTML) <> 0) Then
                  Minutes := StrToInt(HTMLValue(HTML, curPos, 0, 'hour<!-- --> <!-- -->', '<!-- --> <!-- -->minutes'))
               Else Minutes := StrToInt(HTMLValue(HTML, curPos, 0, 'hours<!-- --> <!-- -->', '<!-- --> <!-- -->minutes'));
               ItemValue := IntToStr(Hours * 60 + Minutes);
               If ItemValue = '0' then ItemValue := '';
               If ItemValue = '' then Minutes := StrToInt(HTMLValue(HTML, curPos, 0, '<div class="ipc-metadata-list-item__content-container">', '<!-- --> <!-- -->minutes'));
               ItemValue := IntToStr(Hours * 60 + Minutes);
               LogMessage('Function ParsePage_IMDBMovieBASE - duration: ' + ItemValue);
               if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieBASE - Get result Original Runtime: ' + ItemValue + ' | |');
               AddCustomFieldValueByName('Imdb Runtime1', IntToStr(Hours) + 'h' + ' ' + IntToStr(Minutes) + 'm (' + ItemValue + ' minutes)');
               ItemList := 'Runtime: ' + ItemList + IntToStr(Hours) + 'h' + ' ' + IntToStr(Minutes) + 'm (' + ItemValue + ' minutes)' + '<br>';            
               AddFieldValueXML('length', IntToStr(60 * StrToInt(ItemValue))); //~length~ Value in seconds.
               if ItemValue <> '' then AddCustomFieldValueByName('Run time1', ItemValue);
//               AddCustomFieldValueByName('Run time', ItemValue);
               if ItemValue <> '' then Begin
               LogMessage('Function ParsePage_IMDBMovieBASE - Get result "Runtime" (in minutes) as ~length~: ' + ItemValue + ' | |');
               end else
               LogMessage('Function ParsePage_IMDBMovieBASE - duration/length not found');

      //Get "Color" (CF~Color~), (CF~Imdb Color~) (multiple values in a comma separated list)
            curPos := Pos('<span class="ipc-metadata-list-item__label" aria-disabled="false">Color</span>', HTML);
               //LogMessage('Function ParsePage_IMDBMovieBASE - Get result curPos (CF~Color~) & (CF~Imdb Color~): ' + IntToStr(curPos) + ' | |');
            if 0<curPos then begin
               EndPos := curPos;
               ItemValue := HTMLValues2(HTML, '<span class="ipc-metadata-list-item__label" aria-disabled="false">Color</span>', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', EndPos);
               //LogMessage('Function ParsePage_IMDBMovieBASE -       Get result ItemValue after HTMLValues2 (CF~Color~) & (CF~Imdb Color~): ' + ItemValue + ' | |');
               //ItemValue := StringReplace(ItemValue, '|        ', ', ', True, True, False);    //WEB_SPECIFIC.
               ItemValue := StringReplace(ItemValue, '(', ' (', True, True, False);          //WEB_SPECIFIC.
               if ItemValue <> '' then ItemList := ItemList + 'Color: ' + ItemValue + '<br>';
               if ItemValue <> '' then AddCustomFieldValueByName('Color:', ItemValue);
               if ItemValue <> '' then AddCustomFieldValueByName('Imdb Color', ItemValue);
               if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieBASE -       Get result (CF~Color~), (CF~Imdb Color~), (CF~Imdb_Color~) and (CF~Imdb Color:~): ' + ItemValue + ' | |');
            End;
         End;   //If Not(TechnicalPageDownloaded) then Begin should end here
         
      If Not(TechnicalPageDownloaded) And Not(ReferencePageDownloaded) then Begin
      //Get "Sound Mix" info (CF~SILENT_FIELD~), (CF~Sound Mix:~)  (multiple values in a comma separated list)
            curPos := Pos('<span class="ipc-metadata-list-item__label" aria-disabled="false">Sound mix</span>', HTML);
            if 0<curPos then begin
            EndPos := curPos;
               ItemValue := HTMLValues(HTML,
               '<span class="ipc-metadata-list-item__label" aria-disabled="false">Sound mix</span>', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', EndPos);
               //ItemValue := StringReplace(ItemValue, '|        ', ', ', True, True, False);   //WEB_SPECIFIC.
               ItemValue := StringReplace(ItemValue, '(', ' (', True, True, False);          //WEB_SPECIFIC.
               if ItemValue <> '' then ItemList := ItemList + 'Sound Mix: ' + ItemValue + '<br>';
               //LogMessage('Function ParsePage_IMDBMovieBASE -      Get result ItemList After Sound Mix for ~features~: ' + ItemList + ' | |');
               //  SILENT_FIELD       = 'Silent';
               if PosFrom('Silent', ItemValue, 1)>0 then AddCustomFieldValueByName(SILENT_FIELD, '-1');
               if ItemValue <> '' then AddCustomFieldValueByName('Sound Mix:', RemoveTagsEx0(ItemValue));
               if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieBASE -      Get result (CF~Sound Mix:~): ' + ItemValue + ' | |');
            End;
         End;   //      If Not(TechnicalPageDownloaded) And Not(ReferencePageDownloaded) then Begin should end here
            
      If Not(TechnicalPageDownloaded) then Begin   
      //Get "Aspect Ratio" (CF~Aspect Ratio: ~) multiple values in a comma separated list)
            curPos := Pos('">Aspect ratio</span>', HTML);
            if 0<curPos then begin
            //EndPos := curPos;
               ItemValue := HTMLValues(HTML,
               '">Aspect ratio</span>', '</ul></div></li>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', endPos);
               if ItemValue <> '' then ItemList := ItemList + 'Aspect Ratio: ' + ItemValue + '<br>';
               //LogMessage('Function ParsePage_IMDBMovieBASE -      Get result ItemList After Aspect Ratio for ~features~: ' + ItemList + ' | |');
               ItemValue := StringReplace(ItemValue, '/ (high definition)', ' HD', True, False, True);
               ItemValue := StringReplace(ItemValue, '16:9 HD', '16 : 9  HD', True, False, True);
               ItemValue := StringReplace(ItemValue, '4:3', '4 : 3', True, False, True);
               ItemValue := StringReplace(ItemValue, '2.55: 1', '2.55 : 1', True, False, True);
               ItemValue := StringReplace(ItemValue, '2.39: 1', '2.39 : 1', True, False, True);
               ItemValue := StringReplace(ItemValue, '2.40:1', '2.40 : 1', True, False, True);
               //ItemValue := StringReplace(ItemValue, '1.78 : 1 / (high definition)', '1.78 : 1 (hd)', True, False, True);
               if ItemValue <> '' then AddCustomFieldValueByName('Aspect Ratio:', ItemValue);
               if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieBASE -      Get result  (CF~Aspect Ratio: ~): ' + ItemValue + ' | |');
            End;
            //(*
            if (Length(ItemList)>0) then begin
               AddCustomFieldValueByName('Imdb-TechSpecs', ItemList);
               if GET_FEATURES then
               AddFieldValueXML('features', ItemList);
               LogMessage('Function ParsePage_IMDBMovieBASE -       Get result ~features~: ' + ItemList + ' | |');
            End;
            //*)
         End;
        End;   //If Not(TechnicalPageDownloaded) then Begin should end here

Need to remove this part of the code because it no longer displays Followed By in the Connections area on the main page.

Quote
      (*

      // Go to "Connections" (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~)
         // Initialize the string to collect all entries
         allItemValues := '';
         
         StartPos := Pos('>Connections<', HTML);
         If StartPos > 0 Then Begin
            // Define the end marker for the "Connections" section
            EndPos := PosFrom('a class="ipc-metadata-list-item__icon-link" tabindex="0" aria-label="See more" ', HTML, StartPos);
            If EndPos > StartPos Then Begin
               // Extract the relevant HTML section
               ItemValue := Copy(HTML, StartPos, EndPos - StartPos);
               //LogMessage('Function ParsePage_IMDBMovieBASE - Get result ItemValue for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) : ' + #13 + ItemValue + ' | |' + #13);

               // Initialize connections container
               Connections := '';

               // Define connection types
               connectionTypes := ['Featured in', 'Follows', 'Followed by', 'Referenced in', 'Remade as', 'Remake of', 'Spin-off', 'Spoofed in', 'Edited into', 'Edited from', 'Version of', 'Features', 'References', 'Spoofs', 'Spin-off from'];

               // Iterate through each type of connection using an indexed loop
               For i := Low(connectionTypes) To High(connectionTypes) Do Begin
                  connType := connectionTypes;
                  connStartPos := PosFrom(connType, ItemValue, 1);
                  While connStartPos > 0 Do Begin
                     connEndPos := PosFrom('</a>', ItemValue, connStartPos) + Length('</a>') - 1;
                     If connEndPos > connStartPos Then Begin
                        connHTML := Copy(ItemValue, connStartPos, connEndPos - connStartPos + 1);
                        //LogMessage('Function ParsePage_IMDBMovieBASE - Get result connHTML for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) : ' + connHTML + ' | |');

                        // Extract the link URL
                        linkStartPos := PosFrom(' href="', connHTML, 1) + Length(' href="');
                        linkEndPos := PosFrom('?ref', connHTML, linkStartPos);
                        linkURL := Copy(connHTML, linkStartPos, linkEndPos - linkStartPos);
                        //LogMessage('Function ParsePage_IMDBMovieBASE - Get result linkURL for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) : ' + linkURL + ' | |');

                        // Extract the link text
                        textStartPos := PosFrom('">', connHTML, linkStartPos) + Length('">');
                        textEndPos := PosFrom('</a', connHTML, textStartPos);
                        yearStartPos := PosFrom('</a>', ItemValue, textStartPos) + Length('</a>');
                        yearEndPos := PosFrom('</div>', ItemValue, yearStartPos);
                        yearValue := Copy(ItemValue, yearStartPos, yearEndPos - yearStartPos);
                        linkText := Copy(connHTML, textStartPos, textEndPos - textStartPos);
                        (*
                        linkText := HTMLValues2(connHTML, linkStartPos, '</div><a class=',  linkEndPos, linkStartPos);
                        //*)
                        (*
                        //LogMessage('Function ParsePage_IMDBMovieBASE - Get result linkText for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~): ' + linkText + ' | |');
                        //LogMessage('Function ParsePage_IMDBMovieBASE - Get result yearValue for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~): ' + yearValue + ' | |');

                        // Build the custom format
                        connHTML := connType + ' <link url="https://www.imdb.com' + linkURL + '">' + linkText + yearValue + '</link>';
                        //LogMessage('Function ParsePage_IMDBMovieBASE - Get result final connHTML for (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) : ' + connHTML + ' | |');

                        // Append to connections container
                        If Length(Connections) > 0 Then
                           Connections := Connections + ', ' + connHTML
                        Else
                           Connections := connHTML;
                     End;
                     connStartPos := PosFrom(connType, ItemValue, connStartPos + Length(connHTML));
                  End;
               End;

               LogMessage('Function ParsePage_IMDBMovieBASE - Final processed Connections: ' + Connections + ' | |' + #13);

                Add custom field values
               //AddCustomFieldValueByName('Conect', Connections);
               //AddCustomFieldValueByName('MiniConnections', Connections);

               // Add condition to check "Followed By" presence and add custom field value
               If PosFrom('Followed By', Connections, 1) > 0 Then
                  AddCustomFieldValueByName(FOLLOWEDBY_FIELD, '-1');
            End;
         End Else
            LogMessage('Function ParsePage_IMDBMovieBASE - (CF~Conect~) (CF~MiniConnections~) (CF~FOLLOWEDBY_FIELD~) not found');

      *)
10
PVD Python Scripts / Re: PVD Selenium MOD v4 IMDb Movie Script Confusion
« Last post by Ivek23 on March 28, 2025, 04:57:18 pm »
Removed unused parts of Function RemoveTagsEx code and added new and more efficient parts of Function RemoveTagsEx code.

Quote
Function RemoveTagsEx0(AText:String): String; //BlockOpen
    //Ivek23 function for get faster the script
Var
   B, E:Integer;
Begin
   Result := AText;
   B := PosFrom('<', Result, 1);
   E := PosFrom('>', Result, B);
   While (B>0) AND (B<E) Do Begin
      Delete(Result, B, E-B + 1);
      B := Pos('<', Result);
      E := Pos('>', Result);
   End;
End; //BlockClose

Function RemoveTagsEx(AText:String): String; //BlockOpen
    //Ivek23 function for get faster the PLOTKEYWORDS script
Var
   B, E:Integer;
Begin
   Result := AText;
   B := PosFrom('(', Result, 1);
   E := PosFrom(')', Result, B);
   While (B>0) AND (B<E) Do Begin
      Delete(Result, B, E-B + 1);
      B := Pos('(', Result);
      E := Pos(')', Result);
   End;
End; //BlockClose

function RemoveTagsEx_1(AText:String): String; //BlockOpen
    //Ivek23 function for get faster the script
Var
   B, E:Integer;
Begin
   Result := AText;
   B := PosFrom('<', Result, 1);
   E := PosFrom('>', Result, B);
   While (B>0) AND (B<E) Do Begin
      Delete(Result, B, E-B + 1);
      B := Pos('<', Result);
      E := Pos('>', Result);
   End;
End; //BlockClose

function RemoveTagsEx_2(AText:String): String; //BlockOpen
    //Ivek23 function for get faster the script
Var
   B, E:Integer;
Begin
   Result := AText;
   B := PosFrom('<h3 class="', Result, 1);
   E := PosFrom('div">', Result, B);
   //E := PosFrom('</h3>', Result, B);
   While (B>0) AND (B<E) Do Begin
      //Delete(Result, B, E-B + 5);
      Delete(Result, B, E-B + 5);
      B := Pos('<h3 class="', Result);
      E := Pos('div">', Result);
   End;
End; //BlockClose

function RemoveTagsEx0_10(AText:String):String; //BlockOpen
Var
  B,E:Integer;
  TagToRemove: String;
Begin
  Result := AText;
  TagToRemove := '<a class="ipc-link ipc-link--baseAlt ipc-link--inherit-color" tabindex="0" aria-disabled="false" href="';
 
  B := Pos(TagToRemove, Result);
  While B > 0 Do Begin
    E := PosFrom('>', Result, B);
    If (E > B) Then
      Delete(Result, B, E - B + 1)
    Else
      Delete(Result, B, Length(TagToRemove));

    B := Pos(TagToRemove, Result);
  End;
End; //BlockClose

function HTMLValue(HTML: String;StartPos, EndPos:Integer;StartValue, EndValue:String): String; //BlockOpen

Function ParsePage_IMDBMovieBASE

Cleaned up part of code and used new Function RemoveTagsEx code.

Quote
         AddCustomFieldValueByName('IMDB Year', yearValue);
         if yearValue <> '' then LogMessage('ParsePage_IMDBMovieBASE -      Get result Tv Mode (CF~IMDB_year~) + : ' + yearValue);

            ItemValue1 := HTMLValues(HTML, '<h1 textlength="', '</ul>', '"ipc-inline-list__item', '</', '  •  ', StartPos);
            if ItemValue1 <> '' then LogMessage('Function ParsePage_IMDBMovieBASE -      Get result Tv Mode2a: ' + #13 + ItemValue1 + ' | |' + #13);
            debug_pos1 := Pos('<a class="ipc-metadata', ItemValue1);
            if debug_pos1 >0 then ItemValue1 := Copy(ItemValue1, 0, debug_pos1-1);
            ItemValue1 := RemoveTagsEx0_10(ItemValue1);
            ItemValue1 := StringReplace(ItemValue1, '">', '', True, False, True);
            AddCustomFieldValueByName('Tv2', ItemValue1);
            if ItemValue1 <> '' then LogMessage('Function ParsePage_IMDBMovieBASE -      Get result Tv Mode2 (CF~Tv2~): ' + #13 + ItemValue1 + ' | |' + #13);
         end else
            LogMessage('Function ParsePage_IMDBMovieBASE - Tv/Tv 2 - metadata not found');

Cleaned part of the code.


Quote
[   //Get ~Metascore~
      EndPos := Pos('</span></span><span class="label"><span class="metacritic-score-label">Metascore</span></span></span></a></li></ul>', HTML);
      if EndPos>0 then begin
         curPos := PrevPos('">', HTML, EndPos) + Length('">');
         EndPos := PosFrom('</span></span><span class="label"><span class="metacritic-score-label">Metascore</span></span></span></a></li></ul>', HTML, curPos) + 2;
         //ItemValue := RemoveTags(Copy(HTML, curPos, endPos-curPos), false);
         ItemValue := Copy(HTML, curPos, endPos-curPos);
         LogMessage('Function ParsePage_IMDBMovieBASE -      Get result Metascore original: ' + ItemValue + ' | |');
         ItemValue := CustomStringReplace(ItemValue, ['0</', '1</', '2</', '3</', '4</', '5</', '6</', '7</', '8</', '9</'], [',0', ',1', ',2', ',3', ',4', ',5', ',6', ',7', ',8', ',9']);
         //curPos := Pos('var ue_t0=ue_t0', ItemValue);                               //WEB_SPECIFIC.
         //If 0<curPos then ItemValue := Copy(ItemValue, 0, curPos-1);
         if ItemValue <> '' then AddCustomFieldValueByName('Metascore', FloatToStr((StrToFloat(ItemValue) * 1)));
         if ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieBASE -      Get result Metascore in PVD format (CF~Metascore~): ' + ItemValue + ' | |');
      End;

Custom field name changes.

Quote
         //LogMessage('Function ParsePage_IMDBMovieBASE -  Value of ReferencePageDownloaded for Studio: ' + BoolToStr(ReferencePageDownloaded));
      If Not(ReferencePageDownloaded) Then Begin
         // Get ~studio~ "Production Co" (multiple values in a comma separated list)
         curPos := Pos('">Production compan', HTML); // WEB_SPECIFIC.
         If 0 < curPos Then Begin
            EndPos := curPos;
            ItemValue := HTMLValues(HTML, '">Production compan', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ', ', endPos);
            LogMessage('Function ParsePage_IMDBMovieBASE - Get ItemValue Studio/Production Co multiple: ' + ItemValue + ' | |');
            AddFieldValueXML('studio', ItemValue);
            // Custom field: IMDb Studio2 (formatted as "STUDIO RELEASE BY\n[ItemValue]")
            If ItemValue <> '' Then Begin
               ItemValue := 'STUDIO RELEASE BY' + #13#10 + ItemValue;
               AddCustomFieldValueByName('IMDbStudio2', ItemValue);
               //AddCustomFieldValueByName('IMDb Studio2', ItemValue);
               LogMessage('Function ParsePage_IMDBMovieBASE - Get results Studio/Production Co multiple: ' + ItemValue + ' | |');
            End;
         End;
      End;   //If Not(ReferencePageDownloaded) Then Begin should end here
Pages: [1] 2 3 4 5 6 ... 10