OPEN, INPUT, OUTPUT

example #1:

!-- Getting NCC Table D1.13 values 

dim value_use[], value_rate[] 

filename= "NCCTableD113.txt" 

ch1=OPEN("TEXT",filename,"SEPARATOR='\t',MODE=RO,LIBRARY") 

!--counting the total number of rows 

row=0 

do 

row= row+1 

n=INPUT(ch1,row,1,string1) 

while n>-1 

!--reading the first column for NCC_TableD113_Use 

for k= 1 to row-1 

n=INPUT(ch1,k,1,string1) 

value_use[k]= string1 

next k 

!--reading the second column for NCC_TableD113_Rate 

for m= 1 to row-1 

n=INPUT(ch1,m,2,string2) 

value_rate[m]= string2 

next m 

CLOSE (ch1) 

VALUES "NCC_TableD113_Use" value_use, custom 

example #2:

!--> file names added 

f1= "File01.txt" 

f2= "File02.txt" 

f3= "File03.txt" 

!--> LIBRARY keyword added 

ch1 = open ("TEXT", f1, "mode = ro,LIBRARY") 

ch2 = open ("TEXT", f2, "separator = '\n', mode = wo,LIBRARY") 

ch3 = open ("TEXT", f3, "separator = '\n', mode = wo,LIBRARY") 

!--> script continues as before 

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 

goto 1 

else 

goto 2 

endif 

2: 

close ch1 

close ch2 

close ch3 

end

References:

http://archicad-talk.graphisoft.com/viewtopic.php?p=208651  (!)

http://195.144.20.106/viewtopic.php?printertopic=1&t=29323&start=0&postdays=0&postorder=asc&vote=viewresult&sid=725ecee51345432d7ea7674dd14d6d35 (!)

http://archicad-talk.graphisoft.com/viewtopic.php?p=185062

CADStudio.ru:

http://forum.cadstudio.ru/index.php?topic=11744.0 - Работа с внешними файлами из GDL объекта

http://forum.cadstudio.ru/index.php?topic=29064.0 - Армирование-2

http://forum.cadstudio.ru/index.php?topic=13996.45 - Защита объектов