Ignore:
Timestamp:
Jul 6, 2010 5:17:53 PM (12 years ago)
Author:
ajj
Message:

Various ANSTO related fixes.

File:
1 edited

Legend:

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

    r708 r715  
    398398        return(deadtime) 
    399399End 
     400 
     401//make a three character string of the run number 
     402//Moved to facility utils 
     403Function/S RunDigitString(num) 
     404        Variable num 
     405         
     406        String numStr="" 
     407        if(num<10) 
     408                numStr = "00"+num2str(num) 
     409        else 
     410                if(num<100) 
     411                        numStr = "0"+num2str(num) 
     412                else 
     413                        numStr = num2str(num) 
     414                Endif 
     415        Endif 
     416        //Print "numstr = ",numstr 
     417        return(numstr) 
     418End 
     419 
     420//given a filename of a SANS data filename of the form 
     421//TTTTTnnn.SAn_TTT_Txxx 
     422//returns the prefix "TTTTT" as some number of characters 
     423//returns "" as an invalid file prefix 
     424// 
     425// NCNR-specifc, does not really belong here - but it's a beta procedure anyhow... 
     426// 
     427Function/S GetPrefixStrFromFile(item) 
     428        String item 
     429        String invalid = ""     //"" is not a valid run prefix, since it's text 
     430        Variable num=-1 
     431         
     432        //find the "dot" 
     433        String runStr="" 
     434        Variable pos = strsearch(item,".",0) 
     435        if(pos == -1) 
     436                //"dot" not found 
     437                return (invalid) 
     438        else 
     439                //found, skip the three characters preceeding it 
     440                if (pos <=3) 
     441                        //not enough characters 
     442                        return (invalid) 
     443                else 
     444                        runStr = item[0,pos-4] 
     445                        return (runStr) 
     446                Endif 
     447        Endif 
     448End 
     449 
     450 
    400451 
    401452 
Note: See TracChangeset for help on using the changeset viewer.