Function FilterArray($array,$find, optional $inclusive)
Dim $lf, $t, $l, $sp
$lf=Chr(10) $sp=Chr(32)
If NOT VarType($Array) & 8192 Exit(1) EndIf
For Each $l In $array
If (InStr($l,$find) AND $inclusive AND Trim($l)> $sp)
OR (NOT InStr($l,$find) AND NOT $inclusive AND Trim($l)> $sp)
$t=$t+$lf+$l
EndIf
Next
$FilterArray=Split(SubStr($t,2),$lf)
EndFunction

Function ReadFile($file)
	Dim $lf, $f, $_, $t
	$lf=Chr(10)
	$f=FreeFileHandle
	$_=Open($f,$file)
		If @error   Exit @error   EndIf
		Do $t=$t+$lf+ReadLine($f) Until @error
		$_=Close($f)
	$ReadFile=Split(SubStr($t,2),$lf)
	EndFunction

$tivfile=ReadFile(c:\temp\last.cfg)
$tivarray=FilterArray($tivfile,"lcs.machine_name")
?$tivarray