#include<Array.au3>
$s=__FileSeparat(@ScriptDir&"\1.txt","error",2)
;~ _ArrayDisplay($s)
MsgBox(0,'',$s)
Func __FileSeparat($sFiles,$sString1,$nMode=1)
If Not FileExists($sFiles) Then Return 0
Local $sReadFile=FileRead($sFiles),$aFileS=StringSplit($sReadFile,@LF,2)
Local $sRet,$Return
For $i=0 To UBound($aFileS)-1
If StringInStr($aFileS[$i],$sString1)=1 Then
$sRet&=$aFileS[$i]&@LF
EndIf
Next
$sRet=StringStripWS($sRet,2)
If $nMode=1 Then
$Return=StringSplit($sRet,@LF,2)
ElseIf $nMode=2 Then
$Return=$sRet
EndIf
Return $Return
EndFunc