Matlab处理Excel数据17个案例.docVIP

Matlab处理Excel数据的17个案例 第2_1讲 添加文件名 第2_2讲 替换 第2_3讲 调整 第2_4讲 strmatch 第2_5讲 读取函数 第2_6讲 写出函数 第2_7讲 删除行 第2_8讲 组合 第2_9讲 提取 第2_10讲 分开 第2_11讲 比较 第2_12讲 排列 第2_13讲 批量处理 第2_14讲 添加 第2_15讲 实例 把十字交叉型数据展开。 第2_16讲 实例二 把几列数据组合在一起放到第一列。 第2_17讲 实例三 把代号和描述包装成特定格式。 附录（部分程序） 2.1 Excel处理：把Excel表名称写入该表的C1位置 把该功能写成wenjianming2c1.m函数文件，代码如下： function y=wenjianming2c1(lujingin,lujingout,wenjianming) %把文件名写入Excel表格的C1 %在路径lujingin和lujingout中分别有文件wenjianming和标题行文件mbwenjianming %如果大家有这方面的需求和案例，可以通过微信公众号（matlab分享小站）给我留言，会选取好的案例持续更新本系列的分享，欢迎交流与探讨。 %初始化输入缺省值 if isempty(lujingin) lujingin=E:\matlab\test\; end if isempty(lujingout) lujingout=E:\matlab\test\test1\; elseif lujingout==1 lujingout=lujingin end mbwenjianming=wenjianming; fuzhi(lujingin,lujingout,.xls,mbwenjianming,-1);%复制excel标题行文件 status=xlswrite([lujingout,wenjianming],{wenjianming},1,C1);%写入 if status==1 disp([wenjianming,*****Excel文件名添加C1成功*****]); else disp([wenjianming,？？？？？Excel文件名添加C1写出失败？？？？？]); end wenjianming2c1([],[],mmlrz) 2.2 Excel处理：替换函数，把Excel里所有字符A替换为字符B 把该功能写成tihuan.m函数文件，代码如下： function y=tihuan(lujingin,lujingout,mbwenjianming,wenjianming,A,B) %替换，把Excel里所有字符串A替换为字符串B %在路径lujingin和lujingout中分别有文件wenjianming和标题行文件mbwenjianming %初始化缺失路径，数字文件名转换成字符 if isempty(lujingin) lujingin=E:\matlab\test\; end if isempty(lujingout) lujingout=E:\matlab\test\test1\; end if isa(wenjianming,double) wenjianming=num2str(wenjianming); end %读入excel数据 [a,b,c]=xlsread([lujingin,wenjianming]);%读取excel数据 %处理 for i=1:size(c,1) for j=1:size(c,2) if ~isnan(c{i,j}) cc{i,j}=strrep(c{i,j},A,B);%遍历所有数据并替换 else cc{i,j}=nan; end end end %写出到外部excel xinwenjianming=wenjianming; if ~isempty(mbwenjianming) %如果模板文件名不为空，则先复制模板文件在写入 fuzhi(lujingout,-1,[],mbwenjianming,xinwenjianming); end status=xlswrite([lujingout,xinwenjianming],cc); if status==1 disp([xinwenjianming,_,B,*****Excel替换成功*****]); else disp([xinwenjianming,_,B,？？？？？Excel替换失败？？？？？]); end tihuan([],[],[],mmlrz,D63