When writing array data to Excel/CSV file each character in new column

Question

Anke Kügler 2016-11-17

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/312637-when-writing-array-data-to-excel-csv-file-each-character-in-new-column

评论： Anke Kügler 2016-11-17

Hi,

I'm trying to write a script that runs through a folder of files and pulls out all the names that are then written to Excel. However when I do this, I will get a spreadsheet where each character is put in a new column. It's supposed to be really simple and I'm obviously missing something, but I'm not completely sure, what.

clear all;
close all;
pathname=fullfile(uigetdir());       
dirdata = dir(fullfile(pathname,'.'));
dirdata= dirdata(arrayfun(@(x) x.name(1), dirdata) ~= '.');
fnsz = size(dirdata); 
numfiles = fnsz(1);
     for n=1:numfiles-1    
      fullfilename=fullfile(pathname,dirdata(n).name);
      name=regexp(char(dirdata(n).name),'\.','split');
      fileID=name{1,1};
      filenames(n,:)=[fileID];
     end
[savefile,savepath]=uiputfile('*.xlsx', 'Save results in an Excel file');
outname=fullfile(savepath,savefile);
if ispc
xlswrite(outname,filenames,'Sheet1','A1');
else
xlswrite(outname,filenames,'Sheet1','A1');
end

Thanks.

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

KSSV 2016-11-17

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/312637-when-writing-array-data-to-excel-csv-file-each-character-in-new-column#answer_243616

编辑：KSSV 2016-11-17

在 MATLAB Online 中打开

close all;
pathname=fullfile(uigetdir());
dirdata = dir(fullfile(pathname,'.'));
dirdata= dirdata(arrayfun(@(x) x.name(1), dirdata) ~= '.');
fnsz = size(dirdata);
numfiles = fnsz(1);
filenames = cell(numfiles-1,1) ;
for n=1:numfiles-1
    fullfilename=fullfile(pathname,dirdata(n).name);
    name=regexp(char(dirdata(n).name),'\.','split');
    fileID=name{1,1};
    filenames{n}=fileID;
end
[savefile,savepath]=uiputfile('*.xlsx', 'Save results in an Excel file');
outname=fullfile(savepath,savefile);
if ispc
    xlswrite(outname,filenames,'Sheet1','A1');
else
    xlswrite(outname,filenames,'Sheet1','A1');
end