sptexport.m

有关matlab的电子书籍有一定的帮助希望有用

function varargout = sptexport(varargin)
%SPTEXPORT  Export Dialog box for SPTool.

%   Copyright (c) 1988-98 by The MathWorks, Inc.
% $Revision: 1.8 $

if nargin == 0 | ~isstr(varargin{1})
    action = 'init';
else
    action = varargin{1};
end

switch action
%-----------------------------------------------------------------------------
% [componentSelect,fname,wd] = ...
%    sptexport(components,session,{selectionInd},wd,componentSelect,fname)
% Inputs:
%   selectionInd is a cell array with one element for
%   each column in the SPTool.
%   Each element of the cell array contains an index vector
%   which indicates which items in that column are currently
%   selected.
%   componentSelect, fname - optional, default to 1; 0 respectively
%     fname is a string or 0
%   wd - working directory - directory string for exporting files
%  Outputs:
%   componentSelect - integer;  1==>All components
%                               2-N ==>export component componentSelect-1
%                  this is the value of the popup menu for masking certain types
%                  of objects
%   fname - string; name of the file to which the objects are exported
%   wd - working directory - updated directory string for exporting files
case 'init'
    components = varargin{1};
    session = varargin{2};
    selectionInd = varargin{3};
    wd = varargin{4};
    if nargin > 4
        componentSelect = varargin{5};
    else
        componentSelect = 1;
    end
    if nargin > 5
        fname = varargin{6};
    else
        fname = 0;
    end
    figname = 'Export from SPTool';
    cancelstring = 'Cancel';
    fus = 5;  % frame / uicontrol spacing
    ffs = 8;
    uh = 20;  % uicontrol height
    bw = 175; % button width
    lfs = 5; %label / frame spacing
    lbs = 3; % label / box spacing
    lh = 16; % label height
    listh = 300; % listbox height
    pw = 120;  % popup width
    
    fp = get(0,'defaultfigureposition');
    w = 3*ffs+2*fus+2*bw;
    h = 2*fus+listh+uh+lh/2+ffs+ffs;
    fp = [fp(1) fp(2)+fp(4)-h w h];  % keep upper left corner fixed

    fig_props = { ...
       'name'                   figname ...
       'units'                  'pixels' ...
       'resize'                 'off' ...
       'numbertitle'            'off' ...
       'windowstyle'            'modal' ...
       'menubar'                'none' ...
       'createfcn'              ''    ...
       'position'               fp   ...
       'closerequestfcn'        'sbswitch(''sptexport'',''cancel'')' ...
       'color'                  get(0,'defaultuicontrolbackgroundcolor') ...
        };

    fig = figure(fig_props{:});
    
    exportFramePos = [ffs ffs 2*fus+bw 2*fus+lh/2+uh+listh];
    ud.exportFrame = uicontrol('units','pixels',...
              'style','frame','position',exportFramePos);
    ud.exportLabel = framelab(ud.exportFrame,'Export List',lfs,lh);

    % Tweak position of label & popup: [horz_pos ver_pos width height]
    switch computer
    case 'MAC2'
       slTweak   = [0 0 0 0];
       spupTweak = [0 0 0 0];
    case 'PCWIN'
       slTweak   = [0 -2 0 0];
       spupTweak = [0  2 0 0];
    otherwise  % UNIX
       slTweak   = [0 -3 0 0];
       spupTweak = [0  0 0 0];    
    end

    ud.showLabel = uicontrol('style','text',...
                    'units','pixels',...
                    'string','Show:',...
                    'horizontalalignment','right',...
                    'position',[exportFramePos(1)+fus ...
                        exportFramePos(2)+fus...
			exportFramePos(3)-2*fus-pw-lbs uh]+slTweak );
    
    ud.showPopup = uicontrol('style','popupmenu',...
                    'units','pixels',...
                    'string',{'All' components.name},...
                    'value',componentSelect,...
                    'position',[exportFramePos(1)+exportFramePos(3)-fus-pw ...
                        exportFramePos(2)+fus pw uh]+spupTweak,...
                    'callback','sbswitch(''sptexport'',''popup'')');
        
    [fontname,fontsize] = fixedfont;
    ud.exportList = uicontrol('style','listbox','backgroundcolor','w',...
                        'units','pixels',...
                        'position',exportFramePos+[fus 2*fus+uh ...
                                 -2*fus  -(2*fus+uh+lh/2)],...
                        'fontname',fontname,...
                        'fontsize',fontsize,...
                        'max',2,...
                        'callback','sbswitch(''sptexport'',''list'')');
          
    button1Pos = [2*ffs+2*fus+bw fp(4)-ffs-uh bw uh];
    ud.diskButton = uicontrol('style','pushbutton',...
      'string','Export to Disk...',...
      'units','pixels',...
      'position',button1Pos-1*[0 uh+fus 0 0],...
      'callback','sbswitch(''sptexport'',''disk'')');
          
    ud.workspaceButton = uicontrol('style','pushbutton',...
      'units','pixels',...
      'string','Export to Workspace',...
      'position',button1Pos-2*[0 uh+fus 0 0],...
      'callback','sbswitch(''sptexport'',''workspace'')');
          
    ud.spacer = uicontrol('style','frame',...
      'units','pixels',...
      'position',button1Pos-3*[0 uh+fus 0 0]+[0 uh/2-1 0 -uh+2]);
              
    ud.cancelButton = uicontrol('style','pushbutton',...
      'units','pixels',...
      'string',cancelstring,...
      'position',button1Pos-4*[0 uh+fus 0 0],...
      'callback','sbswitch(''sptexport'',''cancel'')');
              
    ud.helpButton = uicontrol('style','pushbutton',...
      'units','pixels',...
      'string','Help',...
      'position',button1Pos-5*[0 uh+fus 0 0],...
      'callback','sbswitch(''sptexport'',''help'')');
    
    ud.flag = '';    
    ud.session = session;
    ud.components = components;
    ud.selectionInd = selectionInd;
    for i = 1:length(ud.selectionInd)
        if isempty(ud.session{i})
            ud.selectionInd{i} = [];
        end
    end
    
    set(fig,'userdata',ud)
    
    sptexport('popup')  % sets listbox string and value
    
    done = 0;
    while ~done
        waitfor(fig,'userdata')

        ud = get(fig,'userdata');
        
        switch ud.flag
        case 'help'
        case 'disk'
            if isequal(fname,0) | isempty(fname)
                fname = 'export.mat';
            end
            matlab_wd = pwd;
            cd(wd)
            [fname,p]=uiputfile(fname,'Export to Disk');
            cd(matlab_wd)
            if ~isequal(fname,0)
                sessionIndex = get(ud.exportList,'userdata');
                ind = get(ud.exportList,'value');
                i = sessionIndex(ind(1),1);
                j = sessionIndex(ind(1),2);
                fname = fullfile(p,fname);
                assigninMat(fname,ud.session{i}(j).label,ud.session{i}(j))
                for k = 2:length(ind)
                    i = sessionIndex(ind(k),1);
                    j = sessionIndex(ind(k),2);
                    assigninMat(fname,...
                         ud.session{i}(j).label,ud.session{i}(j),'-append')
                end
                wd = p;
                done = 1;
            end
            
               
        case 'workspace'           
            w = evalin('base','whos');
            wname = {w.name};
            sessionIndex = get(ud.exportList,'userdata');
            ind = get(ud.exportList,'value');
            
            overwrite = 0;
            for k=1:length(ind)
                i = sessionIndex(ind(k),1);
                j = sessionIndex(ind(k),2);
                if findcstr(wname,ud.session{i}(j).label)
                    overwrite = 1;
                    break
                end
            end
            if overwrite
                switch questdlg(...
                         {'At least one of the items you are exporting to'
                          'the workspace already exists in the workspace ' 
                          'as a variable.'
                          'By exporting you are replacing any existing'
                          'variables that have conflicting names.'
                          ' '
                          'Are you sure you want to export?'},...
                          'Variable Name Conflict','Yes','No','No')
                case 'Yes'
                   overwriteOK = 1;
                case 'No'
                   overwriteOK = 0;
                end
            else
                overwriteOK = 1;
            end
            
            if overwriteOK 
                for k = 1:length(ind)
                    i = sessionIndex(ind(k),1);
                    j = sessionIndex(ind(k),2);
                    assignin('base',...
                         ud.session{i}(j).label,ud.session{i}(j))
                end
                done = 1;
            end
            
        case 'cancel'
            %   do nothing and return
            done = 1;
        end

        if ~done
            ud.flag = [];
            set(fig,'userdata',ud)
        end
    end
    
    varargout{1} = get(ud.showPopup,'value');
    varargout{2} = fname;
    varargout{3} = wd;
    
    delete(fig)
    
