📄 fm_writehtm.m

📁 电力系统分析计算程序
💻 M
字号:
function fm_writehtm(Matrix,Header,Cols,Rows,File)% FM_WRITEHTM export PSAT results in HTML format.%% FM_WRITEHTM(MATRIX,HEDAER,COLNAMES,ROWNAMES,FILENAME)%%    MATRIX     Matrix to write to file%               Cell array for multiple matrices.%    HEADER     String of header information.%               Cell array for multiple header.%    COLNAMES   (Cell array of strings) Column headers.%               One cell element per column.%    ROWNAMES   (Cell array of strings) Row headers.%               One cell element per row.%    FILENAME   (string) Name of TeX file.%               If not specified, contents will be%               opened in the current selected text%               viewer.%%Author:    Federico Milano%Date:      28-Apr-2006%Version:   1.0.0%%E-mail:    Federico.Milano@uclm.es%Web-site:  http://www.uclm.es/area/gsee/Web/Federico%% Copyright (C) 2002-2008 Federico Milanoglobal Pathif ~iscell(Matrix)  Matrix{1,1} = Matrix;  Header{1,1} = Header;  Cols{1,1} = Cols;  Rows{1,1} = Rows;end% --------------------------------------------------------------------% opening text file% --------------------------------------------------------------------fm_dispfm_disp('Writing the report HTML file...')[fid,msg] = fopen([Path.data,File], 'wt');if fid == -1  fm_disp(msg)  returnendpath_lf = strrep(Path.data,'\','\\');% --------------------------------------------------------------------% writing headers and general settings% --------------------------------------------------------------------fprintf(fid,'%s\n',['<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" ' ...                    '"http://www.w3.org/TR/html4/strict.dtd">']);fprintf(fid,'%s\n','<html>');fprintf(fid,'%s\n','<head>');fprintf(fid,'%s\n','<title>template.html</title>');fprintf(fid,'%s\n','<meta name="generator" content="PSAT 2">');fprintf(fid,'%s\n','<meta name="author" content="Federico Milano">');fprintf(fid,'%s\n',['<meta name="date" content="',date,'">']);fprintf(fid,'%s\n','<meta name="copyright" content="Federico Milano">');fprintf(fid,'%s\n','<meta name="keywords" content="">');fprintf(fid,'%s\n','<meta name="description" content="">');fprintf(fid,'%s\n','<meta name="ROBOTS" content="NOINDEX, NOFOLLOW">');fprintf(fid,'%s\n','<meta http-equiv="content-type" content="text/html; charset=UTF-8">');fprintf(fid,'%s\n','<meta http-equiv="content-type" content="application/xhtml+xml; charset=UTF-8">');fprintf(fid,'%s\n','<meta http-equiv="content-style-type" content="text/css">');fprintf(fid,'%s\n','<meta http-equiv="expires" content="0">');fprintf(fid,'%s\n','</head>');fprintf(fid,'%s\n','<body>');% --------------------------------------------------------------------% writing data% --------------------------------------------------------------------nhr = 0;idx_table = 0;for i_matrix = 1:length(Matrix)  m = Matrix{i_matrix};  colnames = Cols{i_matrix};  rownames = Rows{i_matrix};  header = Header{i_matrix};  if isempty(colnames) & isempty(rownames) & isempty(m)    count = fprintf(fid,'%s\n','<div>');    count = fprintf(fid,'%s\n','<table>');    if ~isempty(header)      if iscell(header)	count = fprintf(fid,'%s\n',['<h3> ',header{1},' </h3>']);        for ii = 2:length(header)          count = fprintf(fid,'%s\n',['<tr><td> ',header{ii},' </td></tr>']);        end      else        count = fprintf(fid,'%s\n',['<h4> ',header,' </h4>']);      end      count = fprintf(fid,'%s\n','</table>');    end    else % create table    idx_table = idx_table + 1;    % Write header    % ------------------------------------------------------------------    count = fprintf(fid,'%s\n','<div>');    if iscell(header)      for ii = 1:length(header)	count = fprintf(fid,'%s\n',['<h4> ',header{ii},' </h4>']);      end    else      count = fprintf(fid,'%s\n',['<h4> ',header,' </h4>']);    end    count = fprintf(fid,'%s\n','<table border="1" rules="all">');    % Write column names    % ------------------------------------------------------------------    if nargin > 2 & ~isempty(colnames)      [nrows,ncolnames] = size(colnames);      for jj = 1:nrows        count = fprintf(fid,'%s\n','<tr>');	for ii = 1:ncolnames	  count = fprintf(fid,'%s\n',['<td> ',colnames{jj,ii},' </td>']);	end        count = fprintf(fid,'%s\n','</tr>');      end    end    % Write data    % ------------------------------------------------------------------    if nargin > 3 & ~isempty(rownames)      [nrownames,ncols] = size(rownames);      ndata = size(m,2);      for ii = 1:nrownames	fprintf(fid, '   ');        count = fprintf(fid,'%s\n','<tr>');	for jj = 1:ncols	  count = fprintf(fid,'%s\n',['<td> ',rownames{ii,jj},' </td>']);	end	for hh = 1:ndata	  count = fprintf(fid,'%s %8.5f %s\n','<td>',m(ii,hh),'</td>');	end        count = fprintf(fid,'%s\n','</tr>');      end    end    count = fprintf(fid,'%s\n','</table>');    count = fprintf(fid,'%s\n','</div>');  endend% --------------------------------------------------------------------% writing end of file% --------------------------------------------------------------------fprintf(fid,'%s\n','</body>');fprintf(fid,'%s\n','</html>');fclose(fid);fm_disp(['Report of Static Results saved in ',File])% view filefm_text(13,[Path.data,File])
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -