218711_es-ES

liliconcom

Re: Necesito ayudar a usar la función Split

Aquí hay un script simple que usaría para crear la tabla que desea.

Names Default To Here( 1 );
dt = Current Data Table();
colNames = dt << get column names( string );
Summarize( dt, fruitGroups = by( :Fruit ) );

dt << select where( :Fruit == fruitGroups[1] );
dtTrans = dt << subset( selected rows( 1 ), selected columns( 0 ) );

For( i = 2, i <= N Items( fruitGroups ), i++,
 dt << select where( :Fruit == fruitGroups[i] );
 dtTemp = dt << subset( selected rows( 1 ), selected columns( 0 ) );
 For( k = 1, k <= N Cols( dtTemp ), k++,
  Column( dtTemp, k ) << set name( colNames[k] || " " || Char( i ) )
 );
 dtTrans << Update( With( Data Table( "Subset of Original table 2" ) ) );
 Close( dtTemp, nosave );
);

Re: Necesito ayudar a usar la función Split

Hola,

Gracias por el guión. Si bien funciona de manera sorprendente para la tabla que proporcioné, tengo dificultades para que funcione con mi conjunto de datos real. Se adjunta el conjunto de datos y debajo está el código modificado. ¿Podría por favor echar un vistazo?

 

Names Default To Here( 1 );
dt = Current Data Table();
colNames = dt << get column names( string );
Summarize( dt, slotGroups = by( :Slot ) );

dt << select where( :Slot == slotGroups[1] );
dtTrans = dt << subset( selected rows( 1 ), selected columns( 0 ) );

For( i = 2, i <= N Items( slotGroups ), i++,
 dt << select where( :Slot == slotGroups[i] );
 dtTemp = dt << subset( selected rows( 1 ), selected columns( 0 ) );
 For( k = 1, k <= N Cols( dtTemp ), k++,
  Column( dtTemp, k ) << set name( colNames[k] || " " || Char( i ) )
 );
 dtTrans << Update( With( Data Table( "Subset of Original table 2" ) ) );
 Close( dtTemp, nosave );
);

 

 

 

Re: Necesito ayudar a usar la función Split

Vaya ... mi error, aquí hay un script corregido

Names Default To Here( 1 );
dt = Current Data Table();
colNames = dt << get column names( string );
Summarize( dt, slotGroups = by( :Slot ) );

dt << select where( :Slot == slotGroups[1] );
dtTrans = dt << subset( selected rows( 1 ), selected columns( 0 ) );

For( i = 2, i <= N Items( slotGroups ), i++,
 dt << select where( :Slot == slotGroups[i] );
 dtTemp = dt << subset( selected rows( 1 ), selected columns( 0 ) );
 For( k = 1, k <= N Cols( dtTemp ), k++,
  Column( dtTemp, k ) << set name( colNames[k] || " " || Char( i ) )
 );
 dtTrans << Update( With( dtTemp ) );
 Close( dtTemp, nosave );
);

Re: Necesito ayudar a usar la función Split

Funciona como un encanto, muchas gracias.

Necesito ayuda para usar la función Split

¿Alguien puede proporcionar instrucciones para modificar la tabla original adjunta para llegar a la mesa final? Supongo que necesito usar la función Dividir y luego mover manualmente las columnas, pero la tabla que tengo a mano tiene varias filas y columnas, por lo que moverlas manualmente no es una opción. ¿Algún truco que se pueda hacer aquí?