input_path = uigetdir('C:\Users\Administrator\Desktop','文件输入目录');
save_path = uigetdir('C:\Users\Administrator\Desktop','文件保存目录');
if input_path(end)~='\'
input_path=[input_path,'\'];
end
if save_path(end)~='\'
save_path = [save_path,'\'];
end
DIRS=dir([input_path,'*.tdms']); %扩展名
DIRS2 = dir([save_path,'*.xlsx']);
n=length(DIRS);
n2 = length(DIRS2);
name_save = [];
for j = 1:n2
name_save_length = length(DIRS2(j).name);
name_save_length = name_save_length - 5;
DIRS2(j).name = DIRS2(j).name(1:name_save_length);
name_save{j} = DIRS2(j).name;
end
for i=1:n
%for i=1:n
% a = DIRS(i).name %%%%%%%要载入做处理里弄了
flag = 0;
fig1 = strcat(input_path,DIRS(i).name); %%输入路径，用于convertTDMS函数
length_tdms_name = length(DIRS(i).name);
length_tdms_name = length_tdms_name - 5;
DIRS(i).name = DIRS(i).name(1:length_tdms_name);
table_name = DIRS(i).name;
for j_1 = 1:n2
if strcmp(table_name,name_save{j_1}) %%%如果已经存在这名字相同的表格
flag = 1;
break;
end
end
if (flag == 1)
continue;
else
fig2 = [save_path,table_name];
fig2 = strcat(fig2,'.xlsx');
[ConvertedData,ConvertVer,ChanNames,GroupNames,ci]=convertTDMS(true,fig1); %%convertTDMS.m需要自己下载
excel_name = ConvertedData.FileName; %%你要的数据具体在哪个地方得看具体tdms格式文件
high_temp = ConvertedData.Data.MeasuredData(1,3).Data;
high_place = ConvertedData.Data.MeasuredData(1,4).Data;
low_temp = ConvertedData.Data.MeasuredData(1,5).Data;
low_place = ConvertedData.Data.MeasuredData(1,6).Data;
data_list = [high_temp high_place low_temp low_place];
[status, message] = xlswrite(fig2,data_list,excel_name,'A1');
end
end
- 1
- 2
- 3
前往页