PEARL Procedures Igor procedures for the analysis of PEARL data

- Main Page
- Related Pages
- Packages
- Namespaces
- Files

- File List
- Globals

pearl-data-export.ipf
Go to the documentation of this file.
1 #pragma rtGlobals=3// Use modern global access method and strict wave access.
2
3 variable export_otf(){
4 // export OTF folders to text files
5
6 string objname
7 variable index= 0
8
9 setdatafolder root:
10 dfref parentfolder = getdatafolderdfr()
11 string filename
12
13 do
14 objname = GetindexedObjNameDFR(parentfolder, 4, index)
15 if (strlen(objname) > 0)
16 if (cmpstr(StringFromList(0, objname, "_"), "otf") == 0)
17 setdatafolder parentfolder
18 setdatafolder $objname
19 wave ringcurrent,photonenergy,current_ch1,current_ch2
20 filename = objname + ".txt"
21 Save/G/M="\r\n"/W/P=pearl_explorer_filepath photonenergy,current_ch1,current_ch2,ringcurrent as filename
22 endif
23 index += 1
24 else
25 break
26 endif
27 while(1)
28 };
29
export_otf
variable export_otf()
Definition: pearl-data-export.ipf:3