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

Various ANSTO related fixes.

File:
1 edited

Legend:

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

    r700 r715  
    14571457         
    14581458        //lowQ menu 
    1459         absStr = pref+ThreeDigitString(low)+ext 
     1459        absStr = pref+RunDigitString(low)+ext 
    14601460        popNum = WhichListItem(absStr,lowQPopStr,";",0) 
    14611461        if(popNum == -1) 
     
    14661466         
    14671467        //medQ (a different list for the popup) 
    1468         absStr = pref+ThreeDigitString(med)+ext 
     1468        absStr = pref+RunDigitString(med)+ext 
    14691469        popNum = WhichListItem(absStr,medHiQPopStr,";",0) 
    14701470        if(popNum == -1) 
     
    14771477        //highQ (same pop list as medQ) 
    14781478        if(hi != 0) 
    1479                 absStr = pref+ThreeDigitString(hi)+ext 
     1479                absStr = pref+RunDigitString(hi)+ext 
    14801480                popNum = WhichListItem(absStr,medHiQPopStr,";",0) 
    14811481                if(popNum == -1) 
     
    14871487                PopupMenu popup_3,win=NSORT_Panel,mode=(1) 
    14881488        endif 
    1489 End 
    1490  
    1491 //make a three character string of the run number 
    1492 Function/S ThreeDigitString(num) 
    1493         Variable num 
    1494          
    1495         String numStr="" 
    1496         if(num<10) 
    1497                 numStr = "00"+num2str(num) 
    1498         else 
    1499                 if(num<100) 
    1500                         numStr = "0"+num2str(num) 
    1501                 else 
    1502                         numStr = num2str(num) 
    1503                 Endif 
    1504         Endif 
    1505         //Print "numstr = ",numstr 
    1506         return(numstr) 
    15071489End 
    15081490 
     
    18641846end 
    18651847 
    1866 //given a filename of a SANS data filename of the form 
    1867 //TTTTTnnn.SAn_TTT_Txxx 
    1868 //returns the prefix "TTTTT" as some number of characters 
    1869 //returns "" as an invalid file prefix 
    1870 // 
    1871 // NCNR-specifc, does not really belong here - but it's a beta procedure anyhow... 
    1872 // 
    1873 Function/S GetPrefixStrFromFile(item) 
    1874         String item 
    1875         String invalid = ""     //"" is not a valid run prefix, since it's text 
    1876         Variable num=-1 
    1877          
    1878         //find the "dot" 
    1879         String runStr="" 
    1880         Variable pos = strsearch(item,".",0) 
    1881         if(pos == -1) 
    1882                 //"dot" not found 
    1883                 return (invalid) 
    1884         else 
    1885                 //found, skip the three characters preceeding it 
    1886                 if (pos <=3) 
    1887                         //not enough characters 
    1888                         return (invalid) 
    1889                 else 
    1890                         runStr = item[0,pos-4] 
    1891                         return (runStr) 
    1892                 Endif 
    1893         Endif 
    1894 End 
    18951848 
    18961849//////////////////////// 
Note: See TracChangeset for help on using the changeset viewer.