$file='1aaaaaa неопределено fdsfasdf'& @CRLF
$file&='2aaaaaa fdsfasdf'& @CRLF
$file&='3aaaaaa неопределено'& @CRLF
$file&='4aaaaaa '& @CRLF
$str=StringRegExpReplace($file,'[^\r\n]*неопределено[^\r\n]*\r\n','\1')
FileWrite(@DesktopDir&'\123.txt',$str)