暇つぶしのページ

クズみたいなTipsを貼り付けてみる

用途はタイトル通り．なかなか便利ですはい()

function [name] = Dataread()

% Dataread.m
% 2012/05/21 Ver1.0 jimmie
% Read in named file(.wav)

dim=[];
if nargin==2
    name=varargin{1};
    dim=varargin{2};
else
    filefilter={
        '*.wav','wav file (*.wav)';
        '*.*','ALL Files (*.*)';
        };
        %read in
        FileDLG='Open Data File';
        [name,path]=uigetfile(filefilter,FileDLG);
        %if push cancel
        if name==0
            error('ファイル名がキャンセルされましたので終了します');
            varargout={[],[]};
            return;
        end
end
name=[path,name];