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


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : ???
To : Roman Popov
Subj : Как из рекса прочитать файл целиком в одну переменную ?
> Уппссс... Не сохраняется разметка строк.

/**/
xxx=''/*твоя переменная, делаем ее пустой*/
file_name='имя_файла'/*задаем имя файла*/
ssize = stream(file_name,'c','query size')
do ssize/*цикл будет перебирать твой файл посимвольно*/
inc=charin(file_name)/*Читаем каждый символ*/
xxx=xxx||inc/*переменной xxx приклеиваем символ*/
end
rcs=stream(file_name,'c','close')/*закрываем поток*/
/*Теперь, переменная xxx содержит твой файл. Делай с ней что хочешь.*/
exit

Пробуй.
По идее годится и для бинарных файлов, только с оговорками...
Но работает гораздо медленнее, чем предыдущий пример.
Но если файл не очень громадный, то разницы по скорости не заметишь.

Mon 08 Apr 2002 16:43 Mozilla/4.61 [en] (OS/2; I)



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.