6
$\begingroup$

I have some file names like this:

fileNames = {"F:\\mathematica\\liu3\\62.jpg", 
   "F:\\mathematica\\liu3\\1.jpg", "F:\\mathematica\\liu3\\2.jpg", 
   "F:\\mathematica\\liu3\\3.jpg", "F:\\mathematica\\liu3\\4.jpg", 
   "F:\\mathematica\\liu3\\5.jpg", "F:\\mathematica\\liu3\\6.jpg", 
   "F:\\mathematica\\liu3\\7.jpg", "F:\\mathematica\\liu3\\42.jpg", 
   "F:\\mathematica\\liu3\\52.jpg"};

I want get a better order for they.But when I use Sort for this

Sort@fileNames

Then I get:

{"F:\mathematica\liu3\1.jpg", "F:\mathematica\liu3\2.jpg", \ "F:\mathematica\liu3\3.jpg", "F:\mathematica\liu3\42.jpg", \ "F:\mathematica\liu3\4.jpg", "F:\mathematica\liu3\52.jpg", \ "F:\mathematica\liu3\5.jpg", "F:\mathematica\liu3\62.jpg", \ "F:\mathematica\liu3\6.jpg", "F:\mathematica\liu3\7.jpg"}

But actually this ordering is my expectation

Mathematica graphics

So how to get this list with my ordering by a terse method?

$\endgroup$
  • 1
    $\begingroup$ You are getting the same sort order as your OS give you, i.e., lexical order. The easiest way to fix this is not in Mathematica, but in your file system. Rename flies such as 3.jpg to 03.jpg or to 30.jpg, whichever way seem more useful to you. $\endgroup$ – m_goldberg Mar 25 '16 at 5:40
  • $\begingroup$ Thanks for you advices.1)I have try some order in my Window 10,but have no my expected order,and I have not found that order you mean like lexical order.2)The original name is 3.jpg,4.jpg or 42.jpg.to add that 0 is little troublesome.3)I wanna sort it in mma because of I wannt import it into mma then convenient to following processing $\endgroup$ – yode Mar 25 '16 at 5:52
  • 1
    $\begingroup$ Your screenshot looks quite strange, where's Name(名称)? And I can't find fonts related options in my OS, I'm using Win10, too. $\endgroup$ – xzczd Mar 25 '16 at 5:59
  • $\begingroup$ @xzczd Click the More(更多). $\endgroup$ – yode Mar 25 '16 at 6:09
  • $\begingroup$ You should check 排序方式, not 分组依据 囧 $\endgroup$ – xzczd Mar 25 '16 at 8:11
8
$\begingroup$

How about this one?:

SortBy[#, FileBaseName] &@fileNames
$\endgroup$
  • $\begingroup$ brilliant work ! +1 $\endgroup$ – Ali Hashmi Mar 25 '16 at 10:47
  • $\begingroup$ I just noticed @xzczd's comment, which I agree with, that your file naming convention is not clear. For instance, does "123" mean the 23rd in the 1st group, or 3rd in 12th group? Better solution would be figured out were more clear naming convention provided. $\endgroup$ – sunt05 Mar 25 '16 at 11:24
  • $\begingroup$ Yep,I'm aware of that confict.So I have already deleted it.Thank for your help. :) $\endgroup$ – yode Mar 25 '16 at 11:28
  • $\begingroup$ Interesting, I didn't know "." doesn't take part in sorting. $\endgroup$ – xzczd Mar 25 '16 at 11:42
3
$\begingroup$

How about this?:

#[[Ordering[StringTake[FileBaseName@# <> "0", 2] & /@ #]]] &@fileNames
$\endgroup$
  • 1
    $\begingroup$ As you promption of FileBaseName,then I get another try like fileNames[[Ordering[StringPadRight[FileBaseName/@fileNames,Automatic,"0"]]]],Thank you very much. $\endgroup$ – yode Mar 25 '16 at 6:07
  • $\begingroup$ @yode Oh, so there're functions for string padding in v10. (I'm still in v9. ) $\endgroup$ – xzczd Mar 25 '16 at 8:21
  • $\begingroup$ I don' t know whether or not appropriate I update this post. $\endgroup$ – yode Mar 25 '16 at 8:46
  • 1
    $\begingroup$ @yode Then since the serial number isn't limited to 0~9, your naming rule turns out to be unclear. For example, should "42" be taken as "42, 1st" or "4, 2nd"? $\endgroup$ – xzczd Mar 25 '16 at 9:05
  • $\begingroup$ Seems to be little unclear,But in my casy "42" mean "4, 2nd" $\endgroup$ – yode Mar 25 '16 at 9:19
2
$\begingroup$

there is a nasty way of doing this:

orig = (Riffle[ToCharacterCode[fileNames], (Characters /@ fileNames)]) // 
Partition[#, 2] & // Thread[#] & /@ # & // #[[All, {21, 22}]] &

(*{{{54, "6"}, {50, "2"}}, {{49, "1"}, {46, "."}}, {{50, "2"}, {46,"."}},
{{51, "3"}, {46, "."}}, {{52, "4"}, {46, "."}}, {{53,"5"}, {46, "."}},
{{54, "6"}, {46, "."}}, {{55, "7"}, {46,"."}}, {{52, "4"}, {50, "2"}},
{{53, "5"}, {50, "2"}}} *)

sorted = Flatten[Position[orig, #] &/@ Sort@orig]

(* {2, 3, 4, 5, 9, 6, 10, 7, 1, 8} *)

fileNames[[sorted]]

(* {"F:\\mathematica\\liu3\\1.jpg", "F:\\mathematica\\liu3\\2.jpg",
"F:\\mathematica\\liu3\\3.jpg", "F:\\mathematica\\liu3\\4.jpg",
"F:\\mathematica\\liu3\\42.jpg", "F:\\mathematica\\liu3\\5.jpg",
"F:\\mathematica\\liu3\\52.jpg", "F:\\mathematica\\liu3\\6.jpg",
"F:\\mathematica\\liu3\\62.jpg", "F:\\mathematica\\liu3\\7.jpg"} *)
$\endgroup$
  • $\begingroup$ you are welcome ! $\endgroup$ – Ali Hashmi Mar 25 '16 at 11:37

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.