Function ParsePage_IMDBPeopleBIO(CombinedHTML:String; ShouldParseBio, ShouldParseCareer: Boolean):Cardinal; //BlockOpen
    //Returns:
    //     Result:=prFinished; Script has finished gathering data
    //     Result:=prError; If any big problem with exit;
    //Retrieve: ~bio~ Biography from "Mini Bio" IMDB section
    Var
        curPos,endPos,debug_pos1:Integer;
        ItemValue:String;
        PersonID,ItemValue0,ItemValue10,ItemValue1,ItemValue11:String;
        ItemList,ItemList00,ItemList0,ItemList1,ItemList11,ItemList12:String; 
        FinalValue: String;
        ItemList2,ItemList10,ItemList20,ItemValue3:String;
        BirthNameValue, BioList: String;
        DeathAge, AltNames1, ItemListBase, ItemListBase1, ItemValueBase, ItemValueBase0, ItemValueBase1:String;
		IsBioFieldInitiallyEmpty: Boolean;
		BioFieldEmptyStr: String;

    Begin
        LogMessage('ParsePage_IMDBPeopleBIO: Starting processing.');
        LogMessage('CombinedHTML length: ' + IntToStr(Length(CombinedHTML)));
        LogMessage('Function ParsePage_IMDBPeopleBIO BEGIN=====================||');
        Result:=prFinished;  //It will change to prError if any big problem with exit;
        //LogMessage('Result set to prFinished');  //Log the initial result setting

        Result := prFinished;
		
	// Check if the 'bio' field is empty
