252717_es-ES

liliconcom

Unir dos tablas haciendo coincidir el nombre de columna común

Hola,

Tengo dos tablas como se muestra a continuación.

Tabla 1 :

Nombre	Sección	Tema
Adán	A	Matemáticas
Beto	A	Ciencias
cris	B	inglés

 

Tabla 2:

 

Nombre	Sección	Puntaje
Adán	A	80
Beto	A	90
cris	B	84

 

Quiero unirme a ambas tablas en jsl y obtener la siguiente tabla de salida, pero no quiero dar nombres de columnas coincidentes explícitamente. Las columnas coincidentes serían las columnas con el mismo nombre de columna en ambas tablas. Las columnas coincidentes pueden variar. Pueden ser 2 (como en el ejemplo que se muestra) o 3 o más, pero la columna coincidente tendría el mismo nombre de columna.

producción:

Nombre	Sección	Tema	Puntaje
Adán	A	Matemáticas	80
Beto	A	Ciencias	90
cris	B	inglés	84

 

Gracias

Re: Unir dos tablas haciendo coincidir el nombre de columna común

Esto debería hacerlo:

 

DT1 = New Table("DT1",
 << Add Rows(3),
 << New Column("Name", character, Values({"Adam","Bob","Chris"})),
 << New Column("Section", character, Values({"A","A","B"})),
 << New Column("Subject", character, Values({"Math","Science","English"}))
);
DT2 = New Table("DT2",
 << Add Rows(3),
 << New Column("Name", character, Values({"Adam","Bob","Chris"})),
 << New Column("Section", character, Values({"A","A","B"})),
 << New Column("Score", numeric,continous, Values({80,90,84}))
);
LSTcols1 = DT1 << Get Column Names(string);
LSTcols2 = DT2 << Get Column Names(string);

STRjoinCols = "";

For(LVC=1,LVC<=N Items(LSTcols1),LVC++,
 STRcol = LSTcols1[LVC];
 If(
  Contains(LSTCols2,STRcol)
 ,
  If(
   STRjoinCols == ""
  ,
   STRjoinCols = ":"||STRcol||"==:"||STRcol
  ,
   STRjoinCols = STRjoinCols||", :"||STRcol||"==:"||STRcol
  );
 );
);
expr = Eval Insert(
 "\[
 DT3 = DT1 << Join(
    With( DT2 ),
    Merge Same Name Columns,
    Match Flag( 0 ),
    By Matching Columns( ^STRjoinCols^ ),
    Drop multiples( 0, 0 ),
    Include Nonmatches( 0, 0 ),
    Preserve main table order( 0 ),
    Output Table( "DT3" )
 );
 ]\"
);
Eval( Parse( expr ) );