背景:
批量制作指定格式、名称的空白文件,用于大量文件另存为过程中文件名替换,减少重命名时间
思路:
1.对于无规律的文件名,在excel表格第一列记录,如果是有规律的文件名,可以在matlab中用程序生成;
2.循环读取文件名,生成文件
代码实现:
[name,d]= xlsread('name.xlsx'); %读取存放有文件名的excel第二列,放入数组[name,d]
a=d(:,2); %读取数组第二列(本例中数据在第二列),放入元胞数组a
l=length(a); %读取元胞数组长度
for i= 1:l
fn=char(a(i)); %将元胞数组转换为字符串
fid = fopen(fn,'w'); %生成文件
fclose(fid);
end
----------------------------------
以下为批量重命名
注:1.调用dos下command进行重命名
2.新名称不能有空格
----------------------------------
files = dir('*.dwg');% read all dwg files under the path
len=length(files);%read the dwg files' amount
[name,d]= xlsread('name.xlsx');%read the newname in name.xlsx
a=d(:,1); %the newname in row 1
for i=1:len
oldname=files(i).name; %oldname
newname=char(a(i)); % newname
command = ['RENAME' 32 , oldname,32 newname]; %dos command
status = dos(command);
if status == 0
disp([oldname, ' 已被重命名为 ', newname])
else
disp([oldname, ' 重命名失败!'])
end
end