Ignore:
Timestamp:
May 30, 2008 2:19:48 PM (14 years ago)
Author:
srkline
Message:

corrections to ILL R/W and utilities for parsing run numbers

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/SANS/Reduction/ILL_Utils.ipf

    r371 r376  
    245245        String numStr="" 
    246246         
    247          
    248247        numStr = num2str(num) 
     248        // pad to 6 characters 
     249        switch(strlen(numstr))  // numeric switch 
     250                case 6:         // execute if case matches expression 
     251                        break                                           // exit from switch 
     252                case 5: 
     253                        numStr = "0"+numStr 
     254                        break 
     255                case 4: 
     256                        numStr = "00"+numStr 
     257                        break 
     258                case 3: 
     259                        numStr = "000"+numStr 
     260                        break 
     261                case 2: 
     262                        numStr = "0000"+numStr 
     263                        break 
     264                case 1: 
     265                        numStr = "00000"+numStr 
     266                        break                                                                                            
     267                default:                                                        // optional default expression executed 
     268        endswitch 
    249269         
    250270//      Print "numstr = ",numstr 
     
    275295                        //find the run number, if it exists as a three character string 
    276296                        testStr = GetRunNumStrFromFile(item) 
    277                          
     297                        runFound = cmpstr(numStr,testStr) 
     298                        if(runFound == 0) 
    278299                                partialName = FindValidFileName(item) 
    279300                                if(strlen(partialName) != 0)            //non-null return from FindValidFileName() 
     
    283304                                        if(isRaw) 
    284305                                                //stop here 
    285                                                  
    286                                                 print fullname 
     306                                                //print fullname 
    287307                                                return(fullname) 
    288308                                        Endif 
    289309                                Endif 
    290                          
     310                        Endif 
    291311                Endif 
    292312                ii+=1 
Note: See TracChangeset for help on using the changeset viewer.