Loading .csv

Function Loadsmps() // Loads smps data
 
// Prompts to select folder into which data is loaded
String PathToFldr="",CtrlName="",PromptStr="Select folder to load smps data into:",CurrentFldr=getdatafolder(1) // variables for Browse4Folder
Browse4Folder(PathToFldr,CtrlName,PromptStr,CurrentFldr)    // prompts user to select an experiment
 
// Get folder with data in it
    NewPath/M="Select folder containing smps data:"/O/Q pathname    // prompts user to select path to data folder
    PathInfo pathname
// Abort if cancel is pressed
    If(V_flag==0)       
    Abort "proceedure cancelled"    
    EndIf
// Make matrix for smps data
    Make/o/n=(0,175) smpsDataMatrix
// Strings and Variables 
Variable numfolders,n, subdirs, numfiles, filenum, refnum   // variables
String folderlist, filename, name, currentfolder            //    strings
// Counts number of files in folder         
NumFiles=ItemsInList(IndexedFile(pathname,-1,".csv"))                               // # files in folder    , specify extensions e.g. ".txt"
    
    For(filenum=0;filenum<numfiles;filenum+=1) // loops through each file name  
        filename=s_path+StringFromList(filenum,IndexedFile(pathname,-1,".csv")) // get full path to data file   , specify extensions e.g. ".txt"
        If(Stringmatch(FileName,"*pdd*")==1)
            Open /R/P=pathname/Z refNum as filename // open
            FStatus refNum  // check there is data in file
                If(V_logEOF>10) // specify minimum file size to load e.g. >10bytes
                    Load_smps_File(filename, refnum)    // calls function to load file  // unique function for specific file format
                    Wave  Temp_smpsDataMatrix0  
                    //  add loaded waves to loaded data
                    InsertPoints DimSize(smpsDataMatrix,0),DimSize(Temp_smpsDataMatrix0,0), smpsDataMatrix
                    smpsDataMatrix[DimSize(smpsDataMatrix,0)-DimSize(Temp_smpsDataMatrix0,0),*][]=Temp_smpsDataMatrix0[p-DimSize(smpsDataMatrix,0)+DimSize(Temp_smpsDataMatrix0,0)][q]
                    currentfolder=GetDataFolder(1)          // root folder for experiment   
                Endif   // end data to folder allocation
        EndIf
        
    EndFor          // end loop through files of a dp
    
    Close/A             // close open files
        
    Killwaves Temp_smpsDataMatrix0
//  Do additional analytsis on smps data
    Processsmps()   // adds a time wave
 
End
 
Function Load_smps_File(filename, refnum)   // load single smps file
    String filename
    Variable refnum
    print "Loading: " + filename
    loadwave/v={"\t ","",0,1}/q/a/n=Temp_smpsDataMatrix/m/o/j/k=1/l={0,4,0,0,0} filename    // loads smps data as a matrix
End
 
 
Function Browse4Folder(PathToFldr,CtrlName,PromptStr,CurrentFldr)   // based on mg code from htdma toolkit
String PathToFldr   // path to data folder
String PromptStr    // Prompt text in data browser
String CurrentFldr // current data folder
String CtrlName
 
variable exit=0 // stops trying when exit reaches 6
do
    string/g BrowserList
    string /g TempFldr=CurrentFldr
    variable/g Flag
    execute "CreateBrowser prompt=\""+PromptStr+"\", select=tempfldr"   // prompt for file
    killstrings/z tempfldr
    svar BrowserList=s_browserlist
    nvar Flag=V_Flag
    // print browser_list
    if (!Flag)
            PathToFldr="cancelled"      
            break
        endif
        
        if (itemsinlist(BrowserList)==1)
            if (stringmatch("root:ROOT;", BrowserList))     //data browser returns strange path if root is selected
                BrowserList="root"
            endif
            PathToFldr=stringfromlist(0,BrowserList)+":"
            if(DataFolderExists(PathToFldr))
                break
            else
                doalert 0, "you must select a data folder, not a wave, string or variable! => try again"
            endif
        else
            doalert 0, "none or multiple data folders were selected => try again"
        endif
        exit+=1     
    while (exit<6)      //maximum six attempts
End