Sort numbers in strings

[Lucas]

Thanks again.

Macro

Code:

Copy      Help

str a.getfile("$desktop$\PRUEBA.TXT")
str linea t1 t2 final
a.eliminar_lineas_vacias
foreach linea a
,if(!linea.end("1"))
,,int temp i numero
,,_s.get(linea find(linea ":")+1)
,,;out linea
,,;out _s
,,numero=val(_s)
,,for i numero 0 -1
,,,t1.left(linea find(linea ":"))
,,,;out t1
,,,t2.format("%s:%i" t1 i)
,,,;out t2
,,,if(find(a t2)<0)
,,,,final.formata("%s[]" t2)
;out final
eliminar_lineas(final "" "" 1)
ARRAY(str) lii=final
lii.sort(0 sort_proc_str_logical 0)
final=lii

final.insertmultiline(" <---" -1)
str total.from(a final)
lii=total
lii.sort(0 sort_proc_str_logical 0)
total=lii
out total
total.setclip