|
xxx:0001
ENG: Writing similar blocks of text to text file
RUS: если нужно записать в файл N одинаковых текстовых строчек (блоков текста),
в каждой строке какое-то другое число
сложность: простая заготовка
/* */
/* REXX scripts: http://norton.spb.ru/?action=rexx */
/* 2022/11/05 */
/* Eugene Gorbunoff */
fname="results"
call stream fname, 'c', 'open write'
do i=101 to 200
text=' array(' || i || ','
rc = lineout(fname, text)
text=" 'apps-0" || i || "', "
rc = lineout(fname, text)
rc = lineout(fname, " '',")
rc = lineout(fname, " '',")
rc = lineout(fname, " '#disk',")
rc = lineout(fname, " '',")
rc = lineout(fname, ' "1","","","","","","","","",""),')
end
call stream fname, 'c', 'close'
|
