866764_es-ES

liliconcom

¿Cómo obtener el valor de las columnas duplicadas?

Hola a todos,

¿Cómo puedo obtener el valor de una columna A y colocarlo con el valor duplicado en la columna B?

Por ejemplo, estos son mis datos:

Columna A	Columna B
A	Manzana
	Manzana
B	Banana
	mango
C	mango

Este es el resultado esperado:

Columna A	Columna B
A	Manzana
A	Manzana
B	Banana
C	mango
C	mango

Automatización y scriptingVentanasRe: ¿Cómo obtener el valor de las columnas duplicadas?

Aquí hay una solución

Names Default To Here( 1 );

// Create the sample data table
dt = New Table( "Example",
	Add Rows( 5 ),
	New Column( "Column A",
		Character,
		"Nominal",
		Set Values( {"A", "", "B", "", "C"} )
	),
	New Column( "Column B",
		Character,
		"Nominal",
		Set Values( {"Apple", "Apple", "Banana", "Mango", "Mango"} )
	)
);

// Sort the table to allow non black Column A rows to be first
dt << Data Table( "Example" ) << Sort(
	By( :Column B, :Column A ),
	Order( Ascending, Descending ),
	Replace Table( 1 )
);

// Modify the Column A 
Hold = "";
For Each Row(
	If( :Column A != "",
		Hold = :Column A,
		Show( Lag( :column b ), :column b );
		If( Lag( :Column B ) == :Column B,
			:Column A = Hold
		);
	)
);

Re: ¿Cómo obtener el valor de las columnas duplicadas?

Aquí hay otro enfoque que utiliza la plataforma de tabulación . No se requiere ordenación.

dt = New Table( "Test", Add Rows( 5 ),
	New Column( "Column A", Character, "Nominal",
		Set Values( {"A", "", "B", "", "C"} ) ),
	New Column( "Column B", Character( 16 ), "Nominal",
		Set Values( {"Apple", "Apple", "Banana", "Mango", "Mango"} ) )
);
dtab = dt << Tabulate(
	Show Control Panel( 0 ), invisible,
	Add Table( Row Table( Grouping Columns( :Column A, :Column B ) ) )
);
dt2 = dtab << Make Into Data Table (invisible);
dtab << close window;
for (i = 1, i <= nrows(dt2), i++,
	one_key = dt2:Column B[i];
	one_value = dt2:Column A[i];

	rowset = dt << get rows where(dt:Column B == one_key & dt:Column A == "");
	dt:Column A[rowset] = one_value;
);
close(dt2, nosave);