Доброго времени суток!

Помогите пожалуйста в решении такой проблемы, нужно считать данные с текстового файла более 300 метров. Код:
for ix = 1 to ALINE(aParse,FileToStr(tekfail))
IF AT(fam+'|Специалист по ведению архива|',AParse[m.ix])=0 then
new_str=new_str+aParse[m.ix]+CHR(13)+CHR(10)
endif

ENDFOR


не работает, т.к. функция FileToStr(tekfail)) выдает ошибку недостаточно памяти.

Код:
SET MEMOWIDTH TO 700
CREATE CURSOR Contents(Content M)
APPEND BLANK
APPEND MEMO Content FROM ALLTRIM(tekdir+'\spto\'+ALLTRIM(maskbkdox(i,1)))

FOR ix=1 TO MEMLINES(Content)
if ATLINE(fam+'|Специалист по ведению архива|', MLINE(content,ix))=0 then
res_str=''
res_str=MLINE(content,ix)+CHR(13)+CHR(10)
STRTOFILE(res_str, newfail,.T.)
endif
WAIT WINDOW 'Работаем'+tekfail nowait
endfor

работает сутками.

Помогите пожалуйста в решении проблемы

По fgets не пробовала, но там же надо указывать сколько байтов считывать нужно. Если возможно, напишите пример кода.

Это необязательный параметр, но как вы себе тогда представляете считывать построчно. Всё же хочется увидеть пример кода

Помог код предложенный piva :)

PUBLIC gnhandle
new_str=''
res_str=''
strr=''
fam=INPUTBOX('Input','Input')
tekfail=GETFILE()
newfail=ALLTRIM(tekdir+'\spto\result.txt')
o=CREATEOBJECT("Scripting.FileSystemObject")
loFile=o.GetFile(tekfail)
loTextStrem=loFile.OpenAsTextStream()
WITH loTextStrem
DO WHILE NOT .AtEndOfStream
tekline=''
tekline=.ReadLine()
if AT( ALLTRIM(fam+'|Специалист по ведению архива|'), ALLTRIM(tekline))=0 then
res_str=''
res_str=tekline+CHR(13)+CHR(10)
STRTOFILE(res_str, newfail,.T.)
endif

Enddo
.Close()
Endwith

считывает файл за пару минут)
Спасибо всем огромное!

Если можете, киньте ссылку где можно больше прочитать про функции Windows Scripting Host