＊CSVのヘッダーの一覧を取り出す

%% headerを取り出してcellにするスクリプト %%

sFname;%file name

nHeader;%headerのある行

fid=fopen(sFname);

for ii=1:nHeader

sLine=fgets(fid);

end

fclose(fid);

vecSep=strfind(sLine,',');

vecSepPlus=[0 vecSep (length(sLine)+1)];

celHeader=[];

for ii=1:(length(vecSep)+1)

celHeader{ii}=sLine((vecSepPlus(ii)+1):(vecSepPlus(ii+1)-1));

% 時々空欄が入っているので外す

vecBlank=strfind(celHeader{ii},' ');

celHeader{ii}(vecBlank)=[];

end

disp(celHeader);%headerの中身