JSL Column Name Search and Replace

[#1]

I have lot of column name and I want to rename my column name as below. How can I use Set name to replace all my columns in the table?

NAME [US] 1999 AMERICA POP US123 -> AMERICA US123 
NAME [US] 1999 AMERICA POP US456 -> AMERICA US456 
NAME [US] 1999 AMERICA POP US145 -> AMERICA US145

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
:Age << Set Name( "Time" );

Thanks.

[#2 · Accepted solution]

I think this should work, or at least it is close to it.

Names Default To Here( 1 );
dt = Current Data Table();

colList = dt << get column names( string );

For( i = 1, i <= N Items( colList ), i++,
	If( Left( colList[i], 14 ) == "NAME [US] 1999",
		Column( dt, colList[i] ) << set name( "AMERICA " || 
			Word( -1, colList[i], " " ) )
	)
);

[#3]

Works like a charm. Thank you!