#include "OneFileScript.au3"

Func GetRealErrorLine($file, $line)
	Local $content = CreateOneFileScript($file)
	Local $retour[0]
	Local $fileName
	Local $rayon = 5
	$content = StringSplit($content, @CRLF, 1)
	For $i = $line To $content[0]
		$fileName = StringSplit($content[$i], ";|ERROR" & "FILE|", 3)
		If(UBound($fileName, 1) > 1) Then
			$fileName = StringSplit($fileName[1], "|", 3)[0]
			ExitLoop
		EndIf
	Next
	If($line > 0 And UBound($content, 1) > $line) Then
		ReDim $retour[($rayon+1)*2]
		$retour[0] = $fileName
		For $i = -1*$rayon To $rayon
			$retour[$i+$rayon+1] = ($line+$i > 0 And UBound($content, 1) > $line+$i) ? Transform($content[$line+$i], $fileName) : ""
		Next
	EndIf
	Return $retour
EndFunc

Func Transform($line, $fileName)
	Return StringReplace($line, " ;|ERRORFILE|" & $fileName & "|", "")
EndFunc