Как вывести определенные строки из файла в SplashTextOn?

For $x = 1 To 10
 	$message &= FileReadLine(@ScriptDir & '\exp.txt', $x) & @LF
 	ControlSetText("exp", "", "Static1", $message)
Next

ControlSetText("exp", "", "Static1", FileReadLine(@ScriptDir & '\exp.txt', 9) & @LF)
ControlSetText("exp", "", "Static1", FileReadLine(@ScriptDir & '\exp.txt', 13) & @LF)
ControlSetText("exp", "", "Static1", FileReadLine(@ScriptDir & '\exp.txt', 17) & @LF)

$t_f10 = FileReadLine(@ScriptDir & '\exp.txt', 10)
$t_f30 = FileReadLine(@ScriptDir & '\exp.txt', 30)
ControlSetText("exp", "", "Static1", $t_f10&@CRLF&$t_f30)

$aList = FileReadToArray(@ScriptDir & '\exp.txt')
$sNumStr = '34568' ; номера строк
$iLenStr = StringLen($sNumStr)
$sMessage = ''

SplashTextOn("exp", $sMessage, -1, -1, -1, -1, 4, "")

For $x = 1 To $iLenStr
	$iLine = StringMid($sNumStr, $x, 1)
	If $iLine > UBound($aList) Then ExitLoop
	$sMessage &= $aList[$iLine-1] & @CRLF
Next
Sleep(1000)
ControlSetText("exp", "", "Static1", $sMessage)
Sleep(3000)

$aList = FileReadToArray(@ScriptDir & '\exp.txt')
$aNumStr = StringSplit('3;4;5;68;900', ';') ; номера строк
$sMessage = ''

SplashTextOn("exp", $sMessage, -1, -1, -1, -1, 4, "")

For $x = 1 To $aNumStr[0]
	If $aNumStr[$x] > UBound($aList) Then ExitLoop
	$sMessage &= $aList[$aNumStr[$x]-1] & @CRLF
Next
Sleep(1000)
ControlSetText("exp", "", "Static1", $sMessage)
Sleep(3000)