Ignore:
Timestamp:
Apr 9, 2007 3:42:39 PM (15 years ago)
Author:
srkline
Message:

2nd pass of pulling out NCNR calls. Also cleared a lot of deadwood from the code, removing depricated functions that were mostly already commented out.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/NCNR_Utils.ipf

    r74 r76  
    10411041        return newlist 
    10421042End 
     1043 
     1044// returns a list of raw data files in the catPathName directory on disk 
     1045// - list is SEMICOLON-delimited 
     1046// 
     1047// does it the "cheap" way, simply finding the ".SAn" in the file name 
     1048// = does not check for proper byte length. 
     1049Function/S GetRawDataFileList() 
     1050         
     1051        //make sure that path exists 
     1052        PathInfo catPathName 
     1053        if (V_flag == 0) 
     1054                Abort "Folder path does not exist - use Pick Path button on Main Panel" 
     1055        Endif 
     1056         
     1057        String list=IndexedFile(catPathName,-1,"????") 
     1058        String newList="",item="" 
     1059        Variable num=ItemsInList(list,";"),ii 
     1060        for(ii=0;ii<num;ii+=1) 
     1061                item = StringFromList(ii, list  ,";") 
     1062                if( stringmatch(item,"*.sa1*") ) 
     1063                        newlist += item + ";" 
     1064                endif 
     1065                if( stringmatch(item,"*.sa2*") ) 
     1066                        newlist += item + ";" 
     1067                endif 
     1068                if( stringmatch(item,"*.sa3*") ) 
     1069                        newlist += item + ";" 
     1070                endif 
     1071                //print "ii=",ii 
     1072        endfor 
     1073        newList = SortList(newList,";",0) 
     1074        return(newList) 
     1075End 
Note: See TracChangeset for help on using the changeset viewer.