Matlab批量转换图片格式

%% 功能：把所有的图片文件转化为eps（或者其他格式）保存。

% 现在很多场合需要使用.eps格式的图片，手头的图片格式通常五花八门，有各

%种专业软件可以转化图片格式。这里提供一个小程序，实现图片格式的批量转换。%% 使用方法：

%A:新建一个名为‘In_File’的文件夹；

%B:把待转换图片放入其中；

%C:把m文件与‘In_File’的文件夹放在同一个文件夹中；

%D:转换成的图片生成在名为'Out_File'的文件夹中。

clc

clear

clf

permission_format={'png';'bmp';'jpg'};%允许的输入格式,可以添加，但

%添加的图片格式要能被matlab读取。

out_format='eps';%输出文件格式

Out_path='Out_File';%创建存储路径

if isdir(Out_path)~=1;

mkdir(Out_path)

end

file_path='C:\Users\yang\Desktop\图片\In_File\';%待转换图片位置

All_pic=dir(file_path);%所有图片文件的信息。

%%

for NN=1:size(All_pic);

file_info=All_pic(NN);%一张图片的信息

file_name=file_https://www.360docs.net/doc/527041472.html,;%图片的名字

full_file_name=[file_path,file_name];%图片的全名

fid=fopen(full_file_name);

if fid>0;

%% 找到去除后缀的文件名

name_size=size(file_name);

for NNN=1:name_size(2);

if file_name(NNN)=='.';

name_num=NNN;%记下点的位置

end

end

new_name=file_name(1:name_num-1);%点之前的部分

%% 判断输入格式是否符合要求。

old_format=file_name(name_num+1:end);%文件格式

old_format=lower(old_format);%转化为小写

Per=strfind(permission_format,old_format);

Per=cell2mat(Per);%图片后缀如果不在指定格式中，则不进行读取转换。

if ~isempty(Per)

Data=imread(full_file_name);%图片内容数据化

h=image(Data);%画图

axis off

axis equal

set(gcf,'units','centimeters','position',[2,2,21,13])%设置尺寸

saveas(h,['Out_File/',new_name,'.ueps'],'psc2')%保存图片

pause(0.1)%每处理完一张图片，可以留下一些时间来，供用户审视end

end

fclose all;

end