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


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : Improver
To : Joseph
Subj : OORexxx Прочитать весь текстовый файл в массив
> Так не пробовал?
> Call Stream file,'c','open'
> sf=Chars(file)
> s=CharIn(file, 1, sf)

Если файл текстовый, то для совместимости с SysFileSearch лучше читать строками через LineIn, например так:
-----
i = 0
do while lines(inFile) > 0
i = i + 1
Str.i = linein(inFile)
end
Str.0 = i
-----

Не в одну строку, конечно, но можно это вынести в подпрограмму и вызывать одной строкой.

> > Доброго дня!
> >
> > Переписываю на OORexx свои скрипты.
> > Нужно прочитать текстовый файл в массив одной командой. В Regina и OS/2 для этого использую SysFileSearch с шаблоном для поиска "0D".
> >
> > Target=x2c(0d)
> > call SysFileSearch Target, File, 'Str.'
> >
> > А вот в OORexx такой фокус не прокатывает.
> >
> > Подскажите, чем можно заменить.

Thu 23 Jan 2025 12:38 Mozilla/5.0 (OS/2; Warp 4.5; rv:45.0) Gecko/20100101 Firefox



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.