/usr/share/octave/packages/3.2/io-1.0.14/xlsfinfo.m is in octave-io 1.0.14-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 | ## Copyright (C) 2009,2010 Philip Nienhuis <pr.nienhuis at users.sf.net>
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with Octave; see the file COPYING. If not, see
## <http://www.gnu.org/licenses/>.
## -*- texinfo -*-
## @deftypefn {Function File} [@var{filetype}] = xlsfinfo (@var{filename} [, @var{reqintf}])
## @deftypefnx {Function File} [@var{filetype}, @var{sh_names}] = xlsfinfo (@var{filename} [, @var{reqintf}])
## @deftypefnx {Function File} [@var{filetype}, @var{sh_names}, @var{fformat}] = xlsfinfo (@var{filename} [, @var{reqintf}])
## Query Excel spreadsheet file @var{filename} for some info about its
## contents.
##
## If @var{filename} is a recognizable Excel spreadsheet file,
## @var{filetype} returns the string "Microsoft Excel Spreadsheet", or
## @'' (empty string) otherwise.
##
## If @var{filename} is a recognizable Excel spreadsheet file, optional
## argument @var{sh_names} contains a list (cell array) of sheet
## names (and in case Excel is installed: sheet types) contained in
## @var{filename}, in the order (from left to right) in which they occur
## in the sheet stack.
##
## Optional return value @var{fformat} currently returns @'' (empty
## string) unless @var{filename} is a readable Excel 97-2003 .xls file or
## an Excel 2007 .xlsx / .xlsb file in which case @var{fformat} is set to
## "xlWorkbookNormal". Excel 95 .xls files can only be read through the JXL
## (JExcelAPI) java-based interface.
##
## If no return arguments are specified the sheet names are echoed to the
## terminal screen; in case of java interfaces for each sheet the actual
## occupied data range is echoed as well. The occupied cell range will have
## to be determined behind the scenes first; this can take some time for the
## Java-based interfaces.
##
## If multiple xls interfaces have been installed, @var{reqintf} can be
## specified. This can sometimes be handy, e.g. to get an idea of occupied
## cell ranges in each worksheet using a java-based interface (the COM / ActiveX
## interface can't supply this information).
##
## For use on OOXML spreadsheets one needs full POI support (see xlsopen) and
## 'poi' needs to be specified for @var{reqintf}. For Excel 95 file use 'jxl'.
##
## Examples:
##
## @example
## exist = xlsfinfo ('test4.xls');
## (Just checks if file test4.xls is a readable Excel file)
## @end example
##
## @example
## [exist, names] = xlsfinfo ('test4.xls');
## (Checks if file test4.xls is a readable Excel file and return a
## list of sheet names and -types)
## @end example
##
## @seealso oct2xls, xlsread, xls2oct, xlswrite
##
## @end deftypefn
## Author: Philip Nienhuis <prnienhuis@users.sourceforge.net>
## Created: 2009-10-27
## Updates:
## 2009-01-01 Echo sheet names to screen, request interface type)
## 2010-03-21 Better tabulated output; occupied date range per sheet echoed
## for Java interfaces (though it may be a bit off in case of JXL)
## 2010-05-31 Added remark about delays when determining occupied data range
## 2010-08-25 Improved help text (Excel file types)
## 2010-10-06 Added ";" to str2 declaration
## " Added occupieded range echo for COM interface (may be a bit off too)
## 2010-10-10 Made output arg2 contain only address ranges (or other sheet type names)
## 2010-11-01 Added other file type strings for return arg #3 (fformat)
function [ filetype, sh_names, fformat ] = xlsfinfo (filename, reqintf=[])
persistent str2; str2 = ' '; # 33 spaces
persistent lstr2; lstr2 = length (str2);
xls = xlsopen (filename, 0, reqintf);
toscreen = nargout < 1;
xlWorksheet = -4167; xlChart = 4;
# If any valid xls-pointer struct has been returned, it must be a valid Excel spreadsheet
filetype = 'Microsoft Excel Spreadsheet'; fformat = '';
if (strcmp (xls.xtype, 'COM'))
# See if desired worksheet number or name exists
sh_cnt = xls.workbook.Sheets.count;
sh_names = cell (sh_cnt, 2);
ws_cnt = 0; ch_cnt = 0; o_cnt = 0;
for ii=1:sh_cnt
sh_names(ii, 1) = xls.workbook.Sheets(ii).Name;
if (xls.workbook.Sheets(ii).Type == xlWorksheet)
[tr, lr, lc, rc] = getusedrange (xls, ++ws_cnt);
if (tr)
sh_names(ii, 2) = sprintf ("%s:%s", calccelladdress (tr, lc), calccelladdress (lr, rc));
else
sh_names(ii, 2) = "Empty";
endif
elseif (xls.workbook.Sheets(ii).Type == xlChart)
sh_names(ii, 2) = sprintf ("Chart"); ++ch_cnt;
else
sh_names(ii, 2) = 'Other_type'; ++o_cnt;
endif
endfor
if (ws_cnt > 0 || ch_cnt > 0)
if (strcmp (tolower (xls.filename(end-2:end)), 'xls'))
fformat = "xlWorkbookNormal";
elseif (strcmp (tolower (xls.filename(end-2:end)), 'csv'))
fformat = "xlCSV"; # Works only with COM
elseif (strcmp (tolower (xls.filename(end-3:end-1)), 'xls'))
fformat = "xlOpenXMLWorkbook";
elseif (strmatch ('htm', tolower (xls.filename(end-3:end))))
fformat = "xlHtml"; # Works only with COM
else
fformat = '';
endif
endif
elseif (strcmp (xls.xtype, 'POI'))
persistent cblnk; cblnk = java_get ('org.apache.poi.ss.usermodel.Cell', 'CELL_TYPE_BLANK');
sh_cnt = xls.workbook.getNumberOfSheets();
sh_names = cell (sh_cnt, 2); nsrows = zeros (sh_cnt, 1);
for ii=1:sh_cnt
sh = xls.workbook.getSheetAt (ii-1); # Java POI starts counting at 0
sh_names(ii, 1) = char (sh.getSheetName());
# Java POI doesn't distinguish between worksheets and graph sheets
[tr, lr, lc, rc] = getusedrange (xls, ii);
if (tr)
sh_names(ii, 2) = sprintf ("%s:%s", calccelladdress (tr, lc), calccelladdress (lr, rc));
else
sh_names(ii, 2) = "Empty";
endif
endfor
if (sh_cnt > 0)
if (strcmp (tolower (xls.filename(end-2:end)), 'xls'))
fformat = "xlWorkbookNormal";
elseif (strcmp (tolower (xls.filename(end-3:end-1)), 'xls'))
fformat = "xlOpenXMLWorkbook";
else
fformat = '';
endif
endif
elseif (strcmp (xls.xtype, 'JXL'))
sh_cnt = xls.workbook.getNumberOfSheets ();
sh_names = cell (sh_cnt, 2); nsrows = zeros (sh_cnt, 1);
sh_names(:,1) = char (xls.workbook.getSheetNames ());
for ii=1:sh_cnt
[tr, lr, lc, rc] = getusedrange (xls, ii);
if (tr)
sh_names(ii, 2) = sprintf ("%s:%s", calccelladdress (tr, lc), calccelladdress (lr, rc));
else
sh_names(ii, 2) = "Empty";
endif
endfor
if (sh_cnt > 0) fformat = "xlWorkbookNormal"; else, fformat = ''; endif
# elseif <Other Excel interfaces below>
else
error (sprintf ("xlsfinfo: unknown Excel .xls interface - %s.", xls.xtype));
endif
if (toscreen)
# Echo sheet names to screen
for ii=1:sh_cnt
str1 = sprintf ("%3d: %s", ii, sh_names{ii, 1});
if (index (sh_names{ii, 2}, ":"))
str3 = ['(Used range ~ ' sh_names{ii, 2} ')'];
else
str3 = sh_names{ii, 2};
endif
printf ("%s%s%s\n", str1, str2(1:lstr2-length (sh_names{ii, 1})), str3);
endfor
endif
xlsclose (xls);
endfunction
|