cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
Submit your abstract to the call for content for Discovery Summit Americas by April 23. Selected abstracts will be presented at Discovery Summit, Oct. 21- 24.
Discovery is online this week, April 16 and 18. Join us for these exciting interactive sessions.
Choose Language Hide Translation Bar
rmay
Level I

writing script to export tables

Hi,

 

I was wondering how to write a script to automate exportation of specific tables in an output file? I need to calculate confidence intervals for a large set of data, and would like JMP to automatically copy those confidence intervals to either a .txt or .csv file. 

3 REPLIES 3
txnelson
Super User

Re: writing script to export tables

Here is an example taken directly from the Scripting Index on how to save a data table to an output format:

     Help==.Scripting Index==>Data Table==>Save As

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << Save( "$temp\deleteme Big Class.jmp" ); // explicit location
If( dt << Save( "" ),
	Write( "\!nsaved to " || (dt << GetPath) ),
	Write( "\!nsave canceled" )
); // prompt
dt << Save( "$temp\deleteme Big Class.csv" ); // convert to CSV format
Close( dt, "NoSave" );
Jim
rmay
Level I

Re: writing script to export tables

Thanks, but I need a script to export output tables, not a data table. So for example, JMP will save scripts to reproduce analyses in the current state; I need to export the results of those analyses to a .csv file. 

txnelson
Super User

Re: writing script to export tables

Any display table in JMP can be turned into a data table.  Interactively, you right mouse click on the table and select "Make into Data Table" or "Make into Combined Data Table".

To do this in a script, you pass a message of "Make into Data Table" to the object.

Here is the example from the Scripting Index

     Help==>Scripting Index==>Make Into Data Table

Names Default To Here( 1 );
Open( "$SAMPLE_DATA/Baltic.jmp" );
p = PLS(
	Y( :ls, :ha, :dt ),
	X(
		:v1,
		:v2,
		:v3,
		:v4,
		:v5,
		:v6,
		:v7,
		:v8,
		:v9,
		:v10,
		:v11,
		:v12
	)
);
pr = p << report;
pr[Outline Box( 2 )] << Close;
pr[Outline Box( 3 )] << Close;
tb = pr[Table Box( 1 )];
tb << Make Into Data Table;
Jim