Creating a New Column with Initial Sequence Data

toddsmith77

I frequently concatenate multiple data tables into a single table and then add two new columns with initialized data. New Column 1 is called "Device" and is a constant that I enter. New Column 2 is called "Index" and is sequential data from 1 to x, where x is the last row in the data table. 

 

I would like to script the creation of these two new columns in the concatenated table, ideally with a Pop Up window to ask for the Device number.

 

Can anyone help me generate the script?

 

Thanks in advance!

txnelson

OK, this will get you started.  Your side of the bargain is that you need to read the Scripting Guide, so you can learn about all of the items in the script, and also learn about what kinds of things you can do to make the script exactly what you want.

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

nw = New Window( "Device Input",
	<<modal,
	Border Box( top( 10 ), bottom( 10 ), Left( 10 ), Right( 10 ),
		sides( 15 ),
		Lineup Box( N Col( 1 ),
			Spacer Box( size( 0, 10 ) ),
			Text Box( "Enter Device Name" ),
			dev = Text Edit Box( " ",
				<<set script( devText = dev << get text )
			)
		)
	)
);

If( nw["button"] == 1,
	dt << New Column( "Device",
		character,set each value( devText )
	);
	dt << New Column( "index", set each value( Row() ) );
);