341026_zh-CN

liliconcom

强制评估循环中的迭代器索引

大家好，

我正在尝试构建一个包含多个列表框的对话框窗口，每个列表框包含数据表中相应列的所有值。 在任何列表中选择一个或多个项目后，我希望根据该选择过滤剩余列表中的项目。 我已经实现了我刚才在下面描述的内容，但事情是这样的：如果我在循环中填充对话框窗口，而不是使用整数对列表子集索引进行硬编码，如下所示，则将使用当时 i 的当前值调用该函数执行而不是在循环中创建列表框时所采用的值。 我已阅读脚本指南并尝试了几个选项，包括 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>

高级统计建模自动化和脚本编写消费者和市场研究内容组织数据混合和清理数据探索和可视化大规模定制回复：在循环中强制评估迭代器索引

再次感谢。 我看起来我会坚持使用 eval(parse()) ，尽管它看起来确实有点像黑客。 但无论如何感谢您的见解！

回复：在循环中强制评估迭代器索引

如果存在 i==4 值，则必须有一个 i 未包装在 expr() 中。

Parse 与 EvalExpr 的权衡：

• parse 生成的字符串在编辑器中没有突出显示语法，但下一个维护代码的人可能会理解它。 在您的示例中，如果可能有 100 个串联，我可能会将 eval-parse 放入循环内。
• evaexpr 可能比 parse 更快，但对于一个小例子来说没有真正的区别。 如果您要通过串联构建一百万个字符的字符串，那么它可能很重要。 Evalexpr 需要一条注释来告诉下一个维护者它在做什么。

还有其他更强大且更难以解释和维护的表达式操作方法；我认为对于这个例子来说，其中任何一个都是合理的。 （arg、narg、head、insertinto、substituteinto、... 我每次都必须重新学习这些。）

回复：在循环中强制评估迭代器索引

我能做的就是这个，但这似乎...... 我猜是愚蠢的...

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>

回复：在循环中强制评估迭代器索引

感谢您尝试一下！ 不幸的是，我遇到了与过去相同的问题：当我在列表中进行选择时，如果 i （即 4），则使用当前值调用 filterSelected 函数，从而导致下标范围错误。

 

 

回复：在循环中强制评估迭代器索引

尝试这个

 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)，将其放入 i 循环内的 eval/evaexpr 内。

编辑：并且提出了很好的问题！