RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Ответить на сообщение
Имя:
e-mail:
FIDO:
Home page:
сохранить данные о вас
Тема:
> привет. > > этот вариант > на файле 2000 строк выполняется за 0.05 сек > Файл 4000 не сжевала - пожаловалась на нехватку рсурсов > На 1000 строк, 47000 байт тратит от 0.01 до 0.02 сек > > Понятно, он хуже, но не настолько > > arg inFile > say time('r') > EOL=x2c(0d0a) > call Stream inFile,'c','open' > FileLen=Chars(inFile) > FileStr=CharIn(inFile, 1, FileLen) > call Stream inFile,'c','close' > i=0 > k=pos(EOL,FileStr) > do while k<>0 > n=1 > i=i+1 > ss=substr(FileStr,n,k-n) > Str.i = ss > n=k+1 > k=pos(EOL,FileStr,n) > end /* while */ > Str.0=i > say time('e') > say 'Str.0='Str.0 >
_, _, _, _, _ _, _,_
(_ | / \ |\ | / \ |_/
, ) | , \ / | \| \ / | \
~ ~~~ ~ ~ ~ ~ ~ ~
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.