IsBioFieldInitiallyEmpty := Length(GetFieldValueXML('bio')) = 0;
(*
// Convert the Boolean result to a string for logging
If IsBioFieldInitiallyEmpty Then
    BioFieldEmptyStr := 'True'
Else
    BioFieldEmptyStr := 'False';
LogMessage('IsBioFieldEmpty: ' + BioFieldEmptyStr);
//*)

//First to get data from Base page by parsing FileNameMain

        If ShouldParseCareer Then Begin
            //~jobTitle~ (Profession)
            //Begin of scrap the json container.
            ItemListBase1:=TextBetWeenFirst(CombinedHTML,'<script type="application/ld+json">','</script>');
	//LogMessage('           Parse results ('+IntToStr(curPos)+','+IntToStr(endPos)+') complex ItemList: '+'<script type="application/ld+json"'+ItemList+'}</script>'+'||');
            ItemListBase1:=StringReplace(ItemListBase1,'}',',',True,True, False); //Replace the last } and then all the TheMovieDB jason fields finish with ',"' even the last. WEB_SPECIFIC.
            //Get ~jobTitle~ jobTitle
            ItemValueBase:=TextBetWeenFirst(ItemListBase1,'","jobTitle":["','"],');                   //WEB_SPECIFIC.
            ItemValueBase:=StringReplace(ItemValueBase,'","',',  ',True,False,True);
            if (2<Length(ItemValueBase)) then begin
                If ItemValueBase <> '' then ItemListBase:=ItemListBase+'Profession:  '+ItemValueBase+'  ';
                LogMessage('      Get result Profession:'+ItemValueBase+'||');
    end;
	 //*)   
	 
	   //(*
	   
            //~Career~
            If Pos('<h3 class="ipc-title__text"><span id="credits">Credits</span>',CombinedHTML)>0 Then Begin
                curPos:=Pos('<h3 class="ipc-title__text"><span id="credits">Credits</span>',CombinedHTML);
                If curPos>0 Then Begin
                    EndPos:=curPos;
			//ItemValue:=TextBetween(CombinedHTML,'<div id="jumpto">','<div id="filmography">',True,curPos);
                    ItemValueBase1:=HTMLValues2(CombinedHTML,'<h3 class="ipc-title__text"><span id="credits">Credits</span>','<span class="ipc-chip__text">IMDbPro</span>','" class="ipc-chip ipc-chip--on-base-accent2" tabindex="0" aria-disabled="false"><span class="ipc-chip__text">','<span class="ipc-chip__count">',',  ',EndPos);
                    If ItemValueBase1 <> '' then ItemListBase:=ItemListBase+ #13#10 +'Additional Filmography Career:  '+ItemValueBase1+'  ';
		End;
	End;
	
            //~Filmography index~
            If Pos('<h3 class="ipc-title__text"><span>Credits</span></h3>',CombinedHTML)>0 Then Begin
                curPos:=Pos('<h3 class="ipc-title__text"><span>Credits</span></h3>',CombinedHTML);
                If curPos>0 Then Begin
                    EndPos:=curPos; 
                    ItemValueBase:=HTMLValues(CombinedHTML,'<h3 class="ipc-title__text"><span>Credits</span></h3>','<span class="ipc-chip__text">IMDbPro</span>','<span class="ipc-chip__text">','<span class="ipc-chip__count">',',  ',EndPos);             
                    If ItemValueBase <> '' then ItemListBase:=ItemListBase+ #13#10 +'Additional Filmography Career:  '+ItemValueBase+'  ';
			//LogMessage('      Parse Results Filmography index:'+ItemValue+'||');
		End;
	End;
	
	//(*	
            //~Name~
            curPos:=Pos('<h1 textlength="',CombinedHTML);
            If curPos>0 Then Begin
                EndPos:=curPos;
                ItemValueBase0:=HTMLValues(CombinedHTML,'" data-testid="hero__pageTitle" class="','</h1>','<span class="hero__primary-text" data-testid="hero__primary-text">','</h1>','<br>',EndPos); 
		//LogMessage('      Parse Results Name11:'+ItemValue0+'||');
		ItemValueBase0:=StringReplace(ItemValueBase0,'(','  (†  ',True,False,True);
		//ItemValue0:=StringReplace(ItemValue0,'            (','  (†  ',True,False,True);
		ItemValueBase0:=StringReplace(ItemValueBase0,'(†  I','(I',True,False,True);
		ItemValueBase0:=StringReplace(ItemValueBase0,'(†  V','(V',True,False,True);
		ItemValueBase0:=StringReplace(ItemValueBase0,'(†  X','(X',True,False,True);
		ItemValueBase0:=StringReplace(ItemValueBase0,'(†  L','(L',True,False,True);
		ItemValueBase0:=StringReplace(ItemValueBase0,')                (',')  (†  ',True,False,True);
		If ItemValueBase0 <> '' then ItemListBase:=ItemListBase+ #13#10 +'Name:  '+ItemValueBase0+'  ';
		LogMessage('      Parse Results Name12:'+ItemValueBase0+'||');
	End;	
	//*)
	//(*	
            //~Born~
            curPos:=Pos('<li role="presentation" class="ipc-metadata-list__item" data-testid="nm_pd_bl"><span class="ipc-metadata-list-item__label" aria-disabled="false">Born</span>',CombinedHTML);
            If curPos>0 Then Begin
	//*)
	//(*
                EndPos:=curPos;
                ItemValueBase1:=HTMLValues(CombinedHTML,'<span class="ipc-metadata-list-item__label" aria-disabled="false">Born</span>','</li></ul></div></li>','<li role="presentation" class="ipc-inline-list__item test-class-react','</a></li></ul>','  ',EndPos);
                ItemValueBase1:=StringReplace(ItemValueBase1,'<li role="presentation" class="ipc-inline-list__item">',' in ',True,False,True);  
		//LogMessage('  **    Parse Results Born10:'+ItemValue1+'||');		
		//ItemValue1:=RemoveTags(ItemValue1, False);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);	
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);	
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);	
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);	
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);	
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);	
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);	
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);	
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);				
		ItemValueBase1:=StringReplace(ItemValueBase1,'">','',True,False,True);	
		If ItemValueBase1 <> '' then ItemListBase:=ItemListBase+ #13#10 +'Born:  '+ItemValueBase1 Else ItemListBase:=ItemListBase+#13;		
		LogMessage('      Parse Results Born10:'+ItemValueBase1+'||');
	End;		
	//*)	
	//(*	
            //~Died DeathAge~   
            curPos:=Pos('<aside data-testid="birth-and-death-section" class=',CombinedHTML);
            If curPos>0 Then Begin
                EndPos:=curPos;
                DeathAge:=HTMLValues2(CombinedHTML,'">Died</span>','</aside>','<span data-testid="birth-and-death-death-age" class="sc-dec7a8b-3 iglIGf">(',')</','  ',EndPos); 
                DeathAge:=StringReplace(DeathAge,'(','',True,False,True);
                If DeathAge <> '' then ItemListBase:=ItemListBase+ #13#10 +'  Age:  '+DeathAge;
		//LogMessage('      Parse Results Died200:'+DeathAge+'||');
	End;		
	//*)		
	//(*
            //~Died~
            curPos:=Pos('<li role="presentation" class="ipc-metadata-list__item" data-testid="nm_pd_dl"><span class="ipc-metadata-list-item__label" aria-disabled="false">Died</span>',CombinedHTML);
            If curPos>0 Then Begin
	//*)
	//(*
                EndPos:=curPos;
                ItemValueBase1:=HTMLValues(CombinedHTML,'<span class="ipc-metadata-list-item__label" aria-disabled="false">Died</span>','</li></ul></div></li>','<li role="presentation" class="ipc-inline-list__item test-class-react','</li></ul></div></li>','  ',EndPos);
                ItemValueBase1:=StringReplace(ItemValueBase1,'<li role="presentation" class="ipc-inline-list__item">',' in ',True,False,True);
                ItemValueBase1:=StringReplace(ItemValueBase1,'<span class="ipc-metadata-list-item__list-content-item--subText">','  ',True,False,True);
		//LogMessage('  **    Parse Results Died10:'+ItemValue1+'||');
		//ItemValue1:=RemoveTags(ItemValue1, False);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=RemoveTagsEx0(ItemValueBase1);
		ItemValueBase1:=StringReplace(ItemValueBase1,'">','',True,False,True);
		ItemValueBase1:=StringReplace(ItemValueBase1,'  (undisclosed)','',True,False,True);
		If ItemValueBase1 <> '' then
			ItemListBase:=ItemListBase+ #13#10 +'Died:  '+ItemValueBase1 Else ItemListBase:=ItemListBase+#13;
		LogMessage('      Parse Results Died10:'+ItemValueBase1+'||');
		End;
		//*)
		
            //~Alternative Names~
		curPos := Pos('<script>if(typeof uet === ''function''){ uet(''be'', ''StaticFeature_PersonalDetails'', {wb: 1}); }</script>', CombinedHTML);
		LogMessage('curPos after finding Alternative Names curPos: ' + IntToStr(curPos));
	If curPos > 0 Then Begin
		EndPos := curPos;
		//LogMessage('EndPos set to curPos: ' + IntToStr(EndPos));
    // Extract values between the specified tags
		AltNames1 := HTMLValues(CombinedHTML, '<script>if(typeof uet === ''function''){ uet(''be'', ''StaticFeature_PersonalDetails'', {wb: 1}); }</script>', '"feature_contribution_header":"Contribute to this page"', '{"node":{"displayableProperty":{"value":{"plainText":"', '","__typename":"Markdown"},"__typename":"DisplayableNameAkaProperty"},"__typename":"NameAka"},"', ', ', EndPos);
		
		//LogMessage('    *    Parsed Result Alternative Name: ' + AltNames1);
    
		//AltNames1:=HTMLValues(CombinedHTML,'Alternate Names:','</div>','</h4>','</div>','<br>',EndPos);
		//AltNames1:=StringReplace(ItemValue1,' | ','<br>',True,False,True);
		//AltNames1:=StringReplace(AltNames1,' | ',#13,True,False,True);
		AltNames1:=StringReplace(AltNames1,'\u0026',#38,True,False,True);
	If AltNames1 <> '' then AddFieldValueXML('altnames', AltNames1);
//*)
    If AltNames1 <> '' then
		LogMessage('      Parsed Results All Expanded Alternative Names: ' + AltNames1 + '||');
(*// When Alternative Names wanted in the "comment" field
		If AltNames1 <> '' then
			ItemListBase:=ItemListBase+#13#10+'Alternative Names:  '+AltNames1 Else ItemList:=ItemListBase+#13#10;
		LogMessage('      Comment List After alternative Names:'+ItemListBase+'||');
//*)
End;
	
//(*
            //~Height~
            curPos:=Pos('<h3 class="ipc-title__text"><span id="personalDetails">Personal details</span>',CombinedHTML);
            If curPos>0 Then Begin
                EndPos:=curPos;
                ItemValueBase0:=HTMLValues2(CombinedHTML,'<li role="presentation" class="ipc-metadata-list__item" data-testid="nm_pd_he"><span class="ipc-metadata-list-item__label" aria-disabled="false">Height</span>','</li></ul></div></li>','<span class="ipc-metadata-list-item__list-content-item" aria-disabled="false">','</li></ul></div></li>','<br>',EndPos);
                If ItemValueBase0 <> '' then ItemListBase:=ItemListBase+ #13#10 +'Height:  '+ItemValueBase0+'  ';
                LogMessage('      Parse Results Height:'+ItemValueBase0+'||');
	End;
//*)
	//(*
            //~Nickname~
            curPos:=Pos('<li role="presentation" class="ipc-metadata-list__item ipc-metadata-list__item--stacked" data-testid="name-dyk-nickname"><span class="ipc-metadata-list-item__label ipc-metadata-list-item__label--btn" aria-label="See more" aria-disabled="false">Nickname</span>',CombinedHTML);
            If curPos>0 Then Begin
                EndPos:=curPos;
                ItemValueBase0:=HTMLValues2(CombinedHTML,'<span class="ipc-metadata-list-item__label ipc-metadata-list-item__label--btn" aria-label="See more" aria-disabled="false">Nickname</span>','</li></ul></div','<span class="ipc-metadata-list-item__list-content-item" aria-disabled="false">','</span>','<br>',EndPos); 
		//LogMessage('    *    Parse Results Nickname1:'+ItemValueBase0+'||');
		//ItemValueBase0:=StringReplace(ItemValueBase0,'                                    See more                                »','',True,False,True);   
                If ItemValueBase0 <> '' then ItemListBase:=ItemListBase+ #13#10 +'Nickname:  '+ItemValueBase0+'  ';
                LogMessage('      Parse Results Nickname:'+ItemValueBase0+'||');
	End; 
	//*)
	//(*
            //~Nicknames~
            curPos:=Pos('<li role="presentation" class="ipc-metadata-list__item ipc-metadata-list__item--stacked" data-testid="name-dyk-nickname"><span class="ipc-metadata-list-item__label ipc-metadata-list-item__label--btn" aria-label="See more" aria-disabled="false">Nicknames</span>',CombinedHTML);
            If curPos>0 Then Begin
                EndPos:=curPos;
                ItemValueBase1:=HTMLValues2(CombinedHTML,'<span class="ipc-metadata-list-item__label ipc-metadata-list-item__label--btn" aria-label="See more" aria-disabled="false">Nicknames</span>','</li></ul></div','<span class="ipc-metadata-list-item__list-content-item" aria-disabled="false">','</span>',',  ',EndPos); 
		//LogMessage('    *    Parse Results Nickname1:'+ItemValueBase0+'||');
		//ItemValueBase0:=StringReplace(ItemValueBase0,'                                    See more                                »','',True,False,True);   
                If ItemValueBase1 <> '' then ItemListBase:=ItemListBase+ #13#10 +'Nickname:  '+ItemValueBase1+'  ';
                LogMessage('      Parse Results Nickname:'+ItemValueBase1+'||');
	End;
	//*)
	
        End;

        // List to move to 'bio' field
        BioList := BioList + ItemListBase + #13#10;
        LogMessage('      List that is now in Bio field:'+ItemListBase+'||');
        //ItemList := ItemListBase;
        //LogMessage('      List ItemList := ItemListBase;:'+ItemListBase+'||');

        If ShouldParseBio Then Begin
            //Now parsing FileNameBio

//(*
            //Get "Biography" info
            curPos:=Pos('<h1 class="ipc-title__text">Biography</h1>',CombinedHTML);      //Strings start which opens the block content data. WEB_SPECIFIC
            if (curPos=0) then Exit;    
//*)
//(*
            ItemList2:='';
            ItemList11:='';
//*)
		//(*   
            //Get PersonID
		//LogMessage('Attempting to find PersonID');
            PersonID := TextBetWeenFirst(CombinedHTML, '<link rel="canonical" href="https://', '/">');  //WEB_SPECIFIC   
            if (Length(PersonID) > 2) then begin
                ItemList2 := '--------------------------------------------------------------------------'+#13+'<link url="http://' + PersonID + '/#overview">Biography Info</link>';
		//ItemList2 := '--------------------------------------------------------------------------'+#13+'<link url="http://www.imdb.com/name/' + PersonID + '/bio/#overview">Biography Info</link>';
                LogMessage('Get result PersonID: ' + PersonID + '||');
            end else begin
                LogMessage('Error: PersonID not found');
                Result := prError;      //Set the result to error if PersonID is not found
            end;   
		//*)   
		//(*
            //Get "Biography" info
            LogMessage('Attempting to find Biography section');
            curPos := Pos('<div data-testid="sub-section-mini_bio"', CombinedHTML);         //Updated to reflect new layout
            if (curPos = 0) then Begin
                LogMessage('Error: Biography section not found');
                Result := prError;      //Set the result to error if the section is not found
			Exit;
		End;
            endPos := Pos('</ul>', Copy(CombinedHTML, curPos, Length(CombinedHTML) - curPos + 1)) + curPos - 1;
            if endPos = curPos - 1 then Begin
                LogMessage('Error: End of Biography section not found');
                Result := prError;      //Set the result to error if the section is not found
			Exit;
		End;
            ItemList0 := Copy(CombinedHTML, curPos, endPos - curPos + Length('</ul>'));     //Include </ul> in the end position
			//LogMessage('Biography section found' + ItemList0);

            //Extract "Mini bio" Biography text
            LogMessage('Extracting Mini Bio text:');
            curPos := Pos('<div class="ipc-html-content-inner-div" role="presentation">', ItemList0);       //Updated to reflect new layout
            LogMessage('curPos for Mini Bio set to: ' + IntToStr(curPos));
            if curPos > 0 then Begin
                endPos := Pos('</ul>', Copy(ItemList0, curPos, Length(ItemList0) - curPos + 1)) + curPos - 1;       //Update to match exact structure
                LogMessage('endPos for Mini Bio set to: ' + IntToStr(endPos));
                if endPos > curPos Then Begin
                    ItemValue := Trim(Copy(ItemList0, curPos, endPos - curPos + Length('</ul>')));
                
                    //Normalize whitespace but keep empty lines
                    ItemValue := StringReplace(ItemValue, #13#10, #10, True, True, False);      //Normalize line endings
                    ItemValue := StringReplace(ItemValue, #13, #10, True, True, False);
                    ItemValue := StringReplace(ItemValue, #10#10, #13#10#13#10, True, True, False);     //Preserve empty lines
                    ItemValue := StringReplace(ItemValue, #10, ' ', True, True, False);
                    ItemValue := StringReplace(ItemValue, #13#10#13#10, #10#10, True, True, False);     //Revert empty line placeholders
                    While Pos('  ', ItemValue) > 0 Do
                        ItemValue := StringReplace(ItemValue, '  ', ' ', True, True, False);

                    //Transform links
                    ItemValue := StringReplace(ItemValue, '<a class="ipc-md-link ipc-md-link--entity" href="', '<link url="http://www.imdb.com', True, True, False);
                    ItemValue := StringReplace(ItemValue, '/?ref_=nmbio_mbio">', '/">', True, True, False);
                    ItemValue := StringReplace(ItemValue, '</a>', '</link>', True, True, False);

                    //Remove unwanted tags
                    ItemValue := StringReplace(ItemValue, '<div class="ipc-html-content-inner-div" role="presentation">', '', True, True, False);
                    ItemValue := StringReplace(ItemValue, '<div class="ipc-html-content ipc-html-content--base ipc-metadata-list-item-html-item" role="presentation">', '', True, True, False);
                    ItemValue := StringReplace(ItemValue, '</div>', '', True, True, False);
                    ItemValue := StringReplace(ItemValue, '</ul>', '', True, True, False);
				
			If Not(BIO_URL_IN_BIO) then ItemValue:=RemoveTagsEx00(ItemValue);   
                    If Not(BIO_URL_IN_BIO) then ItemValue:=StringReplace(ItemValue,'</link>','',True,True,False);
			
                    If ItemValue <> '' then ItemList := ItemValue;
				//LogMessage('   *   FullItemList: ' + ItemList + '||');
			
				//LogMessage('      Get result bio (from Mini bio)002:'+ItemList+'||');     
                    If ItemList <> '' then ItemList11:=ItemList11+ItemList;
			
                End Else LogMessage('Error: End position not found for Mini Bio');
            End Else LogMessage('Error: Start position not found for Mini Bio');
		//(*
            // Extract the final "IMDb Mini Biography By: ..." value and clean tags
			// Check if "- IMDb Mini Biography By:" is present in ItemList0
            If Pos('- IMDb Mini Biography By:', ItemList0) > 0 Then Begin
    // Set curPos to the position of "- IMDb Mini Biography By:"
                curPos := Pos('- IMDb Mini Biography By:', ItemList0);
    
    // Find the end position of the specific phrase within ItemList0 using PosFrom
                endPos := PosFrom('</div>', ItemList0, curPos) + Length('</div>') - 1;

    // Extract only the specific phrase
                FinalValue := Copy(ItemList0, curPos, endPos - curPos + 1);

    // Log the extracted value for debugging
    //LogMessage('   *   FinalValue Before Cleaning: ' + FinalValue + '||');

    // Clean surrounding tags without using RemoveTags
                FinalValue := StringReplace(FinalValue, '<div class="ipc-html-content-inner-div" role="presentation">', '', True, True, False);
                FinalValue := StringReplace(FinalValue, '<div class="ipc-html-content ipc-html-content--base ipc-metadata-list-item-html-item" role="presentation">', '', True, True, False);
                FinalValue := StringReplace(FinalValue, '</div>', '', True, True, False);
    
    // Remove everything after the first occurrence of "</"                
                If Pos('</', FinalValue) > 0 Then Begin
                    FinalValue := Copy(FinalValue, 1, Pos('</', FinalValue) - 1);
    End;
                FinalValue := Trim(FinalValue); // Remove any leading or trailing whitespace

    // Log the cleaned value
    LogMessage('   *   FinalValue After Cleaning: ' + FinalValue + '||');

				// Remove existing occurrence of FinalValue from ItemList
				ItemList := StringReplace(ItemList, FinalValue, '', True, True, False);

				// Log the cleaned ItemList
				//LogMessage('   *   Cleaned ItemList without FinalValue:' + ItemList + '||');

				// Append the final value to ItemList only if it's not already present
                If Pos(FinalValue, ItemList) = 0 Then Begin
                    If Length(ItemList) > 0 Then
                        ItemList := ItemList + #13#10 + '--------------------------------------------------------------------------'+ #13#10 + FinalValue + '--------------------------------------------------------------------------'
					Else
                        ItemList := FinalValue;
				End;

				// Log the updated ItemList
				//logMessage('   *   Get result bio (from Mini bio)002:' + ItemList + '||');

                If Not(IMDB_MINI_IN_BIO) then   
                    curPos:=Pos('--------------------------------------------------------------------------' + #13#10 + '- IMDb Mini',ItemList);
                if curPos >0 then ItemList := Copy(ItemList,0,curPos-1);
				//LogMessage('      Get result bio (from Mini bio) a:'+ItemList+'||');
				//LogMessage('      Get result bio (from Mini bio) b:'+ItemList+'||');
                If ItemList <> '' then ItemList11:=ItemList11+ItemList;
			End;
	//*)

            //AddFieldValueXML('bio', ItemList);
        //LogMessage('Added ItemList to XML: ' + ItemList);

		If (ItemList11 <> '') AND (ItemList2 <> '') Then
			//ItemList12:=ItemList11;
			ItemList12:=ItemList11+#13+ItemList2;

            //Get "Birth name" Biography text
            ItemList00:='';
			//ItemList10:=TextBetWeenFirst(CombinedHTML,'" data-testid="title"><hgroup><h1 class="ipc-title__text"','<h3 class="ipc-title__text"><span>Contribute to this page</span></h3>');
            curPos := PosFrom('<h3 class="ipc-title__text"><span id="overview">Overview', CombinedHTML,curPos);
            EndPos:=PosFrom('</div></section>',CombinedHTML,curPos);
            ItemList00:=Copy(CombinedHTML,curPos,endPos-curPos);
			//LogMessage('  ** Parse Biography '+#13+ItemList00+' **');
		//(*
            If (Length(ItemList00)>0) Then Begin
                ItemValue10:=TextBetWeenFirst(ItemList00,'<li role="presentation" class="ipc-metadata-list__item" id="name" data-testid="list-item"><span class="ipc-metadata-list-item__label" aria-disabled="false">Birth name</span>','</div></div></div></li>');
		//if BIRTH_NAME_IN_TRANSNAME then
		//if ItemValue10 <> '' then
		//AddFieldValueXML('transname',ItemValue10);
                If ItemValue10 <> '' then
			//LogMessage('      Get result from Birth Name02:'+ItemValue10+'||');
                    ItemValue10:='BirthName:  '+ItemValue10;
                If ItemValue10 <> '' then ItemList12:=ItemList12+#13+'--------------------------------------------------------------------------'+#13+ItemValue10;
		//If FinalValue := 0 then Begin
		//FinalValue := BirthNameValue;
                If FinalValue <> '' then FinalValue := '--------------------------------------------------------------------------' + #13#10 + FinalValue
		else
                    FinalValue := BirthNameValue;
                If ItemValue10 <> '' then BirthNameValue:='--------------------------------------------------------------------------' + #13#10 + ItemValue10 + #13#10 + '--------------------------------------------------------------------------' else BirthNameValue:='--------------------------------------------------------------------------'
            End;   
End;
		//*)         
If (opBio = 0) or ((opBio = 1) and IsBioFieldInitiallyEmpty) and (opCareer <> 0) or (opBio <> 0) Then Begin
                        If BIO_INFO_IN_BIO then
                AddFieldValueXML('bio', ItemList12)
            Else If Not(BIO_INFO_IN_BIO) and BIO_URL_IN_BIO and Not(IMDB_MINI_IN_BIO) then
                AddFieldValueXML('bio', BirthNameValue + #13#10 + BioList + #13#10 + ItemList + #13#10 + FinalValue)
		Else
                AddFieldValueXML('bio', ItemList11);
            LogMessage('      Get result from BirthNameValue + #13#10 + BioList + #13#10 + ItemList + #13#10 + FinalValue: '+ BirthNameValue + #13#10 + BioList + #13#10 + ItemList + #13#10 + FinalValue + '||');


		Result := prFinished;
	End;
	
	LogMessage('Function ParsePage_IMDBPeopleBIO END=====================||');
	End; //BlockClose
//*)



...............


// Parse Biography provider page = BASE_URL_BIO_PERSON-----------------------------------------------------------------------
If (GET_FULL_BIO) Then Begin
    // Conditions for both opBio and opCareer
    LogMessage('Actual opBio value from ini file: ' + Copy(PVDConfigOptions, opBio, 1));
LogMessage('Actual opCareer value from ini file: ' + Copy(PVDConfigOptions, opCareer, 1));

ShouldParseBio := Not(USE_SAVED_PVDCONFIG and (Copy(PVDConfigOptions, opBio, 1) = '0'));
ShouldParseCareer := Not(USE_SAVED_PVDCONFIG and (Copy(PVDConfigOptions, opCareer, 1) = '0'));

LogMessage('ShouldParseBio: ' + BoolToStr(ShouldParseBio));
LogMessage('ShouldParseCareer: ' + BoolToStr(ShouldParseCareer));


    If (ShouldParseBio or ShouldParseCareer) Then Begin
        DownloadURL := StringReplace(BASE_URL_BIO_PERSON, '%IMDB_ID', PersonID, True, True, False);
        HTML := DownloadPageBio(FileNameBio);  // True page for parsing
        HTML := HTMLToText(HTML); 
        CombinedHTML := HTML;

        DownloadURL := BASE_URL_PERSON_PRE_TRUE + PersonID + BASE_URL_SUF;
        HTML := DownloadPageMain(FileNameMain); 
        HTML := HTMLToText(HTML);
        CombinedHTML := CombinedHTML + HTML;

        ResultTmp := ParsePage_IMDBPeopleBIO(CombinedHTML, ShouldParseBio, ShouldParseCareer);
        If Not(ResultTmp = prFinished) Then Begin
            Result := ResultTmp;
            Exit;
        End;
    End;
End;



FROM THE LOG AFTER PARSING:

(1/19/2025 11:59:39 PM) Function DownloadPageMain END======================|
(1/19/2025 11:59:39 PM) ParsePage_IMDBPeopleBIO: Starting processing.
(1/19/2025 11:59:39 PM) CombinedHTML length: 1623792
(1/19/2025 11:59:39 PM) Function ParsePage_IMDBPeopleBIO BEGIN=====================||
(1/19/2025 11:59:39 PM) Person -> LoadStatic -> 0ms
(1/19/2025 11:59:39 PM) Person -> LoadMultivalues -> 0ms
(1/19/2025 11:59:39 PM) Person -> LoadFilms -> 0ms
(1/19/2025 11:59:39 PM) Person -> LoadAwards -> 0ms
(1/19/2025 11:59:39 PM) Person -> LoadImages -> 0ms
(1/19/2025 11:59:39 PM)       Get result Profession:Additional Crew,  Actor,  Director||
(1/19/2025 11:59:40 PM)       Parse Results Name12:'Chico' Hernandez||
(1/19/2025 11:59:40 PM)       Parse Results Born10:January 2, 1958 in Durango, Mexico||
(1/19/2025 11:59:40 PM) curPos after finding Alternative Names curPos: 1003879
(1/19/2025 11:59:41 PM)       Parsed Results All Expanded Alternative Names: Chico Fernandez, Julio Fernandez, Jose Ma. 'Chico' Hernandez Haro, Jose Maria 'Chico' Hernandez Haro, Jose Maria Hernandez Haro, Chico Hernandez, Jose Maria \"Chico\" Hernandez, Jose Maria Hernandez, José Maria 'Chico' Hernández||
(1/19/2025 11:59:41 PM)       Parse Results Height:||
(1/19/2025 11:59:41 PM)       List that is now in Bio field:Profession:  Additional Crew,  Actor,  Director  
Additional Filmography Career:  Transportation Department,  Stunts  
Name:  'Chico' Hernandez  
Born:  January 2, 1958 in Durango, Mexico||
(1/19/2025 11:59:41 PM)       Get result from BioList Profession:  Additional Crew,  Actor,  Director  
Additional Filmography Career:  Transportation Department,  Stunts  
Name:  'Chico' Hernandez  
Born:  January 2, 1958 in Durango, Mexico
||
(1/19/2025 11:59:41 PM) Get result PersonID: www.imdb.com/name/nm0379491/bio||
(1/19/2025 11:59:41 PM) Attempting to find Biography section
(1/19/2025 11:59:41 PM) Extracting Mini Bio text:
(1/19/2025 11:59:41 PM) curPos for Mini Bio set to: 716
(1/19/2025 11:59:41 PM) endPos for Mini Bio set to: 1222
(1/19/2025 11:59:41 PM)       Get result from BirthNameValue + #13#10 + BioList + #13#10 + ItemList + #13#10 + FinalValue: --------------------------------------------------------------------------
Profession:  Additional Crew,  Actor,  Director  
Additional Filmography Career:  Transportation Department,  Stunts  
Name:  'Chico' Hernandez  
Born:  January 2, 1958 in Durango, Mexico

'Chico' Hernandez was born on January 2, 1958 in Durango, Mexico. He is an actor and director, known for <link url="http://www.imdb.com/title/tt0120746/">Маска Зороа (1998)</link>, <link url="http://www.imdb.com/title/tt0236493/">Мексиканац (2001)</link> and <link url="http://www.imdb.com/title/tt0386140/">Легенда о Зороу (2005)</link>.
||
(1/19/2025 11:59:41 PM) Function ParsePage_IMDBPeopleBIO END=====================||
(1/19/2025 11:59:41 PM) 		Function DownloadPageCredit BEGIN======================|