cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Discussions

Solve problems, and share tips and tricks with other JMP users.
%3CLINGO-SUB%20id%3D%22lingo-sub-706215%22%20slang%3D%22en-US%22%20mode%3D%22NONE%22%3E%E4%BD%BF%E7%94%A8%20contains%20()%20%E9%96%8B%E5%95%9F%E6%96%87%E4%BB%B6%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-706215%22%20slang%3D%22en-US%22%20mode%3D%22NONE%22%3E%3CP%3E%E5%A4%A7%E5%AE%B6%E5%A5%BD%EF%BC%8C%3C%2FP%3E%3CP%3E%E6%88%91%E5%98%97%E8%A9%A6%E5%BB%BA%E7%AB%8B%E4%B8%80%E5%80%8B%E8%85%B3%E6%9C%AC%E4%BE%86%E9%81%8D%E6%AD%B7%E7%9B%AE%E9%8C%84%E4%BE%86%E5%B0%8B%E6%89%BE%E8%BC%B8%E5%85%A5%E6%AA%94%E3%80%82%20%E4%BD%86%E6%98%AF%EF%BC%8C%E6%9F%90%E4%BA%9B%E6%AA%94%E6%A1%88%E5%90%8D%E7%A8%B1%E5%8F%AF%E8%83%BD%E5%85%B7%E6%9C%89%E4%B8%8D%E5%90%8C%E7%9A%84%E5%AD%97%E5%85%83%E3%80%82%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%E4%BE%8B%E5%A6%82%EF%BC%9A%3C%2FP%3E%3CP%3E%E6%88%91%E5%B0%8D%E6%9C%80%E5%96%9C%E6%AD%A1%E7%9A%84%E6%B0%B4%E6%9E%9C%E7%9A%84%E8%BC%B8%E5%85%A5%E6%98%AF%EF%BC%9A%3CSTRONG%3E%E6%A9%98%E5%AD%90%3C%2FSTRONG%3E%3C%2FP%3E%3CP%3E%E8%B3%87%E6%96%99%E5%A4%BE%E4%B8%AD%E7%9A%84%E7%8F%BE%E6%9C%89%E6%AA%94%E6%A1%88%E7%82%BA%EF%BC%9AMark_Orange_Mango.jmp%E3%80%81Jane_Apple.jmp%E3%80%81John_Orange.jmp%3C%2FP%3E%3CP%3E%E5%B0%87%E9%96%8B%E5%95%9F%E7%9A%84%E6%AA%94%E6%A1%88%EF%BC%9AMark_Orange_Mango.jmp%20%E5%92%8C%20John_Orange.jmp%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%E5%A6%82%E4%BD%95%E4%BD%BF%E7%94%A8%20contains()%20%E9%96%8B%E5%95%9F%E9%80%99%E4%BA%9B%E6%AA%94%E6%A1%88%E6%88%96%E6%88%91%E9%9C%80%E8%A6%81%E4%BD%BF%E7%94%A8%E4%BB%80%E9%BA%BC%E5%87%BD%E6%95%B8%EF%BC%9F%20%E6%88%91%E6%AD%A3%E5%9C%A8%E4%BD%BF%E7%94%A8%20JMP%2015%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%E9%80%99%E6%98%AF%E6%88%91%E6%AD%A3%E5%9C%A8%E8%99%95%E7%90%86%E7%9A%84%E7%A8%8B%E5%BC%8F%E7%A2%BC%E7%89%87%E6%AE%B5%EF%BC%9A%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%3E%3CCODE%20class%3D%22%20language-jsl%22%3Enw%20%3D%20New%20Window(%20%22Favorite%20Fruits%22%2C%20%26lt%3B%26lt%3B%20modal()%2C%0A%20lineupbox(ncol(2)%2C%20spacing(5)%2C%0A%20%20%0A%20%20Text%20Box(%20%22Name%3A%22%20)%2C%0A%20%20teb1%20%3D%20Text%20Edit%20Box(%20%22%22%2C%20%26lt%3B%3CSET%20width%3D%22%22%3E%3C%2FSET%3E%3C%2FCODE%3E%3C%2FPRE%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-706215%22%20slang%3D%22en-US%22%20mode%3D%22NONE%22%3E%3CLINGO-LABEL%3E%E8%87%AA%E5%8B%95%E5%8C%96%E5%92%8C%E8%85%B3%E6%9C%AC%E7%B7%A8%E5%AF%AB%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3E%E8%A6%96%E7%AA%97%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-706265%22%20slang%3D%22en-US%22%20mode%3D%22NONE%22%3E%E5%9B%9E%E8%A6%86%EF%BC%9A%E4%BD%BF%E7%94%A8%20contains%20()%20%E9%96%8B%E5%95%9F%E6%96%87%E4%BB%B6%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-706265%22%20slang%3D%22en-US%22%20mode%3D%22NONE%22%3E%3CP%3E%E7%9C%8B%E7%9C%8B%E9%80%99%E6%98%AF%E5%90%A6%E9%81%A9%E5%90%88%E4%BD%A0%3C%2FP%3E%0A%3CPRE%3E%3CCODE%20class%3D%22%20language-jsl%22%3Enw%20%3D%20New%20Window(%20%22Favorite%20Fruits%22%2C%0A%20%26lt%3B%3CMODAL%3E%3D%201%2C%20i--%2C%0A%20If(%20Word(%20-1%2C%20files%5Bi%5D%2C%20%22.%22%20)%20!%3D%20%22jmp%22%2C%0A%20%20Remove%20From(%20files%2C%20i%2C%201%20)%0A%20)%0A)%3B%0A%0AIf(%20N%20Items(%20Files%20)%20%26gt%3B%200%2C%0A%20tableList%20%3D%20%7B%7D%3B%0A%20For(%20j%20%3D%201%2C%20j%20%26lt%3B%3D%20N%20Items(%20files%20)%2C%20j%2B%2B%2C%0A%20%20If(%20Contains(%20files%5Bj%5D%2C%20fruit%20)%20%26gt%3B%200%2C%20%2F%2F%20Open%20file%20that%20contains%20the%20input%20from%20text%20box%0A%20%20%20dd%20%3D%20Open(%20path%20%7C%7C%20%22%2F%22%20%7C%7C%20files%5Bj%5D%20)%3B%0A%20%20%20Insert%20Into(%20tableList%2C%20dd%20)%3B%0A%20%20)%0A%20)%3B%0A)%3B%0A%3C%2FMODAL%3E%3C%2FCODE%3E%3C%2FPRE%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-706272%22%20slang%3D%22en-US%22%20mode%3D%22NONE%22%3E%E5%9B%9E%E8%A6%86%EF%BC%9A%E4%BD%BF%E7%94%A8%20contains%20()%20%E9%96%8B%E5%95%9F%E6%96%87%E4%BB%B6%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-706272%22%20slang%3D%22en-US%22%20mode%3D%22NONE%22%3E%3CP%3E%E5%97%A8%EF%BC%8C%E5%AE%83%E5%9C%A8%E6%88%91%E9%80%99%E9%82%8A%E4%B8%8D%E8%B5%B7%E4%BD%9C%E7%94%A8%E3%80%82%20%E9%80%99%E9%81%A9%E7%94%A8%E6%96%BC%20JMP15%20%E5%97%8E%EF%BC%9F%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-706296%22%20slang%3D%22en-US%22%20mode%3D%22NONE%22%3E%E5%9B%9E%E8%A6%86%EF%BC%9A%E4%BD%BF%E7%94%A8%20contains%20()%20%E9%96%8B%E5%95%9F%E6%96%87%E4%BB%B6%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-706296%22%20slang%3D%22en-US%22%20mode%3D%22NONE%22%3E%3CP%3E%E5%AE%83%E5%8F%AF%E4%BB%A5%E5%83%8F%E6%82%A8%E6%83%B3%E8%A6%81%E7%9A%84%E9%82%A3%E6%A8%A3%E8%A4%87%E9%9B%9C%3C%2FP%3E%0A%3CPRE%3EIf(%3CBR%20%2F%3E(Contains(%20files%5Bj%5D%2C%20fruit%20)%20%26amp%3B%20Contains(%20files%5Bj%5D%2C%20%22Good%20Luck%22%20))%20%7C%3CBR%20%2F%3EContains(%20files%5Bj%5D%2C%20%22Special%22%20)%2C%3CBR%20%2F%3Edd%20%3D%20Open(%20path%20%7C%7C%20%22%2F%22%20%7C%7C%20files%5Bj%5D%20)%3CBR%20%2F%3E)%3C%2FPRE%3E%0A%3CP%3E%E6%88%91%E5%BC%B7%E7%83%88%E5%BB%BA%E8%AD%B0%E6%82%A8%E8%8A%B1%E4%B8%80%E4%BA%9B%E6%99%82%E9%96%93%E9%96%B1%E8%AE%80%E8%85%B3%E6%9C%AC%E6%8C%87%E5%8D%97%E3%80%82%E5%AE%83%E5%B0%87%E4%BD%BF%E6%82%A8%E7%9A%84%E8%85%B3%E6%9C%AC%E7%B7%A8%E5%AF%AB%E4%B9%8B%E6%97%85%E8%AE%8A%E5%BE%97%E6%9B%B4%E5%8A%A0%E6%84%89%E5%BF%AB%E3%80%82%3C%2FP%3E%3C%2FLINGO-BODY%3E
Choose Language Hide Translation Bar
UserID16644
Level V

Open files using contains ()

Hi all, 

I am try to create a script that would go through directories to find the input file. However, some file names may have different characters. 

 

For example:

My input in favorite fruit would be: Orange

Existing files from folder would be: Mark_Orange_Mango.jmp, Jane_Apple.jmp, John_Orange.jmp

Files that would open: Mark_Orange_Mango.jmp and John_Orange.jmp

 

How can I open these files using contains() or what function do I need to use? I am using JMP 15

 

Here is the piece of code I am working on:

 

nw = New Window( "Favorite Fruits", << modal(),
	lineupbox(ncol(2), spacing(5),
		
		Text Box( "Name:" ),
		teb1 = Text Edit Box( "", <<set width( 150 ) ),
		
		Text Box( "Age:" ),
		teb2 = Text Edit Box( "", <<set width( 150 ) ),

		Text Box( "Birthday:" ),
		teb3 = Text Edit Box( "", <<set width( 150 ) ),
		
		Text Box( "Favorite Fruit:" ),
		teb4 = Text Edit Box( "", <<set width( 150 ) ),
	),
	Button Box( "OK", 
		name = teb1 << get text ();
		age = teb2 << get text ();
		bday = teb3 << get text ();
		fruit = teb4 << get text ();	
	),
);


/* ----- opening the files ----- */

path = "C:\Users\Desktop" || Char (name) || "\" || Char (bday);

files = Files in Directory (path);

For (j=1, j<= N Items (files), j++,
	If (Contains (fruit[j], ".jmp"), // Open file that contains the input from text box
	...
	)
);
1 ACCEPTED SOLUTION

Accepted Solutions
txnelson
Super User

Re: Open files using contains ()

See if this works for you

nw = New Window( "Favorite Fruits",
	<<modal(),
	Lineup Box( N Col( 2 ), spacing( 5 ), 
		
		Text Box( "Name:" ),
		teb1 = Text Edit Box( "", <<set width( 150 ) ), 
		
		Text Box( "Age:" ),
		teb2 = Text Edit Box( "", <<set width( 150 ) ), 

		Text Box( "Birthday:" ),
		teb3 = Text Edit Box( "", <<set width( 150 ) ), 
		
		Text Box( "Favorite Fruit:" ),
		teb4 = Text Edit Box( "", <<set width( 150 ) ),

	),
	Button Box( "OK",
		name = teb1 << get text();
		age = teb2 << get text();
		bday = teb3 << get text();
		fruit = teb4 << get text();
	),

);

/* ----- opening the files ----- */

path = "C:\Users\Desktop" || Char( name ) || "\" || Char( bday );

files = Files In Directory();

For( i = N Items( files ), i >= 1, i--,
	If( Word( -1, files[i], "." ) != "jmp",
		Remove From( files, i, 1 )
	)
);

If( N Items( Files ) > 0,
	tableList = {};
	For( j = 1, j <= N Items( files ), j++,
		If( Contains( files[j], fruit ) > 0, // Open file that contains the input from text box
			dd = Open( path || "/" || files[j] );
			Insert Into( tableList, dd );
		)
	);
);
Jim

View solution in original post

3 REPLIES 3
txnelson
Super User

Re: Open files using contains ()

See if this works for you

nw = New Window( "Favorite Fruits",
	<<modal(),
	Lineup Box( N Col( 2 ), spacing( 5 ), 
		
		Text Box( "Name:" ),
		teb1 = Text Edit Box( "", <<set width( 150 ) ), 
		
		Text Box( "Age:" ),
		teb2 = Text Edit Box( "", <<set width( 150 ) ), 

		Text Box( "Birthday:" ),
		teb3 = Text Edit Box( "", <<set width( 150 ) ), 
		
		Text Box( "Favorite Fruit:" ),
		teb4 = Text Edit Box( "", <<set width( 150 ) ),

	),
	Button Box( "OK",
		name = teb1 << get text();
		age = teb2 << get text();
		bday = teb3 << get text();
		fruit = teb4 << get text();
	),

);

/* ----- opening the files ----- */

path = "C:\Users\Desktop" || Char( name ) || "\" || Char( bday );

files = Files In Directory();

For( i = N Items( files ), i >= 1, i--,
	If( Word( -1, files[i], "." ) != "jmp",
		Remove From( files, i, 1 )
	)
);

If( N Items( Files ) > 0,
	tableList = {};
	For( j = 1, j <= N Items( files ), j++,
		If( Contains( files[j], fruit ) > 0, // Open file that contains the input from text box
			dd = Open( path || "/" || files[j] );
			Insert Into( tableList, dd );
		)
	);
);
Jim
UserID16644
Level V

Re: Open files using contains ()

Hi, it is working, however, is it possible to have multiple conditions on my contain() function?

txnelson
Super User

Re: Open files using contains ()

It can be as complex as you want it to be

If(
(Contains( files[j], fruit ) & Contains( files[j], "Good Luck" )) |
Contains( files[j], "Special" ),
dd = Open( path || "/" || files[j] )
)

I strongly suggest you take some time to read the Scripting Guide.  It will make your journey into scripting far more pleasent. 

Jim

Recommended Articles