%------------------------------------------------------------------------
% sptexport('popup')
case 'popup'
    fig = gcf;
    ud = get(fig,'userdata');
    
    val = get(ud.showPopup,'value');
    
    if val>1
        session = ud.session(val-1);
        components = ud.components(val-1);
        selectionInd = ud.selectionInd(val-1);
    else
        session = ud.session;
        components = ud.components;
        selectionInd = ud.selectionInd;
    end
    
    listStr = {};
    sessionIndex = [];
    for i=1:length(session)
        for j=1:length(session{i})
            str = [components(i).structName ': ' session{i}(j).label ' [' ...
                   session{i}(j).type ']'];
            listStr = {listStr{:} str};
            if val>1
                sessionIndex = [sessionIndex; val-1 j];
            else
                sessionIndex = [sessionIndex; i j];
            end
        end
    end

    if val == 1
        listVal = selectionInd{1}(:);
        cumulativeTotal = 0;
        for i=2:length(selectionInd)
            cumulativeTotal = cumulativeTotal + length(ud.session{i-1});
            listVal = [listVal(:); selectionInd{i}(:)+cumulativeTotal];
        end
    else
        listVal = selectionInd{1};
    end
    set(ud.exportList,'string',listStr,'value',listVal,'userdata',sessionIndex);
    sptexport('list')
    
