Renaming columns with loop

[#1]

Hi,

I am trying to rename few columns. Basically I want to append "OFL" character at the end of original column name.

I trried this script but no success.

dt = Current Data Table();
For( i = 25, i <= N Cols( dt ), i++,
newname = :Column Name( dt, i )||"OFL";
Column( dt, i ) << Set Name( newname );
);

[#2 · Accepted solution]

dt = Current Data Table();
For( i = 25, i <= N Cols( dt ), i++,
	cName = Column(dt,i) << Get Name;
	newname = cName|| "OFL";
	Column( dt, i ) << Set Name( newname );
);

[#3]

Thanks David. It works fine.

[#4]

Just in case you want to do this with a second data table, here's how:

How-to-rename-columns-using-a-second-data-table

I use this a lot now since #TXNelson showed me how to do this!