Поиск строки в файл.txt cодержащей ключевое слово или словосочетание

[Dotacka]

Добрый день!
Просьба знающих людей подсказать.
В текстовом файле (файл.txt) есть набор строк.
Нужно найти строку содержащую слово "картошка" и вывести на экран номер этой строки и текст самой строки.

Пробую варианты c

StringInStr

Но она ищет только строки с полным совпадением.

 

[sngr]

$file=FileRead(@ScriptDir&'\файл.txt')
$str=StringRegExp($file,'[^\r\n]+',3)
$aa=''
For $i = 0 To UBound($str)-1
	Select
		Case StringRegExp($str[$i],"картошка")
			$aa&=$i+1&$str[$i]& @CRLF
	EndSelect
Next
MsgBox(32,'',$aa)
FileWrite(@ScriptDir&'\123.txt',$aa)

 

[Dotacka]

$file=FileRead(@ScriptDir&'\файл.txt')
$str=StringRegExp($file,'[^\r\n]+',3)
$aa=''
For $i = 0 To UBound($str)-1
    Select
        Case StringRegExp($str[$i],"картошка")
            $aa&=$i+1&$str[$i]& @CRLF
    EndSelect
Next
MsgBox(32,'',$aa)
FileWrite(@ScriptDir&'\123.txt',$aa)

Именно то - что нужно! Спасибо!