get_filename4w.m

地震、测井方面matlab代码,解释的比较详细

function [selected_file,ierr]=get_filename4w(ext,filename)
% Function interactively gets a file name with extrension ext for writing a data set
% Written by: E. R., December 13, 2000
% Last updated: August 16, 2003; display file name only if not compiled; second
%              output argument
%
%              [selected_file,ierr]=get_filename4w(ext)
% INPUT
% ext          file extension (including .) or filename. Extensions for which paths are defined are: 
%              '.sgy','.log','.tbl','.mat'.   Default: '.mat'
%              This extension is used to choose the initial directory path
%              and to show only files with this extension. Both can be changed 
%              in the file selector box
% OUTPUT
% selected_file  filename including path
% ierr         error code. ierr = logical(0) if a filename was selected and 
%              ierr = logical(1) if not.
%              global variables: S4M.filename   name of the file selected
%                                S4M.pathname   name of the path selected
%                                ABORTED (same as ierr)
%              this means that   selected_file = [S4M.pathname,S4M.pathname]

global S4M ABORTED

%[filepath,name,ext]=fileparts(filename)

%if isempty(name)
%  name='*';
% end

if isempty(S4M)
   presets
end


if nargin < 2 
   filename='';
   if nargin == 0
      ext='.mat';
   end
end

ierr=logical(0);


%        Open file selector window
if strcmpi(ext,'.sgy') |  strcmpi(ext,'sgy')
%   filter_spec=[S4M.seismic_path,filename,'.sgy;*.segy']%test
   filter_spec=[S4M.seismic_path,'.sgy;*.segy'];
   dialogue='Write SEG-Y file';
elseif strcmpi(ext,'.mat')
   filter_spec=[S4M.mat_path,'.mat'];
   dialogue='Write MAT file';
elseif strcmpi(ext,'.las') | strcmpi(ext,'las')
   filter_spec=[S4M.log_path,'.las'];
   dialogue='Write LAS file';
elseif strcmpi(ext,'.tbl')  |  strcmpi(ext,'tbl')
   filter_spec=[S4M.table_path,'*.tbl;*.txt;*.dat'];
   dialogue='Write TABLE to file';
else
   filter_spec=[S4M.default_path,ext];
   dialogue='Select file for output';
end 

[filename,pathname]=uiputfile(filter_spec,dialogue,filename);
if filename == 0; 
   uiwait(errordlg(' No file selected. Task terminated',S4M.name,'modal'))
   selected_file='';
   ierr=logical(1);
   ABORTED=logical(1);
   return;
end

selected_file=[pathname,filename];
if ~S4M.compiled
   disp(['File    ',selected_file,'    interactively selected']);
end
  
%   	Set path name to the path just used
if strcmpi(ext,'sgy')
  S4M.seismic_path=pathname;
elseif strcmpi(ext,'mat')
  S4M.mat_path=pathname;
elseif strcmpi(ext,'las')
  S4M.log_path=pathname;
elseif strcmpi(ext,'tbl')
  S4M.table_path=pathname;
end 

S4M.filename=filename;
S4M.pathname=pathname;
ABORTED=logical(0);