Rename column using first row's value

[#1]

Hi

I'm trying to name my column names based on the string word in the first row of every other column as per described in the picture.

My script can't seem to work. I am finding a way to get the string value in the first row but doesn't seem to work. Can you help me out?

dt = Current Data Table();

newname = dt << select rows (1) << print ;

For( i = 2, i <= N Cols( dt ), i=i+2,

Column( dt, i+1 ) << Set Name( newname );

);

　

　

　

[#2 · Accepted solution]

Try this script:

Names Default to Here( 1 );

dt = Current Data Table()

For( c = 2, c < N Col( dt ), c += 2,
	Column( dt, c+1 ) << Set Name( Column( dt, c )[1] );
);