RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : OORexxx Прочитать весь текстовый файл в массив


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Список сообщений
From : Improver
To : Алексей Тарасов
Subj : OORexxx Прочитать весь текстовый файл в массив
> > -----
> > i = 0
> > do while lines(inFile) > 0
> > i = i + 1
> > Str.i = linein(inFile)
> > end
> > Str.0 = i
> > -----
>
> Не большая оптимизация:
> do n=1 while lines(inFile) > 0
> Str.n=linein(inFile)
> end /* while */
> Str.0=n
>
> Выполняется на 0,01 секунды быстрее.

Да, хороший вариант.

Ещё такой момент вспомнил, в конце чтения желательно закрывать файлы командой "call stream inFile,'c','close'", иначе, если скрипт читает много файлов в цикле, то после сотни-другой чтений он будет только делать вид, что читает.

Thu 30 Jan 2025 15:34 Mozilla/5.0 (OS/2; Warp 4.5; rv:45.0) Gecko/20100101 Firefox



Programmed by Dmitri Maximovich, Dmitry I. Platonoff, Eugen Kuleshov.
25.09.99 (c) 1999, RU/2. All rights reserved.
Rewritten by Dmitry Ban. All rights ignored.