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


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : Алексей Тарасов, 2:5053/57
To : Improver
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 секунды быстрее.

Wed 29 Jan 2025 19:18 Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36



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.