|
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
Cookiie am 11.07.2005 um 14:00 Uhr (0)
Hm, hab ich fast befürchtet. Das mit den Collections, da müßte ich mein ganzes Programm jetzt umschreiben und das wäre doof, zumal das jetzige läuft und voll funktional ist. Wäre ja nur aus Performance gründen nett. Hab ja eh schon nen Schleifenabbruch drin wenn ers gefunden hat, was das ganze schonmal reduziert. Aber habs mal gemessen, bei 2000 Teilen braucht er knapp 1:42min. Was eigentlich noch schnell genug ist. Will bloß nicht wissen wie lange der auf ner älteren Machine braucht ^^. Aber trot ...
| | In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
Cookiie am 11.07.2005 um 11:42 Uhr (0)
Hi Leute, ich habe ein Array mit über 3600 werten darin. Und möchte nun direkt auf ein Element zugreifen können, ohne das Ganze Array mit einer Schleife durchforsten zu müssen. Es würde auch gehen wenn ich den Index, wo der Wert gespeichert ist zurückgeliefert bekomme. Hintergrund ist eine Bauteilliste die ich durchsuche um den richtigen wert zu finden, bei ner Leiterplatte mit 2000 Bauelementen entsprechend 2000 x 3600 Schleifendurchgänge, was sehr zeitintensiv ist. Ein Direktzugriff würde dies ziemlich b ...
| | In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
Cookiie am 12.07.2005 um 14:33 Uhr (0)
Du bist aber ein pöses Mädchen ;-). Hab jetzt einfach ne Abart der binären Suche implementiert. Code: Sub BinaereSuche(wert As Variant, arr As Variant) Dim i As Integer, k As Integer Dim schleifen As Integer Dim gefunden As Boolean, ende As Boolean Dim grenze gefunden = False schleifen = 0 i = (UBound(arr, 2) + 1) / 2 k = i Do Until ende k = k / 2 + k Mod 2 If wert arr(0, i) Then i = i - k Else i = i + k E ...
| | In das Form INVENTOR VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