case 'list'
% callback of listbox
    fig = gcf;
    ud = get(fig,'userdata');
    val = get(ud.exportList,'value');
    if isempty(val)
        set([ud.diskButton ud.workspaceButton],'enable','off')
    else
        set([ud.diskButton ud.workspaceButton],'enable','on')
    end
    
case 'help'
    % Callback code for pushbutton with Tag "Help"
    fig = gcf;
    uiList = findobj(fig,'type','uicontrol');
    saveVis = get(uiList,'visible');
    if strcmp(computer,'PCWIN')
        set(uiList,'visible','off')
    end
    ud = get(fig,'userdata');
    fp = get(fig,'position');
    sz = sptsizes;
    f = uicontrol('style','frame',...
           'position',[sz.fus sz.fus fp(3)-2*sz.fus fp(4)-sz.fus-1],...
           'tag','exporthelp');
    tp = [2*sz.fus 4*sz.fus+sz.uh fp(3)-4*sz.fus fp(4)-(6*sz.fus+sz.uh)];
       % text position
    [fontname,fontsize]=fixedfont;
    t = uicontrol('style','listbox','position',tp,'string',exportHelpStr,'max',2,...
         'tag','exporthelp','horizontalalignment','left',...
         'backgroundcolor','w','fontname',fontname,'fontsize',fontsize);
    bp = [fp(3)/2-sz.fus-sz.bw/2 2*sz.fus sz.bw sz.uh];  % button position
    b = uicontrol('style','pushbutton','position',bp,...
         'tag','exporthelp','string','OK',...
         'callback','delete(findobj(gcf,''tag'',''exporthelp''))');
    waitfor(b)
    if all(ishandle(uiList))
        if strcmp(computer,'PCWIN')
            set(uiList,{'visible'},saveVis)
        end
    end
    
otherwise
    fig = gcf;
    ud = get(fig,'userdata');
    ud.flag = action;
    set(fig,'userdata',ud)

    delete(findobj(fig,'tag','exporthelp'))

end


function assigninMat(varargin)
% assigninMat - assign variable names in Mat file
% assigninMat(fname,varname,var) overwrites fname with the variable named
%   varname with value var
% assigninMat(fname,varname,var,'-append') appends var to MAT file fname

eval([varargin{2} '= varargin{3};'])
if nargin<=3
    save(varargin{1},varargin{2})
else
    save(varargin{1},varargin{2},'-append')
end

function s = exportHelpStr
% return cell array of strings which describes the export dialog

s = {
'EXPORTING DATA FROM SPTOOL'
' '
'EXPORT LIST   This is a list of objects in the'
'SPTool. Click on an unselected object to select'
'that object alone.  To add or remove a single '
'object to or from the selection, Control click'
'(Command click on the Mac) on that object.  To'
'add or remove a range of objects to the selection,'
'Shift click.'
' '
'EXPORT BUTTONS (TO DISK and TO WORKSPACE)'
'By clicking one of these buttons you will export the'
'selected objects.  Each selected object will be'
'saved as a 1-by-1 structure variable.  You can '
'use and modify the fields of these structures, but'
'be careful since the SPTool and its clients might'
'not be able to recognize an object once you''ve'
'modified it.'
'   TO DISK - asks you for a file name and saves'
'    the variables in a MAT-file.'
'   TO WORKSPACE - saves the variables in the '
'    base MATLAB workspace.'
' '
'SHOW POPUP MENU  Select the type of objects you would'
'like to choose from in this menu.  Only objects of'
'the selected type will appear in the ''Export'
'List''. '
};