文件名排序Matlab程序

建不了的模。

由来：
+ V4 A! r  H/ s* K2 S% _+ i手头上有一组100多张的jpg文件（尺寸一致），想把它们通过matlab弄成avi文件，然而通过sortrows函数对这些文件名排序时，发现它的顺序是
1.jpg
9 Y6 `; X# S( i10.jpg
100.jpg
2 T& s" h) |, ]! N101.jpg
. g& Y7 Y) f- T# M/ G就是说sortrows是按文件的ASCII来排序的，没有考虑到字符串的长度因素。

2 s2 u' _+ ]* m1 q9 }当然如果文件名命名是001.jpg，002.jpg之类的。那么排序应当没有问题。
当然如果文件名是连续的话，我们也可以用num2str(i)来构建相应的文件名。
3 t5 x+ i6 w( H8 W  \如果不是上面两种情况的话，本文就是实现从小到大排序。
- ^2 L; I- c5 z, }

3 x+ l$ _8 t! }! Q, O9 o  ?: |8 n提示1：文件名的获取
通过dir可以得到目录下的文件名，比如：
' J! }- g# e7 K% Y& i: ~jpgfile=dir('*.jpg');  %可以得到本目录下所有jpg文件的相关信息。
filename=str2mat(jpgfile.name);  
; n  z( K! a# P9 I
* U$ C; o1 k7 Z" y7 i6 {+ P% m7 ]2 C提示2：字符串数组
先试一下：
str1=['mat';'lab';'sky']         %这句没有问题，因为每个字符串长度相同
str2=['matlab';'sky';'love']  %这句会出问题，因为每个字符串长度不同
str3=strvcat('matlab','sky','love')  %这句没有问题，虽说每个字符串长度不同，但是它可以组合成字符串数组，不过str3是3*6的字符串数组，每行的长度都是6，系统给字符串不足6的后面自动补空格。

% l1 J1 G0 E% {+ J这样就导致上面得到的filename每行的长度都相同。
6 g8 g; Z4 v" Z
/ A) e* [+ y: [5 ^* q
本文原理：
1 j, x; O  Z/ b先判断每行最后面有多少个空格，
然后在每行的最前面加与空格数相同的字符(该字符的ASCII码要很小)，组成新的字符串
这样排序就可以实现上述的文件名排序功能。


, r& l: n' S' D  h/ {5 Y本文代码：
function varargout=LengthSortStr(str)
4 P2 j( |- J5 V- ]. W8 ]%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Argment:                str文件名组成的字符串数组
%        :                输出参数同sort函数
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
* v: @$ W* O' W- |, D2 C# R' b) Vch_ascii=1;                                %用ascii码相应的字符放在文件名前，这个值越小越好

+ Z: D( K/ n- _8 M  Y[N,MAXLEN]=size(str);        %个数以及每行的长度
newname=[''];

for i=1:N
3 q- k1 h2 O6 Z9 w% O        BlackSpace=0;
5 Y, S7 M4 M* ]; O        while (str(i,MAXLEN-BlackSpace)==' ') %本行有多少个空格
! a/ I) A) W) ~                BlackSpace=BlackSpace+1;
        end
                %将本行后面的空格用ch_ascii补在最前面，并去掉行尾的空格
+ y0 O, q4 Q5 J# o! ]        newstr(i,=[repmat(char(ch_ascii),1,BlackSpace), str(i,1:MAXLEN-BlackSpace)];
end
+ F. D1 o! W- `8 \[sortstr,order]=sortrows(newstr);          %新字符排序，主要要得到排序的序号
sortstr=str(order,;                                %由这个序号生成原始的排序名
5 O: W0 s* S+ ~* A
if nargout<=1
        varargout{1}=sortstr;
elseif nargout==2
        varargout{1}=sortstr;
7 V1 y+ a, \. `        varargout{2}=order;
: }4 y, d/ C$ K/ u9 G3 {end
复制代码
实例：
%对D盘下面的bmp图的文件名进行排序
/ e7 Y, i$ i5 s; \0 Q- x# m2 Iclear
dirpath='d:\';                %路径
$ A" i" q$ `8 rextname='bmp';                %扩展名

if dirpath(end)~='\'                %如果路径后面没有加\，添加
4 o0 y- `9 F, y        dirpath=[dirpath,'\'];
end

%先取出目录下的文件信息
* L( |0 ]& f$ |) Y1 Mpic=dir([dirpath,'*.',extname]);
filename=str2mat(pic.name); %取得文件名

%调用函数
8 t# h" u$ m# a/ ~% I% I/ nsortfile=LengthSortStr(filename)
复制代码
$ a  S1 g2 k1 q  f# }/ S

冻鱼

谢谢楼主分享
/ ~, f; @  c- v% g

15733266829

thank you.!!!