1
Support / Re: Episodes TV Series Problem
« on: February 29, 2024, 08:39:37 pm »
Thank you, I wasn't expected you would engage in single user's preferences.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
if Pos('TV Series',ItemValue)>0 then yearsValue1:=yearsValue1+'TV Series ';
if yearsValue1 <> '' then LogMessage(' Get result yearsValue1:'+yearsValue1);
(1/6/2024 12:14:13 AM) Get result Tv Mode01:
2019, PG-13, 2h 54m||
(1/6/2024 12:14:13 AM) Get result Metascore 0:78</||
(1/6/2024 12:14:13 AM) Get result Metascore (CF~Metascore~):7,8||
(1/6/2024 12:14:13 AM)
(1/6/2024 12:14:13 AM)
(1/6/2024 12:14:13 AM) AVOIDED ALWAYS1: Get result "Plot_summary" as ~comment~:
//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(' Get result Metascore 0:'+ItemValue+'||');
ItemValue:=StringReplace(ItemValue,'0</',',0',True,False,True);
ItemValue:=StringReplace(ItemValue,'1</',',1',True,False,True);
ItemValue:=StringReplace(ItemValue,'2</',',2',True,False,True);
ItemValue:=StringReplace(ItemValue,'3</',',3',True,False,True);
ItemValue:=StringReplace(ItemValue,'4</',',4',True,False,True);
ItemValue:=StringReplace(ItemValue,'5</',',5',True,False,True);
ItemValue:=StringReplace(ItemValue,'6</',',6',True,False,True);
ItemValue:=StringReplace(ItemValue,'7</',',7',True,False,True);
ItemValue:=StringReplace(ItemValue,'8</',',8',True,False,True);
ItemValue:=StringReplace(ItemValue,'9</',',9',True,False,True);
//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(' Get result Metascore (CF~Metascore~):'+ItemValue+'||');
End;
//(*
LogMessage(#13+'');
Thanks afrocuban, I made a bugfix to the script released a few posts earlier.
Now only if the urls are from IMDb are used for data retrieval.
Happy Holidays!