cellarray_to_html.m

来自「Bayes网络工具箱」· M 代码 · 共 32 行

function cellarray_to_html(prefix, filename, C, titles, width)
% CELLARRAY_TO_HTML Create an html table file containing the 2D cell array of strings
% cellarray_to_html(prefix, filename, C, titles, width)


if nargin < 5, width = 1; end

%s = sprintf('%s/%s', prefix, filename);
s = sprintf('%s', filename);
fid = fopen(s, 'w');
fprintf(fid, '<table>\n');
fprintf(fid, '<table border units = pixels>');
fprintf(fid, '<tr>\n');
nc = length(titles);
for i=1:nc
  fprintf(fid, '<td align=center width=%d>%s\n', round(width/nc), titles{i});
end
fprintf(fid, '<tr>\n');

[nr nc] = size(C);
for i=1:nr
  fprintf(fid, '<tr>\n');
  j = 1;
  s = sprintf('%s/%s_inf_engine.html', prefix, C{i,j});
  fprintf(fid, '<td align=center> <a href=%s>%s</a>\n', s, C{i,j});
  for j=2:nc
    fprintf(fid, '<td align=center> %s\n', C{i,j});
  end
end
fprintf(fid, '</table>\n');
fclose(fid);