reading and writing multiple data files in idl

Question

I'm new to IDL and trying to read multiple binary data files from a certain folder and write them in a text format to a certain folder all at once. I currently have a code that reads and writes only one file at a time and I have to do the naming manually,but I need to read and write all the files at once to avoid naming errors when reading one by one manually. here is my code please assist.I need to read and write the multiple data files all at once.

    pro readfitacf

; Open the raw file for read only 


  inp=FitOpen('/media/New Volume/SANAE/2010_fitacf/2010 Jan/20100114.0931.17.san.fitacf',/read)


;  Search for a specific time in the file

;prm.bmnum = 15

;prm.nrang = 5

filename = '/project/2010 Jan/20100114.0931.17.san.txt'

OPENW,5,filename

where Fitopen is a function as follows


      function FitOpen,fname,atme=atme,lib=lib, $
               native=native,external=external, $
                read=read,write=write,update=update
mode=0

if (KEYWORD_SET(lib) eq 0) then lib=getenv('LIB_FITIDL')

if KEYWORD_SET(native) then mode=1

if KEYWORD_SET(external) then mode=2

if (mode eq 0) and (file_test(lib) eq 1) then mode=2 $

else if (mode eq 0) then mode=1


if (mode eq 1) then begin

if KEYWORD_SET(read) then openr,unit,fname,/GET_LUN,/SWAP_IF_BIG_ENDIAN

if KEYWORD_SET(write) then openw,unit,fname,/GET_LUN, /SWAP_IF_BIG_ENDIAN

if KEYWORD_SET(update) then openu,unit,fname,/GET_LUN, /SWAP_IF_BIG_ENDIAN

endif else begin

if KEYWORD_SET(read) then openr,unit,fname,/GET_LUN,/STDIO

if KEYWORD_SET(write) then openw,unit,fname,/GET_LUN,/STDIO

if KEYWORD_SET(update) then openu,unit,fname,/GET_LUN,/STDIO

endelse


return, unit

end

jitter · Accepted Answer · 2019-07-10T15:38:30.633

0

You can use FILE_SEARCH to search for specific files with a pattern and get an array of file paths. Then, just loop over this array. To get the base name of the file use for example FILE_BASENAME:

files = FILE_SEARCH('directory1/*.fitacf')

FOR i = 0, N_ELEMENTS(files) - 1 DO BEGIN
    inp=FitOpen(files[i],/read)
    filename = 'directory2/'  + FILE_BASENAME(files[i], '.fitacf') + '.txt'
    OPENW, unit, filename, /GET_LUN
    ; do stuff
    FREE_LUN, unit, inp
ENDFOR

edited Jul 10 '19 at 15:38

answered Jul 07 '19 at 15:13

jitter

346
5
12

thank you for your response,much appreciated.I tried it and it only reads and writes the first file and issues this error "OPENW: File unit is already open. Unit: 5" – Japhtaline Mamabolo Jul 08 '19 at 07:03
I edited my answer. You have to make sure not to reopen an open file unit. – jitter Jul 08 '19 at 17:02
this is helpful but the code halts after processing the the 28th file and issues the error that ' OPENW: All available logical units are currently in use.' – Japhtaline Mamabolo Jul 08 '19 at 19:26
I think the error comes from the fitopen function but i do not know how to use FREE_LUN in that function to deallocate the logical units allocated by GET_LUN – Japhtaline Mamabolo Jul 09 '19 at 07:03
You are correct. I didn't notice that FitOpen does not free its LUNs. I added an edit again. Just add the "inp" variable to the FREE_LUN command. – jitter Jul 10 '19 at 15:39

reading and writing multiple data files in idl

1 Answers1