clc
clear;
Path = ‘F:\09 港珠澳数据\最新数据\DMP’;
F=dir(Path); %显示文件下所有文件
F1=F(3:end,:); %获取十五天的数据
F2={F1.name}’; %获取文件名称
Length_F2=size(F2,1); %获取文件长度
for i=1:Length_F2 %第一个循环是获取文件夹下的文件夹
F3=strcat(Path,F2(i),’’); %拼凑字符串,获取文件路径
str=string(F3); %将文件路径转为字符串
File=dir(fullfile(str,’*.csv’)); %获取文件夹下所有csv文件
FileNames = {File.name}’; %获取csv文件名称
str1=string(FileNames); %将文件名称转为字符串
Length_Names=size(FileNames,1);
Path1=‘E:\22 学习相关’; %将产生新的csv存放路径
Path2=strcat(Path1,F2(i),’’); %拼凑字符串
Path3=strcat(Path1,F2(i)); %拼凑字符串
Length_Names=size(File,1) %获取csv文件个数
for k=1:Length_Names
K_Trace = strcat(str,FileNames(k)); %获取csv文件
file_new=csvread(K_Trace{1,1},1,1); %读入csv文件
q=strsplit(str1(k),’.’) ; %拆分字符串
f1=file_new(:,1);f2=file_new(:,2);f3=file_new(:,3);f4=file_new(:,4);f5=file_new(:,5);f6=file_new(:,6);
f7=file_new(:,7);f8=file_new(:,8);f9=file_new(:,9);f10=file_new(:,10);f11=file_new(:,11);f12=file_new(:,12);
f13=file_new(:,13);f14=file_new(:,14);f15=file_new(:,15);f16=file_new(:,16);f17=file_new(:,17);f18=file_new(:,18);
f19=file_new(:,19);f20=file_new(:,20);f21=file_new(:,21);f22=file_new(:,22);f23=file_new(:,23);f24=file_new(:,24);
b=vertcat(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24); %应该写一个循环
SS=strcat(Path2,q{1,1},’.csv’); %新CSV文件需要存放的路径
mkdir(Path3{1,1}) %没有文件时,新增文件夹
csvwrite(SS{1,1},b) %写成新的CSV文件
end
end
01-06
1870
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)
06-03
5537
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)