Procedury pro práci se soubory

Otevírání souborů

• otevření souborů pro čtení OpenR, unit, filename, [/GetLUN], [/Compress], ...

;unit je císlo jedinecné mezi otevrenými soubory
;/GetLUN zajistí jeho nalezení (>100)
OpenR, 2, "soubor.dat"
OpenR, unit_variable, filename_string, /GetLUN   

;lze též použít proceduru GetLUN 
GetLUN,unit1 & OpenR, unit1, filename_string

;/Compress komprimuje soubor jako GZIP
OpenR, 2, "soubor.gz", /Compress

• otevření souboru pro zápis OpenW, unit, filename, [/GetLUN], [/Append], [/Compress], ...

;/Append otevre soubor na konci
OpenW, 2, "novy_soubor.txt"
OpenW, 2, "stary_soubor.txt", /Append

• otevření pro čtení i zápis (opravy) OpenU, unit, filename, [/GetLUN], [/Append], [/Compress], ...

OpenU, 2, "upravovany_soubor.txt"

Uzavření souborů

• uzavření Close, [unit1, ...unitn,] [/All]

;lze uzavrít jeden i více souboru
;/All uzavre všechny
Close, 2
Close, unit2, unit3, unit4
Close, /All

• uzavření s uvolněním unit Free_LUN, unit1, ...unitn

;lze uzavrít jeden i více souboru
Free_LUN, unit1
Free_LUN, unit2, unit3, unit4

Čtení textových dat

• vstup z příkazové řádky Read, [prompt], var1, ...varn
• vstup ze souboru ReadF, unit, var1, ...varn
• vstup z řetězce ReadS, input_string, var1, ...varn

;príklady
Read, 'Zadej delku:', delka
ReadF, unita, x,y,z
ReadS, mystring, data

;formátované ctení
a=Fltarr(10, /Nozero) & ReadF, 5, a, b, c, Format='(10F8.3, 2X, I4, 2X, G10.5)'

Zápis textových dat

• do output logu Print, expr1, ...exprn
• do souboru PrintF, unit, expr1, ...exprn
• do řetězcové proměnné - funkce String(expr1, ...exprn, [Format='...'])

;príklady
Print, 'Delka:', delka
PrintF, unitb, x, ' - ', y, z
a=String(vyska,' cm')

;formátovaný zápis
PrintF, 2, a, b, Format='("delka ",F8.3, "vyska ", F5.2)'

Čtení a zápis binárních dat

• vstup ze souboru ReadU, unit, var1, ...varn
• zápis do souboru WriteU, unit, var1, ...varn

;príklady - pri ctení se cte tolik dat, kolik požaduje typ dane promenne 
x=0 & mm=Dblarr(10,5, /Nozero) & ReadU, 1, x,mm
WriteU, unit_out, data

Utility

• vyprázdnění bufferů Flush, unit1, ...unitn

Flush, unit3

• status souboru - funkce Fstat(unit) vrací FSTAT strukturu

;príklad
A = Fstat(1)
;napr. tisk jména, délky, aktuální pozice v souboru:
Print, 'File: ', A.NAME, ' Length: ', A.SIZE, ' Pos: ', A.CUR_PTR

• ošetření chyb On_IOerror, label
• nalezení všech souborů podle masky - funkce FindFile(filespec,[count=variable])
• změna pracovního adresáře PushD, directory / PopD

On_IOerror, iochyba
PushD, 'C:\temp'
;nalezne jmena vsech souboru C:\temp\*.tmp
a=FindFile('*.tmp',count=ca)
PopD

...

iochyba:
;zde ošetrení chyb

Dialogy a makra

• výběr souboru - funkce Dialog_pickfile

;príklad - otevreme soubor pro vstup dat 
fn = Dialog_Pickfile(file='nejcastejsi.dat', path='cesta k souborum', $
      /read, title='Vyber soubor pro cteni', filter='*.dat')
if fn ne '' then begin 
  OpenR, u, fn, /Get_LUN
....

;otevreme soubor pro tiskovy vystup
fn = Dialog_Pickfile(file='image.ps', path='C:\temp\', /write, $
      title='Zadej soubor pro vystup v PostScriptu', filter='*.ps')
Device, filename=fn & Set_plot, 'PS'

• makro pro načtení textového souboru - funkce Read_ASCII
• makro pro načtení binárního souboru - funkce Read_binary

L.Přech, poslední úpravy 22.11.2000