_StringGetLine

$sString = FileRead(@ScriptFullPath)
MsgBox(0,"",_StringGetLine($sString, "ThisIsATest"))


Func _StringGetLine($sSearchString, $sSubString, $iCasesense = 0, $iOccurence = 1, $iStart = 1)
    ; -Author: name22 (www.autoit.de)
    Local $iSearchPos = StringInStr($sSearchString, $sSubString, $iCasesense, $iOccurence, $iStart)
    If @error Then Return SetError(1, 0, 0)
    StringReplace(StringLeft($sSearchString, $iSearchPos), @CRLF, "")
    Return SetError(0, 0, @extended + 1)
EndFunc