382674_zh-TW

liliconcom

合併來自多個表的數據

我正在嘗試通過合併兩個表（或更多表）中的數據來創建新的主表。 作為示例，我嘗試將下面的表A和表B合併到表AB中作為結果：

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

關於如何通過腳本或Tables函數執行此操作的任何想法？

數據表腳本編寫回复：合併來自多個表的數據

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

 

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);

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

您還可以使用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>

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

@jthi和@brady_brady感謝您的答复。 我確定解決方案可以正常工作，但是我想先對其進行總結，如果符合我的意圖，我會在這裡答复。 感謝幫助！ 保持聯繫。

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

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

 

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

 

Names Default To Here(1);

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