// Based on code by Michael Schmid: http://imagej.1557.x6.nabble.com/How-to-save-log-files-statistics-using-macro-help-td4999708.html
// pjl 3/10/2015 10:41 AM
dir = getDirectory("Choose a Directory ");
list = getFileList(dir);
run("Clear Results");
setBatchMode(true);
row = 0;
for (i=0; i<lengthOf(list); i++) {
   showProgress(i, lengthOf(list));
   open(dir+list[i]);
   getHistogram(values, counts, 255, 0, 65535);
   for(bin=0; bin< lengthOf(values); bin++) {
      //setResult("Label", row, list[i]);
      row = bin;
      if (i==0) {
         setResult("Bin", row, bin+1);
         setResult("Bin Start", row, values[bin]);
      }
      setResult(list[i], row, counts[bin]);
      // alternatively:
      //setResult(File.nameWithoutExtension, row, counts[bin]);
      row++;
    }
    close;
}
setOption("ShowRowNumbers", false);
updateResults;
path = getDirectory("home") + "255binhist.txt";
saveAs("Results", path);