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