For Loop for Moving Data to New Columns

Raquel

Is there an easier way, possibly with a For loop, to get data from multiple "cells" and move it to a new column? Otherwise, I was going to write the script similar to below:

 

 

dt<<New Column( "Demand Parameter", Character, "Nominal");
dt<<New Column( "Demand Parameter Value", Character, "Nominal");
Column(dt, "Demand Parameter")[9] = Column(dt, "Column 2")[7];
Column(dt, "Demand Parameter Value")[9] = Column(dt, "Column 2")[8];
Column(dt, "Demand Parameter")[10] = Column(dt, "Column 3")[7];
Column(dt, "Demand Parameter Value")[10] = Column(dt, "Column 3")[8];
 
//.... continue incrementing until finishing with the following
 
Column(dt, "Demand Parameter")[47] = Column(dt, "Column 40")[7];
Column(dt, "Demand Parameter Value")[47] = Column(dt, "Column 40")[8];

 

Raquel

Thanks for replying to my question. Originally "Column 2" wasn't the second column... and "Column 40" wasn't the 40th but I rearranged my srcpit so that it is. I couldn't get your script to work but I did decide to use transpose.  The following works as I intended. Thanks for the idea!

 

dt = Current Data Table();
collist = dt << get column names;
dt << Select Rows( {7,8} );
dt<<Transpose(
columns( eval(collist) ),
Source Label Column( "Label" ),
Transpose selected rows only( 1 ),
Output Table( "Transpose Demands" ));
dt2 = Data Table("Transpose Demands");
dt2 << Add Rows(7,0);
dt << Update( With( dt2 ));
Close(Data Table( "Transpose Demands" ), No Save);
dt << Delete Columns( "Label" );