639327_zh-TW

liliconcom

回复：Colonnes

我修改了以前的腳本以滿足您的新要求。

Names Default To Here( 1 );

dt = Current Data Table();

keep = {};
delete = {};

colNameList = dt << get column names( string );
numericNamesOnly = colNameList;
For( i = N Items( colNameList ), i >= 1, i--,
 colNameList[i] = Uppercase( colNameList[i] );
 If( Is Missing( Num( colNameList[i] ) ) == 1,
  numericNamesOnly[i] = ""
 );
);

While( N Items( colNameList ) > 0,
 If(
  Contains( colNameList[1], Uppercase( "Date début" ) ),
   found = Contains( numericNamesOnly, Word( 3, colNameList[1] ) );
   If( found > 0,
    Insert Into( keep, colNameList[1] );
    Insert Into( keep, numericNamesOnly[found] );
    Remove From( numericNamesOnly, found, 1 );
    Remove From( numericNamesOnly, 1, 1 );
    Remove From( colNameList, found, 1 );
    Remove From( colNameList, 1, 1 );
   ,
    Insert Into( delete, colNameList[1] );
    Remove From( colNameList, 1, 1 );
    Remove From( numericNamesOnly, 1, 1 );
   );,
  Is Missing( Num( colNameList[1] ) ) == 0,
   found = Contains( colNameList, Uppercase( "DATE début " ) || colNameList[1] );
   If( found > 0,
    Insert Into( keep, colNameList[1] );
    Insert Into( keep, dateDebutOnly[found] );
    Remove From( numericNamesOnly, found, 1 );
    Remove From( numericNamesOnly, 1, 1 );
    Remove From( colNameList, found, 1 );
    Remove From( colNameList, 1, 1 );
   ,
    Insert Into( delete, colNameList[1] );
    Remove From( colNameList, 1, 1 );
    Remove From( numericNamesOnly, 1, 1 );
   );,
  Remove From( colNameList, 1, 1 );
  Remove From( numericNamesOnly, 1, 1 );
 )
);

dt << delete columns(delete);

它不是漂亮的代碼，但它顯示了完成工作的直接方法。

注意：您的示例數據表中有錯誤。您有一個列名稱“Datd début 952”需要更改為“Date début 952”

回复：專欄

謝謝它有效！ 

我嘗試使用您的腳本，但最初我不知道如何表徵第二組的所有列，因為沒有類似的術語。

列

大家好，我有一張類似這樣的數據表：

 

數據庫由 2 組組成：

- 日期（“開始日期...")

- 與操作相關的數字

 

我的目標是刪除不在兩個列組交集中的列。

也就是說，我想用腳本自動刪除列：“開始日期 952”、“9950”

 

感謝您的幫助 ！

數據混合和清理回复：Colonnes

也謝謝你拯救我的一天。