文件名排序Matlab程序

建不了的模。

由来：
3 j, Y3 t$ n* L手头上有一组100多张的jpg文件（尺寸一致），想把它们通过matlab弄成avi文件，然而通过sortrows函数对这些文件名排序时，发现它的顺序是
6 J2 {) f- }/ l4 h1.jpg
10.jpg
100.jpg
101.jpg
4 V, P. U* c2 u7 n) i就是说sortrows是按文件的ASCII来排序的，没有考虑到字符串的长度因素。

当然如果文件名命名是001.jpg，002.jpg之类的。那么排序应当没有问题。
% A$ Q: \) _- c当然如果文件名是连续的话，我们也可以用num2str(i)来构建相应的文件名。
如果不是上面两种情况的话，本文就是实现从小到大排序。

# q8 g) C8 P! N0 o3 b4 T6 r% a( b
& [) O9 L' s& I0 G提示1：文件名的获取
- Q4 q$ ?3 ^2 _7 D& h6 _$ n通过dir可以得到目录下的文件名，比如：
; I4 C+ v& m( P" O  ?2 H4 m' rjpgfile=dir('*.jpg');  %可以得到本目录下所有jpg文件的相关信息。
filename=str2mat(jpgfile.name);  
8 Y4 N$ w, z) A+ `
7 p) }4 n" J+ x) t3 u  i提示2：字符串数组
先试一下：
str1=['mat';'lab';'sky']         %这句没有问题，因为每个字符串长度相同
str2=['matlab';'sky';'love']  %这句会出问题，因为每个字符串长度不同
str3=strvcat('matlab','sky','love')  %这句没有问题，虽说每个字符串长度不同，但是它可以组合成字符串数组，不过str3是3*6的字符串数组，每行的长度都是6，系统给字符串不足6的后面自动补空格。

* m$ h4 ?5 O9 W这样就导致上面得到的filename每行的长度都相同。

5 P: H, B( h/ L
本文原理：
先判断每行最后面有多少个空格，
0 |) o9 l: A* o0 H& N3 l然后在每行的最前面加与空格数相同的字符(该字符的ASCII码要很小)，组成新的字符串
: k7 z# P- X" T这样排序就可以实现上述的文件名排序功能。

6 `$ |( h' }& }7 U# N( ^- [
本文代码：
function varargout=LengthSortStr(str)
9 [- r: M) `& B8 z3 Z, ?%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- L! T& F* _! j! P%Argment:                str文件名组成的字符串数组
%        :                输出参数同sort函数
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ch_ascii=1;                                %用ascii码相应的字符放在文件名前，这个值越小越好
5 x7 W& v/ y6 W% p7 P. _
7 k+ B' B& D/ c7 Y9 F. P0 w/ l[N,MAXLEN]=size(str);        %个数以及每行的长度
+ Y2 L& r4 R$ P: Znewname=[''];
% H& m/ p9 C0 f2 z  f. x6 p
for i=1:N
        BlackSpace=0;
) P# K% D) U4 X' y7 R        while (str(i,MAXLEN-BlackSpace)==' ') %本行有多少个空格
2 C7 }% d2 Z& ^" j/ j# s+ A5 c                BlackSpace=BlackSpace+1;
        end
                %将本行后面的空格用ch_ascii补在最前面，并去掉行尾的空格
        newstr(i,=[repmat(char(ch_ascii),1,BlackSpace), str(i,1:MAXLEN-BlackSpace)];
8 c6 b3 w2 S9 `, ]2 J- gend
[sortstr,order]=sortrows(newstr);          %新字符排序，主要要得到排序的序号
sortstr=str(order,;                                %由这个序号生成原始的排序名
6 v4 d7 f! o% P& K* @: M
if nargout<=1
        varargout{1}=sortstr;
( b' J# E0 y; d! |( Belseif nargout==2
2 R5 ]# U, J- l" I' H& f        varargout{1}=sortstr;
, i. W, M) w2 ]+ A$ K  n9 X+ T1 Q+ y        varargout{2}=order;
end
复制代码
) h' Q' y/ j' x9 @2 z; j5 Q实例：
%对D盘下面的bmp图的文件名进行排序
clear
" G, L; u! d$ Sdirpath='d:\';                %路径
extname='bmp';                %扩展名
- Z* d7 \* b! j+ r. p) b
if dirpath(end)~='\'                %如果路径后面没有加\，添加
        dirpath=[dirpath,'\'];
end

& k2 K0 Q4 z" A0 q. i4 k* g% s' g  a%先取出目录下的文件信息
pic=dir([dirpath,'*.',extname]);
/ o+ Q! {0 P; E5 T, Q: x4 Jfilename=str2mat(pic.name); %取得文件名

%调用函数
, I" {9 o, p" A$ @sortfile=LengthSortStr(filename)
复制代码
( T- y8 X" l7 D7 H

" T. A# R) f7 T* S- p

冻鱼

谢谢楼主分享

15733266829

thank you.!!!