文件名排序Matlab程序

建不了的模。

由来：
手头上有一组100多张的jpg文件（尺寸一致），想把它们通过matlab弄成avi文件，然而通过sortrows函数对这些文件名排序时，发现它的顺序是
/ w, g- W1 C0 W! g9 ]1.jpg
' ^5 s$ x& \  `/ M$ t10.jpg
100.jpg
101.jpg
就是说sortrows是按文件的ASCII来排序的，没有考虑到字符串的长度因素。
2 }0 C' y' y. D' k8 Z9 x  m1 V, m  t
当然如果文件名命名是001.jpg，002.jpg之类的。那么排序应当没有问题。
/ n4 M( R2 E# J+ o当然如果文件名是连续的话，我们也可以用num2str(i)来构建相应的文件名。
: S6 R/ O$ v& E, I  e+ T6 T如果不是上面两种情况的话，本文就是实现从小到大排序。
7 }; i. }) r- _. p$ M
% e0 C7 x# ^2 T* ~, R
9 t+ s) `1 [9 p% V提示1：文件名的获取
& ?9 y' y3 O5 H; H% W- V通过dir可以得到目录下的文件名，比如：
jpgfile=dir('*.jpg');  %可以得到本目录下所有jpg文件的相关信息。
/ x& e. \) g# n8 ufilename=str2mat(jpgfile.name);  
/ N$ ]* b. m: X6 a0 G
9 F( L& O: r1 K3 g- C8 W提示2：字符串数组
0 ~3 @; [/ e) J1 i9 A先试一下：
str1=['mat';'lab';'sky']         %这句没有问题，因为每个字符串长度相同
str2=['matlab';'sky';'love']  %这句会出问题，因为每个字符串长度不同
str3=strvcat('matlab','sky','love')  %这句没有问题，虽说每个字符串长度不同，但是它可以组合成字符串数组，不过str3是3*6的字符串数组，每行的长度都是6，系统给字符串不足6的后面自动补空格。
8 Q* ]+ t7 E+ h4 b3 l
  Z- U+ y8 ^0 H/ i2 Q这样就导致上面得到的filename每行的长度都相同。
4 S' ?% x3 Q9 _8 a% u# K
8 W, N4 [8 r5 v: D0 K( D
本文原理：
先判断每行最后面有多少个空格，
( Z4 m) Q2 e5 n) P6 C) [' C6 C然后在每行的最前面加与空格数相同的字符(该字符的ASCII码要很小)，组成新的字符串
2 _8 J" G  L: g: U% a4 W这样排序就可以实现上述的文件名排序功能。
- z$ r. L: J" @8 ?0 g( Q$ _! M$ o

3 [2 ]2 a" W% _/ d# P1 I本文代码：
function varargout=LengthSortStr(str)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- |' W5 |7 l7 d! I" |/ r" T%Argment:                str文件名组成的字符串数组
* B$ Z( s$ Y( _0 D%        :                输出参数同sort函数
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  V5 A  z# Z: }7 t% L$ ~; a! uch_ascii=1;                                %用ascii码相应的字符放在文件名前，这个值越小越好
2 T: v' }+ Z5 p: m4 _$ H9 `- S7 g+ f
[N,MAXLEN]=size(str);        %个数以及每行的长度
newname=[''];

! ^" A+ O6 |1 G, i( Tfor i=1:N
0 g( P& ^' T2 [& C        BlackSpace=0;
        while (str(i,MAXLEN-BlackSpace)==' ') %本行有多少个空格
( o4 ~  F/ d9 o                BlackSpace=BlackSpace+1;
        end
                %将本行后面的空格用ch_ascii补在最前面，并去掉行尾的空格
, D+ \9 {' v% t1 ^1 N        newstr(i,=[repmat(char(ch_ascii),1,BlackSpace), str(i,1:MAXLEN-BlackSpace)];
2 t5 F+ J9 @' z, t, V% Dend
3 _" l% \5 `: V3 p) j) ~5 n[sortstr,order]=sortrows(newstr);          %新字符排序，主要要得到排序的序号
# L. R" y1 E1 O8 N6 N7 csortstr=str(order,;                                %由这个序号生成原始的排序名
* [! _' r0 h! D
if nargout<=1
        varargout{1}=sortstr;
elseif nargout==2
$ K( J& h" N' V' V7 H8 O( i        varargout{1}=sortstr;
        varargout{2}=order;
end
复制代码
实例：
%对D盘下面的bmp图的文件名进行排序
4 @  M) r% O+ c/ h& F+ K  wclear
( \9 g% ~. C2 t/ F5 U& u1 @0 ]dirpath='d:\';                %路径
extname='bmp';                %扩展名
4 h1 v! h1 |* M
if dirpath(end)~='\'                %如果路径后面没有加\，添加
3 p9 ^1 S& ?0 S5 X1 I# u        dirpath=[dirpath,'\'];
end

6 I  |* A" ^& M; U) s* ]%先取出目录下的文件信息
pic=dir([dirpath,'*.',extname]);
% }; }' A7 w/ v" ~! Hfilename=str2mat(pic.name); %取得文件名

2 w& D$ _# |7 J4 Y5 |%调用函数
sortfile=LengthSortStr(filename)
/ \: D) H/ V3 T$ d6 y7 n9 I复制代码

8 |7 h3 e3 }% I$ N
8 l$ _, D; d" O% K* `" D$ l

冻鱼

谢谢楼主分享
. u% H2 w) h- {+ B* V

15733266829

thank you.!!!