|
|
|||
|
Приложения |
|||
|
|
|||
|
значения задаваемых выражений в
конец файла, либо
предварительно уничтожит в файле старые значения. Между значениями будет проставляться разделитель, определенный в команде открытия файла. RecordID используется для указания
на необходимость перехода
на новую строку. Если recordID положителен, то
после вывода имеющихся в
команде значении будет произведен переход на новую строку. В противном случае после последнего выведенного значения будет проставлен символ разделитель. Пример:
string = "Date:
19.01.1996"
а = 1.5
OUTPUT ch2, 1,0,
string
! после вывода string переход на
новую строку
OUTPUT ch2, 0, 0, а, а + 1, а + 2 ! после вывода а + 2 проставляется
разделитель без перехода
! на новую
строку.
4. CLOSE
channel
Приводит к закрытию файла,
указанного значением channel.
Пример:
Приводимый ниже объект GDL
производит копирование
содержимого файла"f1" в файлы "f2" и "fЗ", однако, при этом, все значения файла "f1", разделенные символом табуляции, записываются в "f2" и "f3" в виде отдельных строк. ch1 = OPEN ("TEXT", "f1",
"MODE=ro")
ch2 = OPEN ("TEXT", "f2",
"SEPARATORS='\n', MODE=wo")
ch3 = OPEN ("TEXT", "f3",
"SEPARATORS='\n', MODE=wo")
i = 1
1:
n = INPUT (ch1, i, 1, var1, var2,
var3, var4)
IF n <> -1 THEN OUTPUT ch2, 1, 0, var1, var2,
var3, var4
OUTPUT ch3, 1, 0 var1, var2, var3, var4 i = i + 1 GOTO1 ELSE GOTO
2
ENDIF 2: CLOSE ch1 CLOSE ch2 CLOSE ch3 END |
|||
|
|
|||
Справочное пособие по GDL |
251 |
||
|
|
|||