Changeset 76 for sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/NCNR_Utils.ipf

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:

• sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/NCNR_Utils.ipf (modified) (1 diff)

sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/NCNR_Utils.ipf

@@ -1041 +1041 @@
         return newlist
 End
+
+// returns a list of raw data files in the catPathName directory on disk
+// - list is SEMICOLON-delimited
+//
+// does it the "cheap" way, simply finding the ".SAn" in the file name
+// = does not check for proper byte length.
+Function/S GetRawDataFileList()
+        
+        //make sure that path exists
+        PathInfo catPathName
+        if (V_flag == 0)
+                Abort "Folder path does not exist - use Pick Path button on Main Panel"
+        Endif
+        
+        String list=IndexedFile(catPathName,-1,"????")
+        String newList="",item=""
+        Variable num=ItemsInList(list,";"),ii
+        for(ii=0;ii<num;ii+=1)
+                item = StringFromList(ii, list  ,";")
+                if( stringmatch(item,"*.sa1*") )
+                        newlist += item + ";"
+                endif
+                if( stringmatch(item,"*.sa2*") )
+                        newlist += item + ";"
+                endif
+                if( stringmatch(item,"*.sa3*") )
+                        newlist += item + ";"
+                endif
+                //print "ii=",ii
+        endfor
+        newList = SortList(newList,";",0)
+        return(newList)
+End