636384_zh-CN

liliconcom

日期/列

大家好，

 

我有几个专栏：

1-“开始日期”列

2-“结束日期”列

 

 

 

 

通常，属于组 (2) 的每一列也应属于组 (1)，反之亦然。 所以我们应该在两组中有相同数量的列。

但是，属于第 1 组的列不属于第 2 组，反之亦然。

 

例子: “开始日期 9899”，但“结束日期 9899”列不存在。

 

目标是让这两组相交，以便两组中有相同的列。

 

我受到以下代码的启发：

Names Default To Here(1);

dt = Current Data Table();

// build 
aa_duree = Associative Array();
aa_nonduree = Associative Array();

For Each({col_name}, dt << Get Column Names("String"),
 If(Word(1, col_name) == "date début",
  aa_duree[Word(-1, col_name)] = col_name;
 , !IsMissing(Regex(col_name, "")),
  aa_nonduree[col_name] = 1;
 ,
  continue()
 );
);
show(aa_duree);
show(aa_nonduree);

aa_duree_copy = aa_duree;
aa_duree_copy << Intersect(aa_nonduree);
cols_to_keep = Insert(aa_duree_copy << get keys, aa_duree_copy << get values);

aa_duree_copy2 = aa_duree;
aa_nonduree_copy = aa_nonduree;
aa_duree_copy2 << remove(aa_nonduree);
aa_nonduree_copy << remove(aa_duree);
cols_to_remove = Insert(aa_nonduree_copy << get keys, aa_duree_copy2 << get values);

show(cols_to_keep, cols_to_remove);

数据访问回复：日期/colonne

您提供的示例脚本将不起作用，因为 Word(1, col_name) 只会返回字符串的第一个作品，而您正在将它与两个单词进行比较。 因此 if 语句将始终转到 else 语句。 可能还有其他问题，但这至少是一个问题。 您可以尝试将 Words 例如更改为 Starts With() https://www.jmp.com/support/help/en/17.0/#page/jmp/character-functions-2.shtml?os=win&source=application#ww2489516 . 还要确保比较字符串时大小写正确

回复：日期/colonne

这是我解决这个问题的老派方法

Names Default To Here( 1 );

dt = Current Data Table();

keep = {};
delete = {};

colNameList = dt << get column names( string );
For Each( {col, i}, colNameList, colNameList[i] = Uppercase( col ) );

While( N Items( colNameList ) > 0,
 If(
  Contains( colNameList[1], Uppercase( "Date début" ) ),
   found = Contains( colNameList, Substitute( colNameList[1], Uppercase( "début" ), "FIN" ) );
   If( found > 0,
    Insert Into( keep, colNameList[1] );
    Insert Into( keep, colNameList[found] );
    Remove From( colNameList, found, 1 );
    Remove From( colNameList, 1, 1 );
   ,
    Insert Into( delete, colNameList[1] );
    Remove From( colNameList, 1, 1 )
   );,
  Contains( colNameList[1], Uppercase( "Date fin" ) ),
   found = Contains( colNameList, Substitute( colNameList[1], "FIN", Uppercase( "début" ) ) );
   If( found > 0,
    Insert Into( keep, colNameList[1] );
    Insert Into( keep, colNameList[found] );
    Remove From( colNameList, found, 1 );
    Remove From( colNameList, 1, 1 );
   ,
    Insert Into( delete, colNameList[1] );
    Remove From( colNameList, 1, 1 )
   );,
  Remove From( colNameList, 1, 1 )
 )
);

show( keep, delete );

回复：日期/列

太好了，感谢您的帮助！