Ich suche eine noch kürzere und noch leichter verständlichere Lösung, die ohne eine Backup Variable auskommt und weniger die CPU Beansprucht (ständiges Mod umgschalte ist zwar einfallsreicht muss aber nicht sein schätz ich) als die hier.
Code: Alles auswählen
NewList x.s()
For tmp_p = 65 To 90
AddElement(x.s())
x.s() = Chr(tmp_p)
AddElement(x.s())
x.s() = Chr(tmp_p)
AddElement(x.s())
x.s() = Chr(tmp_p)
AddElement(x.s())
x.s() = Chr(tmp_p)
Next
; ForEach x.s()
; Debug x.s()
; Next
;
FirstElement(x.s())
divisor = 2
For tmp_p = 0 To ListSize(x.s()) -1
SelectElement(x.s(),tmp_p)
If x.s() <> b$
Debug "add/set/change/execute/="+x.s()
tmp_old$ = x.s()
divisor = 1 ;/ NOT SAME THEN WE SET THE DIVSOR TO 1. SO THE RYHTIM IS CHANGED
Else
divisor = 2 ;/ WHEN SAME THEN WE SET THE DIVISOR TO 2. SO THAT THE RYHTM IS CHANGED AGAIN
Debug "ignore="+b$
EndIf
If Mod(tmp_p,divisor) = 0
b$ = tmp_old$
;Debug "HANS="+tmp_p
EndIf
Next
Delete Element (geht nicht da zu jedem Path natürlich auch ein File in der structurierten Linked List gehört)
und ständiger Aufruf der Procedure durch sich selbst (so wie in Recursive Directory Scan examples) geht nicht, da der Code sowieso schon total nerviger Spagetti Code ist.
Und auf eigene komischen While und Repeat Experiemente hab ich kein Bock mehr
Weil ich viel früher im Prog was bescheuert geschrieben hab, hat es sich viel später im Code (bin bei ~15000 Zeilen)
total beknackt ausgewirkt und ich muss aus einer Liste die Entrys hat die ungefähr so sind.
Code: Alles auswählen
c:\dir1\blabla1.jpg
c:\dir1\blabla2.jpg
c:\dir1\blabla3.jpg
c:\dir2\blabla1.jpg
c:\dir2\blabla2.jpg
c:\dir2\blabla3.jpg
c:\dir3\blub.jpg
c:\dir4\blub.jpg
c:\dir5\blub1.jpg
c:\dir5\blub2.jpg
c:\dir6\blub.jpg
Dazu muss ich natürlich markieren, was zusammen gehört.
* und das aus diesem Grund.
Die Entrys in der Gadget List sind
c:\dir1\
c:\dir2\
c:\dir3\blub.jpg
c:\dir4\blub.jpg
c:\dir5\
c:\dir6\blub.jpg
und in der Linked List, hab ich die Files aus den Verzeichnissen, also so wie im Code Tag.
Was ich gemacht hab ist dir Verzeichnisse in der Gadget List sortieren zu lassen und oben zu plazieren, und die Files extra sortieren und unter den Foldern plazieren lassen (also so wie im Total Commander) so das es in der LL später immerhin halbwegs sinvoll sortiert ist, und es das einfacher macht.