clc; clear all; close all; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% for i=1:7 %源文件夾路徑 rootpath = 'G:zyp_thanksmetro_test esultMergeODByDay_6'; %輸前途徑 torootpath = 'G:zyp_thanksmetro_test esultMergeODByDay_6_zhengyu'; %源文件夾路徑（獲得指定類型的文件） path = strcat(rootpath,num2str(i),'*.csv'); %輸前途徑 topath = strcat(torootpath,num2str(i),''); %創建輸出文件夾 mkdir(topath); dirs=dir(path); % 替換成你想要的路徑。讀取某個目錄的指定類型文件列表，返回結構數組。 dataDir=strcat(rootpath,num2str(i),'');%數據目錄 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% dircell=struct2cell(dirs)'; % 結構體(struct)轉換成元胞類型(cell)，轉置1下是讓文件名按列排列。 filenames=dircell(:,1); % 第1列是文件名 [m n] = size(filenames); for i=1:m strfilename = [dataDir filenames{i}]; tofilename = [topath filenames{i}]; %fprintf('文件%d:%s ',i,strfilename); X = load(strfilename); %A,B是獲得的不需要改變的數據，下面作為合并用的 A = X(:,1:2); B = X(:,6:7); %獲得3維向量，用作pca變換 data = X(:,3:5); %pca [coef,score,latent,t2] = princomp(data); newdata = score(:,1:2);%前 2列 ANS = [A newdata B]; save(tofilename, 'ANS', '-ASCII') end end