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
|
function sstextwrite (filename, X)
%SSTEXTWRITE write a char array or cell array of strings to a text file
%
% sstextwrite (filename, X)
%
% X must either be a char array of size m-by-n, or a cell array of size m-by-1
% where each component X{i} has size 1-by-*.
% SuiteSparseCollection, Copyright (c) 2006-2019, Timothy A Davis.
% All Rights Reserved.
% SPDX-License-Identifier: GPL-2.0+
ff = fopen (filename, 'w') ;
if (ff < 0)
error ('cannot open file') ;
end
if (iscell (X))
if (size (X, 2) ~= 1)
error ('invalid object written to text file') ;
end
for i = 1:size (X,1)
s = X {i} ;
if (~ischar (s) || size (s,1) ~= 1)
error ('invalid object written to text file') ;
end
fprintf (ff, '%s\n', deblank (X {i})) ;
end
else
if (~ischar (X))
error ('invalid object written to text file') ;
end
for i = 1:size (X,1)
fprintf (ff, '%s\n', deblank (X (i,:))) ;
end
end
fclose (ff) ;
|
