29 lines
754 B
Igor
29 lines
754 B
Igor
#pragma rtGlobals=3 // Use modern global access method and strict wave access.
|
|
|
|
function export_otf()
|
|
// export OTF folders to text files
|
|
|
|
string objname
|
|
variable index= 0
|
|
|
|
setdatafolder root:
|
|
dfref parentfolder = getdatafolderdfr()
|
|
string filename
|
|
|
|
do
|
|
objname = GetindexedObjNameDFR(parentfolder, 4, index)
|
|
if (strlen(objname) > 0)
|
|
if (cmpstr(StringFromList(0, objname, "_"), "otf") == 0)
|
|
setdatafolder parentfolder
|
|
setdatafolder $objname
|
|
wave ringcurrent,photonenergy,current_ch1,current_ch2
|
|
filename = objname + ".txt"
|
|
Save/G/M="\r\n"/W/P=pearl_explorer_filepath photonenergy,current_ch1,current_ch2,ringcurrent as filename
|
|
endif
|
|
index += 1
|
|
else
|
|
break
|
|
endif
|
|
while(1)
|
|
end
|