382674_zh-TW

liliconcom

合併多個表中的數據

我正在嘗試透過組合兩個表（或更多）中的資料來建立一個新的主表。例如，我嘗試將下面的表 A 和表 B 合併到表 AB 中，結果如下：

基本上，表 A 和 B 在「開始」和「結束」中都有相似的列，但每行的範圍不同。我想做的是將兩個表中從起始距離 1 到 20 的段落組合起來，並將它們組合到表 AB 中。

知道如何透過腳本或表函數來做到這一點嗎？

進階統計建模自動化和腳本編寫內容組織大規模客製化分享和交流成果回复：合併來自多個表的數據

經過一番思考，我找到了一種交互式的方法。 我沒有描述它，而是附上了一段我製作的討論該過程的簡短視頻。 交互式方法的優點是無論要合併多少個表，它的工作量都是相同的（並不多）。 在我的示例中，我使用 3。 缺點是需要一些非直觀的排序；如果您在排序時出錯，您將得到不正確的結果。

 

運行此腳本以生成我在示例中使用的表：

 

Names Default To Here(1);

dta = new table("A",
          <<ADDROWS></ADDROWS>

回复：合併來自多個表的數據

@jthi & @brady_brady感謝您的回复。 我確信提供的解決方案有效，但我想先消化它們，如果它們符合我的意圖，我會在這裡回复。 感謝幫助！ 保持聯繫。

回复：合併來自多個表的數據

編輯：我重寫了它以使其更短、更高效並且沒有我原始響應的基於整數的限制。 調整代碼以處理 2 個以上的源表也很簡單。

////

 

 

您還可以通過使用 Loc Sorted() 的 JSL 版本的表查找來解決此問題。

 

乾杯，

布雷迪

 

Names Default To Here( 1 );

dt1 = New Table( "Table A",
 Add Rows( 4 ),
 Compress File When Saved( 1 ),
 New Column( "Start", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [1, 5, 10, 15] ) ),
 New Column( "End", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [5, 10, 15, 20] ) ),
 New Column( "Name", Character, "Nominal", Set Values( {"A", "B", "C", "D"} ) )
);

dt2 = New Table( "Table B",
 Add Rows( 5 ),
 Compress File When Saved( 1 ),
 New Column( "Start", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [1, 4, 8, 12, 16] ) ),
 New Column( "End", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [4, 8, 12, 16, 20] ) ),
 New Column( "Name", Character, "Nominal", Set Values( {"X1", "X2", "X3", "X4", "X5"} ) )
);

//////////// Begin processing here...
ends = Matrix( Associative Array( Concat( As List( dt1:End << get values ), As List( dt2:End << get values ) ) ) << get keys );
starts = [1] |/ ends[1 :: (N Row( ends ) - 1)];
dt3 = As Table( starts || ends, <<COLUMN names=""></COLUMN>

 

回复：合併來自多個表的數據

這可以讓您了解如何使用腳本執行此操作：

 

Names Default To Here(1);

dt1 = New Table("Table A",
 Add Rows(4),
 Compress File When Saved(1),
 New Column("Start",
  Numeric,
  "Continuous",
  Format("Best", 12),
  Set Values([1, 5, 10, 15])
 ),
 New Column("End",
  Numeric,
  "Continuous",
  Format("Best", 12),
  Set Values([5, 10, 15, 20])
 ),
 New Column("Name", Character, "Nominal", Set Values({"A", "B", "C", "D"}))
);

dt2 = New Table("Table B",
 Add Rows(5),
 Compress File When Saved(1),
 New Column("Start",
  Numeric,
  "Continuous",
  Format("Best", 12),
  Set Values([1, 4, 8, 12, 16])
 ),
 New Column("End",
  Numeric,
  "Continuous",
  Format("Best", 12),
  Set Values([4, 8, 12, 16, 20])
 ),
 New Column("Name",
  Character,
  "Nominal",
  Set Values({"X1", "X2", "X3", "X4", "X5"})
 )
);

//create collection table
dt_final = New Table("Table A-B",
 Compress File When Saved(1),
 New Column("Start", Numeric, "Continuous", Format("Best", 12)),
 New Column("End", Numeric, "Continuous", Format("Best", 12)),
 New Column("Name", Character, "Nominal")
);

For Each Row(dt1,
 startVal = Column(dt1, "Start")[Row()];
 endVal = Column(dt1, "End")[Row()];
 nameVal = Column(dt1, "Name")[Row()];
 r_dt2 = dt2 << get rows where(startVal <= :Start <= endVal | startVal <= :End <= endVal);
 For(i = 1, i <= N Items(r_dt2), i++,
  newEnd = Min(Column(dt2, "End")[r_dt2[i]], endVal);
  newName = nameVal || " " ||Column(dt2, "Name")[r_dt2[i]];
  newRow = EvalList({startVal, newEnd, newName});
  dt_final << Add rows({Start = newRow[1], End = newRow[2], Name = newRow[3]});
  startVal = newEnd;
  endVal= Max(Column(dt2, "End")[r_dt2[i]], endVal);
 );
);

Close(dt1, no save);
Close(dt2, no save);