pearl-data-export.ipf

Go to the documentation of this file.

#pragma rtGlobals=3// Use modern global access method and strict wave access.

variable 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)
};