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


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : Andrey Mitrofanov, 2:5020/1302.486
To : Yuri Prokushev
Subj : Как из рекса прочитать файл целиком в одну переменную ?
> rc = STREAM(f1,"C","OPEN READ")
> file1 = CHARIN(f1,1,CHARS(f1))
> rc = STREAM(f1,"C","CLOSE")
>

Вот этот вариант мне наиболее симпатичен. Правильно -- файлы закрывать *хорошо*. [[ А то не позакрывал как-то файлы в цикле, так долго удивлялся, чего это оно разваливается, когда список файлов длиннее 3-х или 5-ти... ]]

Правда, я сам пользуюсь STREAM(file,'C','QUERY SIZE'), а не CHARS(f1), так как 'QUERY SIZE' файл _не открывает_. Вот так

data=CHARIN(file,1,'0'||STREAM(file,'C','QUERY SIZE')); er=STREAM(file,'C','CLOSE')

Здесь '0'|| -- для случая, когда файл не существует.

...Be happy, take it easy, sayonara.
---abm@null.ru,abme@rambler.ru

Tue 09 Apr 2002 10:29 Mozilla/4.61 [ru] (OS/2; U)



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.