cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
JMP is taking Discovery online, April 16 and 18. Register today and join us for interactive sessions featuring popular presentation topics, networking, and discussions with the experts.
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.
Craige_Hales
Super User
Compare two files

If you've been writing JSL for a while, you've probably saved multiple copies of your script and eventually wondered about the differences between the scripts. There is not a great way to answer the question built in to Windows, so here's a way to do it in JSL, using the Shortest Edit Script function (that does almost all the work).

CompareTextFiles = Function( {pathA, pathB},
	{textA, textB, v, gray, red, green, ipart, parts, kind, text, vv, bb},
	textA = Load Text File( pathA );
	textB = Load Text File( pathB );

	parts = Shortest Edit Script( lines( textA, textB, ignorewhitespace() ) );
	v = V List Box();
	gray = RGB Color( .9, .9, .9 );
	red = RGB Color( 1, .7, .7 );
	green = RGB Color( .7, 1, .7 );
	For( ipart = 1, ipart <= N Items( parts ), ipart += 1,
		{kind, text} = parts[ipart];
		bb = MouseBox(
			Border Box( Left( 10 ), Right( 100 ), 
				// trim removes a final CR that double spaces the joint
				// between text boxes in the vlistbox. the 3 spaces added
				// back hides a rendering error that clips the last chars
				// in a line...sometimes.
				Text Box( Trim( text, right ) || "   ", <<setwrap( 1000 ) )
			)
		);
		If( kind != "Common",
			If(
				kind == "Remove",
					bb << backgroundcolor( red ) << setTooltip( "removed from " || pathA )//
			, /*else if*/kind == "Insert",
					bb << backgroundcolor( green ) << setTooltip( "inserted from " || pathB )//
			, // else
				Throw( "what? " || Char( kind ) )
			)
		);
		v << append( bb );
	);
	v << backgroundcolor( gray );
	v;// return	
);

The function expects two file names and returns a vlist box suitable for embedding into a window. The vlist box holds a bunch of textboxes drawn on top of a gray, red, or green background. The edit script returned by the Shortest Edit Script function is a list of commands: keep data common to both strings (gray), delete data from the first string (red), insert data from the second string (green). Using just those three commands, the script is "a" (not "the") shortest possible script to convert string A to string B. 

The MouseBox adds a tool tip to the red and green sections explaining which file lost that data or added that data. 

The Shortest Edit Script has some other parameters (not used here) that will be useful for longer files, especially the limit parameter. By setting a reasonable limit of 500 or 1000 differences, you can just say "these files are really different" without spending too much time waiting for a really slow match up process that is unlikely to produce interesting results. The function is called with the Ignore White Space parameter because I'm not interested in lines that are indented differently.

Two versions of Jabberwocky downloaded from the webTwo versions of Jabberwocky downloaded from the web

At least one of those versions was modified from the original.

Script attached.

Last Modified: Mar 5, 2020 11:28 AM