Code php อ่าน Text file รันผ่านแล้วแต่รันช้ามากค่ะ ไฟล์ text 4200KB ประมาณ 3กว่า แสนบรรทัด รัน 7 ชม ยังไม่เสร็จ

<?php
ini_set('memory_limit', '2048M');
ini_set('max_execution_time', 3600); //3600 seconds = 6000 minutes

$Filename = $_FILES['filUpload']['name'];

echo "File Name : $Filename <br>";
$Qdata = $Filename ;
$assay = file($Qdata); // แก้ให้ถูก
$X=array();
$Y=array();

$i=0;
$a=0;
$n=0;

while (list ($line_num, $line) = each ($assay)) 
{
	$search = substr($line,0,12)  ;
	if($search == "AcDbPolyline"){
		while (list ($line_num2, $lineA) = each ($assay)) 
		{
			//-----------------
			if($line_num =$line_num2){
				$Xre = substr($lineA,0,17)  ;
				if($Xre > 30000 & $Xre < 75000){
					$X[$i]=$Xre ;
					$i++;
				}
				$Yre = substr($lineA,0,17)  ;
				if($Yre > 75000 & $Yre < 90000){
					$Y[$a]=$Yre ;
					$a++;
				}
			}
			//------------------
		}
	}
}

foreach($X as $key=>$value){
	$xx = $X[$key];
	$xxx =$X[$key+1]; 
	$xxxx = $X[$key+2];
	$yy = $Y[$key];
	$yyy = $Y[$key+1];
	$yyyy = $Y[$key+2];


	$v1 = array($xx, $yy);
	$v2 = array($xxx, $yyy);
	$v3 = array($xxxx, $yyyy);

	$P12 = sqrt(pow($v1[0]-$v2[0],2) + pow($v1[1]-$v2[1],2));
	$P13 = sqrt(pow($v1[0]-$v3[0],2) + pow($v1[1]-$v3[1],2));
	$P23 = sqrt(pow($v2[0]-$v3[0],2) + pow($v2[1]-$v3[1],2));

	$ang = @acos((pow($P12,2) + pow($P13,2) - pow($P23,2)) / (2 * $P12 * $P13));

	// angle in radians

	$degree2 = @asin($P13*sin($ang)/$P23);
	$degree = rad2deg($degree2) ;
	$degreetouse = 180-$degree;

	if($degreetouse < 150){
		$Qdata = $Filename ;
		$assay1 = file($Qdata) ;

		while (list ($line_num3, $line2) = each ($assay1)) 
		{
			$search2 = substr($line2,0,17)  ;
			if($search2 == $v2[0]){
				$lineuse=$line_num3; // หาพบแล้ว ควรจะสั่งเบรก เพื่อหยุดการค้นหาต่อไป
			}
		}
		$id2 = $lineuse;
		for($r=1;$r<5;$r++){
			$id=$id2-1;
			$QQdata = $Filename;
			$lines = file($QQdata); // อ่านไฟล์ เป็นแสนบันทัดใน loop คิดใหม่ทำใหม่ ครับ
			// แค่อ่านเป็นแสนบันทัดมาไว้ใน array 
			// php ini กำหนดไว้ยังไง ศึกษามันด้วยนะครับ
			$file = $Filename;
			foreach ($lines as $line_numm => $linee) 
			{
				// loop นี้สร้างมาเพื่อหน่วงเวลาหรือไงครับ
			}
			unset($lines[$id]);
			implode("\n",$lines);
			file_put_contents($file,$lines); // 
			echo " trying to adjust... " . $id . " from " . $lines . ".<br>";
		}
	}
	//-----------------------
}
echo "Complete";

while (list ($line_num, $line) = each ($assay)) // เริ่มต้นอ่าน จาก line 0 จนถึง 100000 บันทัด
{
	$search = substr($line,0,12)  ;
	if($search == "AcDbPolyline"){
		while (list ($line_num2, $lineA) = each ($assay)) // แล้วยังมา เริ่มต้นอ่าน จาก line 0 จนถึง 100000 บันทัด นี้อีก
		{
			//-----------------
			if($line_num =$line_num2){
				$Xre = substr($lineA,0,17)  ;
				if($Xre > 30000 & $Xre < 75000){ // จะ if ทำไม 2 ครั้ง จับมันใส่ else ไม่ดีกว่าเหรอ
					$X[$i]=$Xre ;
					$i++;
				}
				$Yre = substr($lineA,0,17)  ;
				if($Yre > 75000 & $Yre < 90000){  //  บันทัดนี้ถ้าเข้าเคส 30000-75000 มันไม่จำเป็นต้องมาทำตรงนี้อีก
					$Y[$a]=$Yre ;
					$a++;
				}
			}
			//------------------
		}
	}
}