RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Ответить на сообщение
Имя:
e-mail:
FIDO:
Home page:
сохранить данные о вас
Тема:
> > > ----- > > > 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'", иначе, если скрипт читает много файлов в цикле, то после сотни-другой чтений он будет только делать вид, что читает.
_, _, _,
/ \ (_ / ~ )
\ / , ) / /
~ ~ ~~~
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.