文件名排序Matlab程序

建不了的模。

由来：
手头上有一组100多张的jpg文件（尺寸一致），想把它们通过matlab弄成avi文件，然而通过sortrows函数对这些文件名排序时，发现它的顺序是
5 x# k: w. S6 z% w" Q; j1.jpg
  E: ^; u( r, ?' q, v7 E10.jpg
100.jpg
101.jpg
就是说sortrows是按文件的ASCII来排序的，没有考虑到字符串的长度因素。

当然如果文件名命名是001.jpg，002.jpg之类的。那么排序应当没有问题。
0 p) p8 E5 ?  I- }$ U* c1 }, ^当然如果文件名是连续的话，我们也可以用num2str(i)来构建相应的文件名。
如果不是上面两种情况的话，本文就是实现从小到大排序。
5 _% Z) e' d. g* K# N0 K

提示1：文件名的获取
' D3 ?* u# U+ i2 b+ e4 E通过dir可以得到目录下的文件名，比如：
jpgfile=dir('*.jpg');  %可以得到本目录下所有jpg文件的相关信息。
filename=str2mat(jpgfile.name);  

/ _% v2 t+ a3 k2 ]" U提示2：字符串数组
1 R; C1 s( ?# h* }: g先试一下：
  X8 p5 r, |% ?5 E8 ]# `str1=['mat';'lab';'sky']         %这句没有问题，因为每个字符串长度相同
) j0 O* S8 D) r: A, ~  [2 u7 Cstr2=['matlab';'sky';'love']  %这句会出问题，因为每个字符串长度不同
str3=strvcat('matlab','sky','love')  %这句没有问题，虽说每个字符串长度不同，但是它可以组合成字符串数组，不过str3是3*6的字符串数组，每行的长度都是6，系统给字符串不足6的后面自动补空格。
) P1 f/ A0 o2 K% y/ F: q
这样就导致上面得到的filename每行的长度都相同。
6 e) P" o, |$ I( ?: o" k( K/ k( M

本文原理：
先判断每行最后面有多少个空格，
6 c9 v0 b. I# i$ G$ h0 v然后在每行的最前面加与空格数相同的字符(该字符的ASCII码要很小)，组成新的字符串
这样排序就可以实现上述的文件名排序功能。
1 H9 G5 }; s. J8 ^5 y; M& ?

9 Z; i+ u" F) N本文代码：
function varargout=LengthSortStr(str)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- L: t0 u% ]+ ?% ~8 q) v%Argment:                str文件名组成的字符串数组
%        :                输出参数同sort函数
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ch_ascii=1;                                %用ascii码相应的字符放在文件名前，这个值越小越好
5 ]4 I: g( Z5 y; W% w0 o1 B# Y
6 K, X$ ]" Y' |3 Q[N,MAXLEN]=size(str);        %个数以及每行的长度
newname=[''];
, Y6 y$ \& R& [  g5 z
for i=1:N
        BlackSpace=0;
3 l, r9 B/ u2 m  s        while (str(i,MAXLEN-BlackSpace)==' ') %本行有多少个空格
. Q6 U$ O' i* @" s                BlackSpace=BlackSpace+1;
* `$ N7 Q; E! _4 H4 h! k) A        end
0 V5 H2 h& u/ G8 A: g7 b7 a                %将本行后面的空格用ch_ascii补在最前面，并去掉行尾的空格
        newstr(i,=[repmat(char(ch_ascii),1,BlackSpace), str(i,1:MAXLEN-BlackSpace)];
" e  W. q$ R+ O2 |1 w" f+ B+ rend
[sortstr,order]=sortrows(newstr);          %新字符排序，主要要得到排序的序号
sortstr=str(order,;                                %由这个序号生成原始的排序名
0 A' Z1 y1 l, N. @/ k- a8 }
if nargout<=1
$ a, @* g+ Z* a# t" q8 y        varargout{1}=sortstr;
elseif nargout==2
0 m, }, J/ S1 p# T, u        varargout{1}=sortstr;
        varargout{2}=order;
end
# ]3 _9 f* z) A  t- y复制代码
- Q" f3 G$ L+ F8 N实例：
%对D盘下面的bmp图的文件名进行排序
clear
3 N7 n- c8 o" mdirpath='d:\';                %路径
extname='bmp';                %扩展名
$ {2 z7 ?( ~7 H& C- l
if dirpath(end)~='\'                %如果路径后面没有加\，添加
( g! x& P. Y& m. d0 h        dirpath=[dirpath,'\'];
end

5 K+ Y2 G: b1 r- q+ \( ~%先取出目录下的文件信息
pic=dir([dirpath,'*.',extname]);
filename=str2mat(pic.name); %取得文件名

%调用函数
sortfile=LengthSortStr(filename)
复制代码

/ `! f) a7 @  D; ^, U( n; R

冻鱼

谢谢楼主分享

15733266829

thank you.!!!
9 h* ~7 y8 w* y$ F6 ]) T  q( R