matlab修改输出表示,科学网—MATLAB_基本输入输出操作(修改版) - 程黎鹿的博文

MATLAB_基本输入输出操作(修改版)

已有 3626 次阅读

2009-1-23 19:23

||系统分类:科研笔记

用这篇烂代码，在MATLAB中文论坛上赚了4元m币。纪念一下

clear

in_out=figure('name','输入输出联系','position',[200 100 700 500]);

ii=1;

%copyright snowdeer

%Author email:chenglilu1027@163.com

%input and output

edit1=uicontrol(in_out,'style','edit',...

'unit','normalized',...

'position',[0.14,0.37,0.1,0.4],...

'string','姓名');

edit2=uicontrol(in_out,'style','edit',...

'unit','normalized',...

'position',[0.3 0.37,0.6,0.4],...

'string','成绩');

push1=uicontrol(gcf,'style','push',...

'unit','normalized',...

'position',[0.1 0.8 0.1 0.1],...

'string','读取文件',...

'callback',['[filename pathname]=uigetfile({''*.xls'';''*.doc''},''choose & file'');',...

'str=[pathname filename];',...

'[chengji xingming]=xlsread(str);',...

'ii=3;',...

'set(edit1,''string'',xingming(2));',...

'set(edit2,''string'',num2str(chengji(1,:)));']);

push2=uicontrol(gcf,'style','push',...

'unit','normalized',...

'position',[0.3 0.8 0.1 0.1],...

'string','存储文件',...

'callback',['[filename1 pathname1]=uiputfile({''*.xls'';''x*.doc''},''save & file'');',...

'str1=[pathname1 filename1];',...

'fid=fopen(str1,''wt'');',...

'for p=1:(size(xingming,1)-1);',...

'fprintf(fid,''%s'',cell2mat(xingming(p+1)));',...

'fprintf(fid,''%d'',chengji(:,p));',...

'fprintf(fid,''%cn'','' '');',...

'end;',...

'fclose(fid);']);

push3=uicontrol(gcf,'style','push',...

'unit','normalized',...

'position',[0.5 0.8 0.1 0.1],...

'string','下一个',...

'callback',[ 'if ii==1;',...

'disp(''请输入数据'');',...

'else;',...

'set(edit1,''string'',xingming(ii));',...

'set(edit2,''string'',num2str(chengji(ii-1,:)));',...

'if ii

'ii=ii+1;',...

'else;',...

'ii=2; ',...

'end;',...

'end']);

转载本文请联系原作者获取授权，同时请注明本文来自程黎鹿科学网博客。

链接地址：http://blog.sciencenet.cn/blog-95275-211341.html

上一篇：MATLAB_基本输入输出操作

下一篇：关于matlab--用户界面的菜鸟问题