Matlab读写excel文件函数

(2010-06-10 21:33:44)

标签：

it

Matlab读写excel文件函数

Matlab读写excel文件函数：xlsread和xlswrite(转载)

在实验编程中产生了需要将matlab运行的试验结果写入

excel，从excel中读数据的要求，这样就需要用到matlab操作excel表格的相关函数：xlsfinfo，xlsread和

xlswrite。

我的应用实例：

对如下文件数据处理转化：test.txt[code]

================25-Jul-2008 10:07:25 ===============

jink2005stop

H R S

T H R

S C H

R S M

H R S

N H R

S Q H

R S D

jink2005start

GGGY

-108.766778 172.092305

GGGT

-64.567515 132.922390

GGGE

-73.388772 -149.940032

GGGH

58.886619 -43.304309

GGAG

0.000000 0.000000

GGAP

0.000000 0.000000

GGAT

0.000000 0.000000

GGAM

-89.880662 -4.051511

GGAN

66.886988 28.233579

jink2005stop

[/code]转存到test.xls的程序：[code]

function countResult(filename, xlsfile)

% 读取CSAResult.txt文件，统计到Excel表格中

% xlsRow为本文件写到excel文件excelResult.xls的起始行

fid = fopen(filename);

% Excel = actxserver('Excel.Application');

fRow = 0;

sheet = 1;

xlsRow = 1;

% 找出要用数据的第一行(jink2005start下面)

tline = strtrim(fgetl(fid));

matches = findstr(tline, 'jink2005start');

while feof(fid) == 0 & length(matches) == 0

tline = strtrim(fgetl(fid));

matches = findstr(tline, 'jink2005start');

end

seq = 'xxxx';

while feof(fid) == 0

tline = strtrim(fgetl(fid));

matches = findstr(tline, 'jink2005stop');

if length(matches) >

0 %找到停止行标识，则开始再次寻找下面start处

tline = strtrim(fgetl(fid));

matches = findstr(tline, 'jink2005start');

while feof(fid) == 0 & length(matches) == 0

tline = strtrim(fgetl(fid));

matches = findstr(tline, 'jink2005start');

end

elseif length(tline) == 4

seq = tline;

elseif length(tline) ~= 0

% 开始将angle、seq写入excel表格

[token, rem] =

strtok(tline); %使用默认的空格分割字符串，第一个空格前在token里，剩下在rem里

M(1, 1) = {str2num(token)};

M(1, 2) = {str2num(rem)};

M(1, 3) = {seq};

if xlsRow > 60000

sheet = sheet + 1;

xlsRow = 1;

end

xlswrite(xlsfile, M, strcat('Sheet', num2str(sheet)), strcat('A',

num2str(xlsRow)));

xlsRow = xlsRow + 1;

end

end

fclose(fid);

[/code]

运行方式如下：

[code]countResult('test.txt', 'test.xls'); [/code]

结果text.xls中的结果如下：

-108.766778 172.092305 GGGY

-64.567515 132.92239 GGGT

-73.388772 -149.940032 GGGE

58.886619 -43.304309 GGGH

0 0 GGAG

0 0 GGAP

0 0 GGAT

-89.880662 -4.051511 GGAM

66.886988 28.233579 GGAN

参考文献：

matlab帮助文档

[url=http://luobo.ycool.com/post.650879.html][b][color=#86aa42]将matlab求出的矩阵保存在Excel表格中[/color][/b][/url]

[url=http://luobo.ycool.com/post.650879.html]http://luobo.ycool.com/post.650879.html[/url]

jink2005 发表于 2008-8-10 12:50

程序改进：减少打开关闭excel次数，增加excel最大行限制处理

[code]

function countResult(filename, xlsfile)

% 读取CSAResult.txt文件，统计到Excel表格中

% xlsRow为本文件写到excel文件excelResult.xls的起始行

fid = fopen(filename);

% Excel = actxserver('Excel.Application');

sheet = 1;

xlsRow = 1;

% 找出要用数据的第一行(jink2005start下面)

tline = strtrim(fgetl(fid));

matches = findstr(tline, 'jink2005start');

while feof(fid) == 0 & length(matches) == 0

tline = strtrim(fgetl(fid));

matches = findstr(tline, 'jink2005start');

end

seq = 'xxxx';

mRow = 0;

while feof(fid) == 0

tline = strtrim(fgetl(fid));

matches = findstr(tline, 'jink2005stop');

if length(matches) >

0 %找到停止行标识，则开始再次寻找下面start处

tline = strtrim(fgetl(fid));

matches = findstr(tline, 'jink2005start');

while feof(fid) == 0 & length(matches) == 0

tline = strtrim(fgetl(fid));

matches = findstr(tline, 'jink2005start');

end

elseif length(tline) == 4

seq = tline;

elseif length(tline) ~= 0

% 开始将angle、seq写入excel表格

[token, rem] =

strtok(tline); %使用默认的空格分割字符串，第一个空格前在token里，剩下在rem里

mRow = mRow + 1;

M(mRow, 1) = {str2num(token)};

M(mRow, 2) = {str2num(rem)};

M(mRow, 3) = {seq};

% 每次M到达500行才写入excel减少开关excel操作

if mRow >= 500

if (xlsRow + 500) > 60000

sheet = sheet + 1;

xlsRow = 1;

end

xlswrite(xlsfile, M, strcat('Sheet', num2str(sheet)), strcat('A',

num2str(xlsRow)));

mRow = 0;

xlsRow = xlsRow + 500;

M = {};

end

end

end

% 文件读写结束M可能不足500行，将剩余M写入excel

xlswrite(xlsfile, M, strcat('Sheet', num2str(sheet)), strcat('A',

num2str(xlsRow)));

fclose(fid);

return

[/code]

jink2005 发表于 2008-8-14 15:23

我遇到过的问题

>>

countResult('CSAResult.txt');

??? Error using ==> xlswrite

Error: Object returned error code: 0x800A03EC

Error in ==> countResult at 38

xlswrite('excelResult.xls', M, strcat('A',

num2str(xlsRow)));

——Matlab7.0中提供的可以省略工作表参数的使用方法，好像不对，我省略后，它将后面的表格range作为表明来使用。工作表参数可能不能省略。

>> countResult('CSAResult.txt',

1);

??? Invoke Error, Dispatch Exception:

Source: Microsoft Office Excel

Description:

“excelResult.xls”为只读。要保存当前工作簿的副本，请单击“确定”按钮，在“另存为”对话框中为副本指定一个名称。

Help File: D:\Program Files\Microsoft

Office\OFFICE11\2052\xlmain11.chm

Help Context ID: 0

Error in ==> countResult at 38

xlswrite('excelResult.xls', M, 'Sheet1',

strcat('A', num2str(xlsRow)));

分享：

喜欢

0

赠金笔

加载中，请稍候......

评论加载中，请稍候...

发评论

登录名： 密码： 找回密码 注册记住登录状态

昵   称：

评论并转载此博文

发评论

以上网友发言只代表其个人观点，不代表新浪网的观点或立场。