Function ParsePage_IMDBMovieTECHNICALRemoving unnecessary parts of the code. //Get "Technical Specifications" info
curPos := Pos('<hgroup><h1 class="ipc-title__text">Technical specifications</h1></hgroup>', HTML);
if (curPos=0) then Exit;
EndPos := curPos;
ItemList2 := TextBetWeenFirst(HTML, '<h1 class="ipc-title__text">Technical specifications<', 'span id="contribute">Contribute to this page</span>'); //WEB_SPECIFIC.
If (Length(ItemList2)>0) Then Begin
Removing unnecessary parts of code for custom fields.
//Get "Sound Mix" info (CF~SILENT_FIELD~), (CF~Imdb SoundMix~) and (CF~Imdb Sound Mix~)
curPos := Pos('Sound Mix', ItemList2); //WEB_SPECIFIC.
If 2<curPos Then Begin
ItemValue := HTMLValues2(HTML, 'Sound Mix', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ' ', EndPos); //WEB_SPECIFIC.
ItemValue1 := ItemValue;
ItemValue := StringReplace(ItemValue, ' ', #13, True, False, True);
ItemValue := StringReplace(ItemValue, '(', ' (', True, False, True);
If ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Get result Sound Mix: ' + ItemValue + ' | |');
if ItemValue <> '' then ItemList := ItemList + 'Sound Mix' + '<br>' + ItemValue + '<br><br>';
// SILENT_FIELD = 'Silent';
if PosFrom('Silent', ItemValue, 1)>0 then AddCustomFieldValueByName(SILENT_FIELD, '-1');
if ItemValue <> '' then AddCustomFieldValueByName('Imdb SoundMix', ItemValue);
ItemValue1 := StringReplace(ItemValue1, ' ', #13 + ', ', True, False, True);
if ItemValue <> '' then AddCustomFieldValueByName('Imdb Sound Mix', RemoveTagsEx0(ItemValue1));
If ItemValue1 <> '' then LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Added result for (CF~Imdb SoundMix~) and (CF~Imdb Sound Mix~): ' + ItemValue1 + ' | |');
End;
//Get "Aspect Ratio" (CF~Imdb AspectRatio~), (CF~Imdb_Aspect Ratio~), (CF~Imdb Aspect Ratio~), (CF~Aspect Ratio~), (CF~Imdb Aspect Ratio:~) and (CF~Aspect Ratio:~) info
curPos := Pos('Aspect Ratio', ItemList2); //WEB_SPECIFIC.
If 2<curPos Then Begin
ItemValue := HTMLValues2(HTML, 'Aspect Ratio', '</ul>', '<li role="presentation" class="ipc-inline-list__item">', '</li>', ' ', EndPos); //'<br><br>'
ItemValue1 := ItemValue;
//LogMessage('Function ParsePage_IMDBMovieTECHNICAL Getting result initial ItemValue1 := ItemValue: ' + ItemValue + ' | |');
ItemValue := StringReplace(ItemValue, ' ', #13, True, False, True);
ItemValue := StringReplace(ItemValue, '(', ' (', True, False, True);
If ItemValue <> '' then LogMessage('Function ParsePage_IMDBMovieTECHNICAL Getting result ItemValue for the ~features~: ' + ItemValue + ' | |');
if ItemValue <> '' then ItemList := ItemList + 'Aspect Ratio' + '<br>' + ItemValue + '<br><br>';
ItemValue1 := StringReplace(ItemValue1, '/ (high definition)', ' HD', True, False, True);
ItemValue1 := StringReplace(ItemValue1, 'widescreen', 'WideScreen', True, False, True);
(* //instead of this, I provided snippet that depends on ":" and not on AR, because in the existing snippet there are many ARs that are missing.
ItemValue1 := StringReplace(ItemValue1, '16:9 HD', '16 : 9 HD', True, False, True);
ItemValue1 := StringReplace(ItemValue1, '4:3', '4 : 3', True, False, True);
ItemValue1 := StringReplace(ItemValue1, '2.55: 1', '2.55 : 1', True, False, True);
ItemValue1 := StringReplace(ItemValue1, '2.39: 1', '2.39 : 1', True, False, True);
ItemValue1 := StringReplace(ItemValue1, '2.40:1', '2.40 : 1', True, False, True);
//*)
ResultText := '';
i := 1;
While i <= Length(ItemValue1) Do Begin
If ItemValue1 = ':' Then Begin
// Check for spaces before and after the colon
If (i > 1) And (ItemValue1[i-1] <> ' ') Then
ResultText := ResultText + ' ';
ResultText := ResultText + ':';
If (i < Length(ItemValue1)) And (ItemValue1[i+1] <> ' ') Then
ResultText := ResultText + ' ';
End Else
ResultText := ResultText + ItemValue1;
i := i + 1;
End;
ItemValue1 := ResultText;
//LogMessage('Function ParsePage_IMDBMovieTECHNICAL - ResultText: ' + ItemValue1 + ' | |');
//ItemValue1 := StringReplace(ItemValue1, '1(', '1, (', True, False, True);
ItemValue1 := StringReplace(ItemValue1, '1(', '1 (', True, False, True);
ItemValue1 := StringReplace(ItemValue1, ') ', '), ', True, False, True);
//LogMessage('Function ParsePage_IMDBMovieTECHNICAL - ItemValue1: ' + ItemValue1 + ' | |');
// Initialize ItemValue3 to get ARs without descriptions
ItemValue3 := '';
ExplodeString(ItemValue1, ItemArray, ',');
// Iterate through the array and extract only aspect ratios
For i := 0 To High(ItemArray) Do Begin
ItemArray := Trim(ItemArray);
// Check if the entry contains an aspect ratio
If Pos(':', ItemArray) > 0 Then Begin
// Remove any parenthesis and their content
ItemArray := Copy(ItemArray, 1, Pos('(', ItemArray) - 1);
// Trim any trailing spaces
ItemArray := Trim(ItemArray);
// Append to ItemValue3
If ItemValue3 <> '' Then
ItemValue3 := ItemValue3 + ', ';
ItemValue3 := ItemValue3 + ItemArray;
End;
End;
//LogMessage('Function ParsePage_IMDBMovieTECHNICAL - ItemValue3 (Aspect Ratios only): ' + ItemValue3 + ' | |');
if ItemValue <> '' then AddCustomFieldValueByName('Imdb_Aspect Ratio', StringReplace(RemoveTagsEx0(ItemValue1),' ',', ',True,False,True)); //As memo field, ARs with the description each as a comma separated list.
if ItemValue <> '' then AddCustomFieldValueByName('Imdb Aspect Ratio', RemoveTagsEx0(ItemValue3)); //As memo field, ARs without the description as comma separated list.-------
if ItemValue3 = '' then AddCustomFieldValueByName('Imdb Aspect Ratio', RemoveTagsEx0(ItemValue1)); //As memo field, ARs without the description as comma separated list.-------
if ItemValue <> '' then AddCustomFieldValueByName('Aspect Ratio', ItemValue); //As multiselect list field, ARs with the description each in separate line.
if ItemValue1 <> '' then LogMessage('Function ParsePage_IMDBMovieTECHNICAL - ItemValue, ItemValue1 and ItemValue3 are added to a memo and multiselect list');
//LogMessage('Function ParsePage_IMDBMovieTECHNICAL - ItemValue, ItemValue1 and ItemValue3 that are added to a memo and multiselect list):' + #13#10 + #13#10 + 'ItemValue added as:' + #13#10 + '---------' + #13#10 + ItemValue + ' | |' + #13#10 + #13#10 + 'ItemValue1 added as' + #13#10 + '---------' + #13#10 + ItemValue1 + ' | |' + #13#10 + #13#10 + 'ItemValue3 added as' + #13#10 + '---------' + #13#10 + ItemValue3 + ' | |' + #13#10);
End;
//Write to ~features~ and (CF~ImdbTechSpecs~) fields
if (Length(ItemList)>0) then begin
AddFieldValueXML('features', ItemList);
AddCustomFieldValueByName('ImdbTechSpecs', ItemList); //Ivek23 CustomField ~ImdbTechSpecs~ for ~features~
//LogMessage('Function ParsePage_IMDBMovieTECHNICAL - Added result Movie ~features~ and (CF~ImdbTechSpecs~): ' + ItemList + ' | |');
End;
End;
//if (ItemValue2 = '') AND (ItemValue00 <> '') then AddFieldValueXML('length', IntToStr(60*StrToInt(ItemValue0)));
if (ItemValue2 <> '') AND (ItemValue = '') then AddFieldValueXML('length', IntToStr(60*StrToInt(ItemValue2)));
if (ItemValue2 <> '') AND (ItemValue0 <> '') then AddFieldValueXML('length', IntToStr(60*StrToInt(ItemValue0)));
if (ItemValue2 = '') AND (ItemValue0 <> '') then AddCustomFieldValueByName('Run time', ItemValue0);
if (ItemValue2 <> '') AND (ItemValue0 = '') then AddCustomFieldValueByName('Run time', ItemValue2);
if (ItemValue2 <> '') AND (ItemValue0 <> '') then AddCustomFieldValueByName('Run time', ItemValue0);
LogMessage('Function ParsePage_IMDBMovieTECHNICAL END=====================| |');
End; //BlockClose
Recent Posts