341026_zh-TW

liliconcom

在循環中強制評估迭代器索引

大家好，

我正在嘗試用幾個列錶框構建一個對話框窗口，每個列錶框包含數據表中相應列的所有值。 在選擇任何一個列表中的一個或多個項目之後，我希望其餘列表中的項目根據該選擇進行過濾。 我已經實現了下面剛剛描述的內容，但是事情是這樣的：如果我以循環方式填充對話框窗口，而不是像下面這樣用整數對列表子集索引進行硬編碼，則函數的調用時間為執行，而不是在循環中創建列錶框時使用的值。 我已經通讀了腳本指南，並嘗試了幾個選項，包括Eval（Eval Expr（Expr（）））和Eval Substitute（Expr（），Expr（））），但我無法使其正常工作。 我現在打算將整個表達式構建為循環中的長字符串，並對其進行Eval（Parse（））的處理，但這似乎很愚蠢。 有人可以在這里為我提供正確的語法嗎？

謝謝，

約翰

 

Names Default To Here( 1 );

If( !Namespace Exists( "fq" ),
 New Namespace(
  "fq"
 )
);

dt = New Table( "Sample data",
 Add Rows( 9 ),
 New Column( "id",
  Character,
  "Nominal",
  Set Values( {"a", "a", "a", "b", "b", "b", "c", "c", "c"} )
 ),
 New Column( "value",
  Character,
  "Nominal",
  Set Values( {"A", "B", "C", "D", "E", "F", "G", "H", "I"} )
 ),
 New Column( "val2",
  Character,
  "Nominal",
  Set Values( {"one", "two", "three", "one", "two", "three","one", "two", "three"} )
 )
);

filterSelected = Function( {dt, values, index}, 
 /*
 Sorts displayed values in all list boxes based on selection
 */
 
 columns = fq:filterColumns;
 filters = fq:filters;
 selectedColum = Remove From( columns, index )[1];
 selctedFilter = Remove From( filters, index )[1];
 rows = dt << Get rows where( Contains( values, as Column( dt, selectedColum ) ) );
 
 // If nothing is selcted, all values should be chosen
 If(Length(values)==0,
  rows = dt << get rows where(!Ismissing(As Column(dt, selectedColum)))
 );

 // Set list items according to selection
 Local( {j = 1},
  For( j = 1, j <= N Items( filters ), j++,
   filters[j] << Set items( Column( dt, columns[j] )[rows] )
  )
 );
);

getSelection = Function( {},
 Local( {j =1},
  For( j=1, j <= N Items(fq:filters), j++,
   print(fq:filterColumns[j], fq:filters[j] << get items());
  );
 );
);

nestedFilters = Function( {filtercolumns},
 fq:filtercolumns = filtercolumns;
 dialog = New Window( "Fetch rows matching:",
  Show Menu( 0 ),
  show toolbars( 0 ),
  Border Box( Top( 20 ), Bottom( 20 ), Left( 10 ), Right( 10 ),
   V List Box(
    Align( right ),
    filter_boxes = V List Box(),
    H List Box(
     ok_button = Button Box( "OK" ),
     cancel_button = Button Box( "Cancel", dialog << close window )
    )
   )
  ),
  ok_button << Set function(
   getSelection();
   dialog << close window;
  )
 );
   
 fq:filters = {};
 fq:all_rows = {};
 //for(i=1, i<=N Items(filtercolumns), i++,
 filter_boxes << append( Text Box( fq:filtercolumns[1], <<SET font="" style=""></SET>

腳本編寫回复：循環中強制評估迭代器索引

嘗試這個

 for( i = 1, i <= N Items( filtercolumns ), i++,
  eval(
   evalexpr(
    filter_boxes << append( Text Box( fq:filtercolumns[Expr( i )], <<SET font="" style=""></SET>

我使用“ 1”的情況，將1更改為expr（i），將其放在eval / evalexpr中，在i循環中。

 

回复：循環中強制評估迭代器索引

謝謝您的幫助！ 不幸的是，我遇到了與過去相同的問題：當我在列表中進行選擇時，如果i（即4）使用當前值調用filterSelected函數，導致下標範圍錯誤。

 

 

回复：循環中強制評估迭代器索引

我能做的就是這個，但這似乎... 我猜很傻...

expression = "";
 for( i = 1, i <= N Items( fq:filtercolumns ), i++,
   expression = expression ||
     "filter_boxes << append( Text Box( fq:filtercolumns[" || char(i) || "], <<SET font="" style=""></SET>