在GUI中查询并选择Matlab工作空间(workspace)中的变量

这是以前在中文论坛发过的帖子，现在转到这里。

大家做界面的时候应该遇到过这样的问题：如何查询并选择MATLAB工作空间（workspace）中的变量？

关键是我们可能事先不知道workspace中都有什么变量，就想通过一个界面查看workspace中的所有变量，并选择所需变量。为此，我做了一个GUI界面，用来通过界面操作查询并选择工作空间里的变量。GUI界面中带有下拉菜单，用来显示工作空间里的所有变量的相关信息，包括变量名，变量类型和大小。

界面效果如下图：
 

界面中用到的图标文件如下：
 

程序代码如下：

function xie_vardata = VarSelect
%选择工作空间里的变量
% vardata = VarSelect，通过GUI界面操作选择工作空间里的变量. GUI界面中带有下拉
% 菜单，用来显示工作空间里的所有变量的相关信息，包括变量名，变量类型和大小.
%
% Copyright  xiezhh.
% $Revision: 1.0.0.1 $  $Date: 2010/06/11 09:43:00 $
OldHandle = findobj( 'Type', 'figure', 'Tag', 'VarSelect' ) ;
if ishandle( OldHandle )
    close( OldHandle ) ;
end
scnsize = get(0,'screensize');
fs = 12*sqrt(scnsize(3)*scnsize(4)/(1024*768));
fig = figure('units','normalized','position',[0.35 0.35 0.3 0.2],...
    'menubar','none','name','选择工作窗口变量','resize','off',...
    'numbertitle','off','color',[0.925 0.914 0.847],'tag','VarSelect');
icon_VarSelect = imread('tubiao.jpg');
uicontrol(fig,'style','radiobutton','units','normalized',...
    'pos',[0.025 0.3 0.265 0.48],'string','',...
    'cdata',icon_VarSelect,'bac',[0.925 0.914 0.847])
uicontrol(fig,'style','text','units','normalized',...
    'pos',[0.475 0.73 0.35 0.15],'string','选择变量',...
    'fontsize',fs,'fontweight','bold','fontunits','normalized')

s = evalin('base','whos');
VarNames = char(s.name);
if isempty(VarNames)
    VarNames = '当前窗口没有变量';
    popstring = VarNames;
else
    for i = 1:size(VarNames,1)
        popstring{i,:} = [VarNames(i,:),'， 类型：',s(i).class,'，  大小：',...
            num2str(s(i).size(1)),'X',num2str(s(i).size(2))];
    end
end
setappdata(gcf,'VarNames',VarNames);

uicontrol(fig,'style','popupmenu','units','normalized',...
    'pos',[0.35 0.33 0.59 0.337],'string',popstring,...
    'fontsize',fs,'fontunits','normalized',...
    'backgroundcolor',[1 1 1],'tag','VarShow','value',1)
uicontrol(fig,'style','push','units','normalized',...
    'pos',[0.4 0.2 0.18 0.21],'string','确  定',...
    'fontsize',fs,'fontweight','bold',...
    'fontunits','normalized','callback',...
    ['handles = guidata(gcf);',...
    'value = get(handles.VarShow,''value'');'...
    'VarNames = getappdata(gcf,''VarNames'');'...
    'if ~strcmp(VarNames,''当前窗口没有变量'');'...
        'bs = VarNames(value,:);'...
        'xie_vardata = eval(bs);'...
        'set(gcf,''userdata'',xie_vardata);'...
    'end;'...
    'evalin(''base'',''clear value VarNames handles bs xie_vardata'');'...
    'uiresume(gcbf);']);
uicontrol(fig,'style','push','units','normalized',...
    'pos',[0.7 0.2 0.18 0.21],'string','取  消',...
    'fontsize',fs,'fontweight','bold',...
    'fontunits','normalized','callback',...
    ['set(gcf,''userdata'',[]);'...
    'delete(gcbf);']);
handles = guihandles(gcf);
guidata(gcf,handles);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
uiwait(gcf);
if nargout>0
    xie_vardata = get(gcf,'userdata');
end
if ishandle(fig)
    delete(fig);
end