Dynamic list of buttons linked to scripts in a folder

[#1]

Hey JMP crew!

I was hoping to get some guidance on how I might be able to have a dynamic window with buttons that would link to whatever scripts are in a referenced folder.  So if I had two scripts in the folder, I would have a window with two button boxes.  If I had 50 then I would have 50 button boxes.  Ideally there might be a way to dynamically tell the window how many "columns" to arrange the button boxes in.

Any help would be appreciated!

Steve

[#2 · Accepted solution]

Here is a sample using the scripts installed as samples for JMP.  The directory reference needs to be changed from JMPPRO to JMP if you do not have JMPPRO.  Also the version number 18 needs to be changed to your version number.

Names Default To Here( 1 );
dir = "C:\Program Files\JMP\JMPPRO\18\Samples\Scripts";
files = Files In Directory( dir );
For( i = N Items( files ), i >= 1, i--,
	If( Word( -1, files[i], "." ) != "jsl",
		Remove From( files, i, 1 )
	)
);
theExpr = "";
For Each( {scr}, files,
	theExpr = theExpr || ",ButtonBox(\!"" || Word( -2, scr, "./\" ) || "\!", include(\!""
	 || dir || "\" || scr || "\!") )"
);
Eval(
	Parse(
		"nw = New Window( \!"Scripts\!",
			Outline Box( \!"Select Script to Run\!",
				Lineup Box( N Col( 4 )"
		 || theExpr || " )
			)
		);"
	)
);

I prefer not to use the Eval(Parse()) methodology, however it proved to be too late in the day for me to work through a more readable syntax version.  This method does the job.  Look for other Community Members to improve on my code.

[#3]

@txnelson You may not feel it is the cleanest code but it works wonderfully!  Thanks for the help and quick response!!

Steve

[#4]

[#5]

A bit different version of Jim's code (Filter Each to get list of .jsl files, Eval(EvalExpr()) to append buttons with the paths)

Names Default To Here(1);
dir = "$SAMPLE_SCRIPTS/";
dir = Convert File Path(dir, windows);

files = Files In Directory(dir);
jslfiles = Filter Each({filename}, files, Word(-1, filename, ".") == "jsl");


// Not sure how you would like to determine column count, but with Lineup box it is fairly easy
lub = Lineup Box(N Col(4));


For Each({filename}, jslfiles,
	Eval(EvalExpr(
		lub << Append(Button Box(filename,
			nw = New Window(Expr(filename),
				Script Box(Load Text File(Expr(dir || filename)), "JSL", 600, 600)
			);
		));
	));
);


nw = New Window("Scripts in " || dir,
	Outline Box("Click to Open a Script",
		lub	
	);
);

Depending on what you are doing, you might also consider having function/expression which each of the buttons call. Doing it in robust manner does take a bit of extra work though, so knowing how to create these simpler solutions is always a good idea.