IStringMap example with DATE as key

[ssimop]

I would welcome any comments on the following example. Actually, I wonder whether there exists a more simple - elegant way to modify it. Many thanks in advance.

Macro temp04

Code:

Copy      Help

out
IStringMap m
if(m=0)
,m._create
else
,m.RemoveAll

m.Flags=8

m.Add("130937158400000000"  "ShowAlfa")
m.Add("131066700210000000"  "BfFTreeExe")
m.Add("130937974030000000"  "CreateDirExe")
m.Add("131018615550000000"  "SearchForFoldersInDir")
m.Add("130938009830000000"  "SearchForAFolderInDir")
m.Add("131063516250000000"  "SES_FileSysSearch")
m.Add("130937048660000000"  "Select_FilesExe")
m.Add("130936117220000000"  "ProcessNotepadFileSItem")

int i
ARRAY(str) ak av
m.GetAll(ak av)
for(i ak.len-1 -1 -1)
,long ld=val(ak[i] 1)
,DATE d=ld
,_s=d
,out "%i. %s %s" i+1 _s av[i]
,,