www.pudn.com > LPCToolbox.rar > GETSOUND.M

function [snd,Fs,err,msg] = getsound(sndfilename, ext, defaultFs) 
 
snd = []; Fs = 0; err=0; msg = '';  
 
if ~exist(fullfile(pwd,sndfilename), 'file'), 
  err=3; msg = sprintf('Cannot find %s in current directory', sndfilename); 
  return; 
end 
 
if nargin < 2, 
  k = findstr(sndfilename, '.'); 
  ext = lower(sndfilename(k+1:end)); 
end 
 
if strcmp(ext, 'raw') 
 snd = rawread(sndfilename); Fs = defaultFs; 
elseif strcmp(ext, 'wav') 
 [snd,Fs,bits] = wavread(sndfilename); 
elseif strcmp(ext, 'au') 
 [snd,Fs,bits] = auread(sndfilename); 
else 
 err=4; msg = sprintf('%s is not a .AU, .WAV or .RAW file', sndfilename); 
 return; 
end 
 
if isempty(snd), 
  err=5; msg = sprintf('Problem reading %s', sndfilename); 
  return; 
end