Ignore:
Timestamp:
Feb 14, 2018 2:44:22 PM (5 years ago)
Author:
srkline
Message:

major changes to how the transmission panel functions. Now the transmission file pop selects all of the related sample files (using group_id) to allow easier batch calculation of the transmission.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_Utilities_General.ipf

    r1079 r1084  
    104104//    really not used as intended anymore. 
    105105// 
    106 // *** this appears to be unused, in favor of V_CleanupData_w_Progress(0,1)  ********** 
    107106// 
    108107Function V_KillNamedDataFolder(fname) 
     
    14251424 
    14261425 
    1427  
     1426// match BOTH the intent and purpose 
     1427// -- needed to identify the SAMPLE + SCATTERING data files. 
     1428// 
     1429// 
     1430// method is the method to use to find the file (currently ignored, CAT is always used) 
     1431// 0 = (default) is to use the file catalog (= fastest) 
     1432// 1 = Grep (not terribly slow) 
     1433// 2 = read every file (bad choice) 
     1434// 
     1435Function/S V_getFileIntentPurposeIDList(intent,purpose,targetID,method) 
     1436        String intent,purpose 
     1437        Variable targetID,method 
     1438         
     1439        Variable ii,num 
     1440        String list="",item="",fname,newList 
     1441 
     1442//      // read every file... 
     1443//      if(method == 2) 
     1444//              PathInfo catPathName 
     1445//              String path = S_path 
     1446//              newList = V_GetRawDataFileList() 
     1447//              num=ItemsInList(newList) 
     1448//               
     1449//              for(ii=0;ii<num;ii+=1) 
     1450//                      item=StringFromList(ii, newList , ";") 
     1451//                      fname = path + item 
     1452//                      purpose = V_getReduction_purpose(fname) 
     1453//                      if(cmpstr(purpose,testStr) == 0) 
     1454//                              list += item + ";" 
     1455//                      endif 
     1456//              endfor   
     1457//      endif 
     1458//       
     1459//      // use Grep 
     1460//      if(method == 1) 
     1461//              newList = V_GetRawDataFileList() 
     1462//              num=ItemsInList(newList) 
     1463//              for(ii=0;ii<num;ii+=1) 
     1464//                      item=StringFromList(ii, newList , ";") 
     1465//                      Grep/P=catPathName/Q/E=("(?i)"+testStr) item 
     1466//                      if( V_value )   // at least one instance was found 
     1467//      //                              Print "found ", item,ii 
     1468//                              list += item + ";" 
     1469//                      endif 
     1470//              endfor   
     1471//       
     1472//      else 
     1473        // get the list from the file catalog 
     1474         
     1475                WAVE/T fileNameW = root:Packages:NIST:VSANS:CatVSHeaderInfo:Filenames 
     1476                WAVE/T purposeW = root:Packages:NIST:VSANS:CatVSHeaderInfo:Purpose 
     1477                WAVE/T intentW = root:Packages:NIST:VSANS:CatVSHeaderInfo:Intent 
     1478                WAVE groupIDW = root:Packages:NIST:VSANS:CatVSHeaderInfo:group_id 
     1479                 
     1480                Variable np = numpnts(purposeW)         //fileNameW is LONGER - so don't use numpnts(fileWave) 
     1481                for(ii=0;ii<np;ii+=1) 
     1482                        if(cmpstr(purposeW[ii],purpose)==0 && cmpstr(intentW[ii],intent)==0 && groupIDW[ii]==targetID)          //this is case-INSENSITIVE (necessary, since the case is unknown) 
     1483                                list += fileNameW[ii] + ";" 
     1484                        endif            
     1485                endfor 
     1486                 
     1487                List = SortList(List,";",0) 
     1488         
     1489        return(list) 
     1490end 
     1491 
     1492 
     1493 
     1494 
     1495 
Note: See TracChangeset for help on using the changeset viewer.