欢迎来这里逛逛，前些时间我的空间总是跟别人的重叠，搞得我也没心思来这里打理，今后可能好一点儿^_^
[转贴]:mathswork上的一个把cell数组(允许中文)写到文本中的程序
查看( 156 ) /
评论( 3 )
呵呵...今天绝对是收获比较大的一天...心情很好,前两天写了一个有限元的程序,有关数据的保存有点困惑,就是数据写入文本文件的时候只能是数据而不能连带文本(尤其是中文)一起写进去,这样程序的运行结果可读性就降低了,今天没事儿在mathswork上胡逛,偶尔发现了这个宝贝,可以把cell数组完整搞到txt里,中文也一样可以.然后我稍微修改了一下,使得数据与文本之间的对应保持上下一致.
高兴^_^...分享一下,感觉里面有些语句也是值得借鉴的.hoho:
function cell2csv(datName,cellArray,trennZeichen)
% Writes cell array content into a *.csv file.
%
% CELL2CSV(datName,cellArray,trennZeichen)
%
% datName = Name of the file to save. [ i.e. 'text.csv' ]
% cellarray = Name of the Cell Array where the data is in
% trennZeichen = seperating sign, normally:',' (it's default)
%
% by Sylvain Fiedler, KA, 2004
trennZeichen = ' ';
datei = fopen(datName,'w');
for z=1:size(cellArray,1)
for s=1:size(cellArray,2)
var = eval(['cellArray{z,s}']);
if size(var,1) == 0
var = '';
end
if isnumeric(var) == 1
var = num2str(var);
end
fprintf(datei,var);
if s ~= size(cellArray,2)
fprintf(datei,' ');
end
end
fprintf(datei,'\n');
end
fclose(datei);
==========================================================================
以下是我随手写的一个写入txt文本的程序.
function read_csv_plus_text
clc
c=cell(4);
for i=2:4
for j=1:4
c{i,j}=rand(1);
c{1,j}=['测试' num2str(j) ' '];
end
end
cell2csv('ttt.txt',c,' ')
下面这个是效果,我自己比较满意,嘿嘿...,还是有个问题昨天没有搞出来,因为程序本身的核心还是用fprintf来做数据的读入的,但怎么才能像fprintf一样修改程序使之能任意读取数据的任意位小数,就像%g之类的能否加入的语句中,试了半天没解决...:!(:~):I
最后补充一下:还是谢绝跟"好","顶"之类的垃圾破烂贴,喜欢用复制回去就可以了
欢迎针对问题的讨论...谢谢合作:I:I
*************************
bainhome心情好，到处挖宝，看样子要跟紧点拣钱啊，不要漏了。^_^
*************************
csvread.jpg
高兴^_^...分享一下,感觉里面有些语句也是值得借鉴的.hoho:
function cell2csv(datName,cellArray,trennZeichen)
% Writes cell array content into a *.csv file.
%
% CELL2CSV(datName,cellArray,trennZeichen)
%
% datName = Name of the file to save. [ i.e. 'text.csv' ]
% cellarray = Name of the Cell Array where the data is in
% trennZeichen = seperating sign, normally:',' (it's default)
%
% by Sylvain Fiedler, KA, 2004
trennZeichen = ' ';
datei = fopen(datName,'w');
for z=1:size(cellArray,1)
for s=1:size(cellArray,2)
var = eval(['cellArray{z,s}']);
if size(var,1) == 0
var = '';
end
if isnumeric(var) == 1
var = num2str(var);
end
fprintf(datei,var);
if s ~= size(cellArray,2)
fprintf(datei,' ');
end
end
fprintf(datei,'\n');
end
fclose(datei);
==========================================================================
以下是我随手写的一个写入txt文本的程序.
function read_csv_plus_text
clc
c=cell(4);
for i=2:4
for j=1:4
c{i,j}=rand(1);
c{1,j}=['测试' num2str(j) ' '];
end
end
cell2csv('ttt.txt',c,' ')
下面这个是效果,我自己比较满意,嘿嘿...,还是有个问题昨天没有搞出来,因为程序本身的核心还是用fprintf来做数据的读入的,但怎么才能像fprintf一样修改程序使之能任意读取数据的任意位小数,就像%g之类的能否加入的语句中,试了半天没解决...:!(:~):I
最后补充一下:还是谢绝跟"好","顶"之类的垃圾破烂贴,喜欢用复制回去就可以了
欢迎针对问题的讨论...谢谢合作:I:I
*************************
bainhome心情好，到处挖宝，看样子要跟紧点拣钱啊，不要漏了。^_^
*************************
csvread.jpg
TAG:
-
damao_pq发布于2006-10-14 10:57:30
-
原贴中输入变量trennZeichen不起作用
稍改了一下
function cell2csv(datName,cellArray,trennZeichen)
% Writes cell array content into a *.csv file.
%
% CELL2CSV(datName,cellArray,trennZeichen)
%
% datName = Name of the file to save. [ i.e. 'text.csv' ]
% cellarray = Name of the Cell Array where the data is in
% trennZeichen = seperating sign, normally:',' (it's default)
%
% by Sylvain Fiedler, KA, 2004
if nargin<=2
trennZeichen = ' ';
end
datei = fopen(datName,'w');
for z=1:size(cellArray,1)
for s=1:size(cellArray,2)
var = eval(['cellArray{z,s}']);
if size(var,1) == 0
var = '';
end
if isnumeric(var) == 1
var = num2str(var);
end
fprintf(datei,var);
if s ~= size(cellArray,2)
fprintf(datei,trennZeichen);
end
end
fprintf(datei,'\n');
end
fclose(datei);
-
bainhome 发布于2006-10-14 17:35:39
-
再次修改，应该比二楼稍微灵活一点儿，程序见一楼
[ 本帖最后由 bainhome 于 2006-10-15 05:14 编辑 ]
-
dingzixiu 发布于2007-01-19 16:44:19
-
也许bainhome斑竹早解决了这个小问题，刚刚搜索你发的文章，拜读的过程中，顺便贴出我的一点改进。后面的换行在windows notepad中用\r\n才会换行，不过在matlab中的editor可以用\n即可识别为换行了。
function read_csv_plus_text(t,num)
% 使用cell2csv读取文件的示例程序
%
clc
c=cell(4);
str=' ';
for i=1:t+2
str=[str,' '];
end
for i=2:4
for j=1:4
c{i,j}=rand(1);
c{1,j}=['测试',num2str(j),str];
end
end
% num=10;%your precision number!
cell2csv('ttt.txt',c,t,num);
system('ttt.txt') %invoke notepad to open the text file.
function cell2csv(datName,cellArray,trennZeichen,num)
% Writes cell array content into a *.csv file.
%
% CELL2CSV(datName,cellArray,trennZeichen,precisionNum)
%
% datName = Name of the file to save. [ i.e. 'text.csv' ]
% cellarray = Name of the Cell Array where the data is in
% trennZeichen = the number of blankspaces,and it has to be either
% great than zero or a positive interger.
%num =the number of the save numerical precision, for example
%num=2--->0.24,num=5--->0.12345
% by Sylvain Fiedler, KA, 2004
% modified by bainhome,XJ,2006
if trennZeichen<=0|round(trennZeichen)~=trennZeichen
errordlg('trennZeichen has to be either great than zero or a positive interger.',...
'输入错误对话框')
return
else
str=' ';
for i=1:trennZeichen-1
str=[str,' '];
end
datei = fopen(datName,'w');
for z=1:size(cellArray,1)
for s=1:size(cellArray,2)
var = eval(['cellArray{z,s}']);
if size(var,1) == 0
var = '';
end
if isnumeric(var) == 1
format=['%.',num2str(num),'f'];
var=sprintf(format,var);
end
fprintf(datei,var);
if s ~= size(cellArray,2)
fprintf(datei,str);
end
end
fprintf(datei,'\r\n');
end
fclose(datei);
end
[ 本帖最后由 dingzixiu 于 2007-1-19 16:45 编辑 ]
标题搜索
日历
|
|||||||||
| 日 | 一 | 二 | 三 | 四 | 五 | 六 | |||
| 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 | |||
我的存档
数据统计
- 访问量: 4150
- 日志数: 26
- 建立时间: 2006-05-20
- 更新时间: 2007-11-11
