tdms格式文件批量转换为excel格式

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