Sort numbers in strings

[Gintaras]

Macro

Code:

Copy      Help

out
str s=
;ab1234/3:10
;ab1234/3:9
;bc3234/2:3
;ch8218/5:2
;ab1234/3:1
;bc3234/2:2
ARRAY(str) a=s
a.sort(0 sort_proc_str_logical 0)
s=a
out s

Function sort_proc_str_logical

Code:

Copy      Help

function# param str&a str&b

dll- shlwapi #StrCmpLogicalW @*psz1 @*psz2

if(_winver>=0x501) ;;XP
,BSTR w1(a) w2(b)
,ret StrCmpLogicalW(w1 w2)
else
,ret StrCompare(a b 1)

On Windows 2000 will sort differently, because StrCmpLogicalW is not available.