Associative Array - splitting keys

[#1]

Hi,

I've a data table, looks something like this. I want to split each test and assign % values.

I am trying to create an Associative Array and allocate values to each tests but the results are incorrect. I am not sure what I missed

The final associative array should contain the following.

new_aa = [" Currents_A" => 0.003 " Currents_B" => 0.003, " Currents_C" => 0.003, "Volts_A" => 0.003, "Votls_B" => 0.003, "Volts_1" => 0.002,..................., "Currents_0" => 0.001] 

Here's the jsl code. Any suggestions

Names Default To Here( 1 );
dt = Data Table( "dt" );
aa = Associative Array( Column( dt, 1 ) << get values, Column( dt, 3 ) << get values );

fail_test = fa << Get Keys;


split_tests = {};
For Each( {test, index}, fail_test,
	Insert Into( split_tests, Words( test, "," ) )

);
For( i = 1, i <= N Items( split_tests ), i++,
	new_aa = Associative Array( split_tests, If( Contains( aa, split_tests[i] ), aa[split_tests[i]] ) )
	
);
show(new_aa)

[#2 · Accepted solution]

Here is what I would do to get the Associative Array you are looking for

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

// Get all columns
allOrigColumnsList = dt << get column names( string );

// Move individual elements of the column, to individual columns
dt << Text To Columns( delimiter( "," ), columns( :paretotop20 ) );

// Find all new columns
newColList = dt << get column names( string );
For( i = N Items( newColList ), i >= 1, i--,
	If( Contains( allOrigColumnsList,
		newColList[i]),
		Remove From( newColList, i, 1 )
	)
);
dtStack = Data Table( "dt" ) << Stack(
	columns( eval(newColList) ),
	Source Label Column( "Label" ),
	Stacked Data Column( "Data" ),
	"Non-stacked columns"n( Keep( :"% of Total"n ) ),
	Output Table( "Untitled 60.jmp" )
);
dtStack << select where(:Data == "" );
dtStack << delete rows;

aa = Associative Array( Column( dtStack, 3 ) << get values, Column( dtStack, 1 ) << get values );

[#3]

Thanks, Jim!