excel vba - Sort array in VBA -

-



i have 182.123 size array , want sort them specific attribute of class of array. class called cflujo , property want sort them by string called id_flujo. far i'm doing bubble sort takes long:

sub sort_arreglo(arreglo variant) x = lbound(arreglo) ubound(arreglo) y = x ubound(arreglo)     dim aux cflujo     aux = new cflujo   if ucase(arreglo(y).id_flujo) < ucase(arreglo(x).id_flujo)     set aux = arreglo(y)     set arreglo(y) = arreglo(x)     set arreglo(x) = aux   end if  next y next x end sub

so far i've researched selection sort know can't delete items array can't make 2 lists sort values 1 other. put data in collection have had trouble regarding quality of data unless alocate memory beforehand (like in array).

there's couple of things can improve execution time:

  • load properties in array
  • sort pointers instead of objects
  • use better algorithm quciksort

with example:

sub sort(arreglo variant)   dim cache, vals(), ptrs() long, long    redim vals(lbound(arreglo) ubound(arreglo))   redim ptrs(lbound(arreglo) ubound(arreglo))    ' load properties , fill pointers   = lbound(arreglo) ubound(arreglo)     vals(i) = ucase(arreglo(i).id_flujo)     ptrs(i) =   next    ' sort pointers   quicksort vals, ptrs, 0, ubound(vals)    ' make copy   cache = arreglo    ' set value each pointer   = lbound(arreglo) ubound(arreglo)     set arreglo(i) = cache(ptrs(i))   next end sub   private sub quicksort(vals(), ptrs() long, byval i1 long, byval i2 long)   dim lo long, hi long, p long, tmp long   lo = i1   hi = i2   p = ptrs((i1 + i2) \ 2)        while vals(ptrs(lo)) < vals(p): lo = lo + 1: wend     while vals(ptrs(hi)) > vals(p): hi = hi - 1: wend      if lo <= hi       tmp = ptrs(hi)       ptrs(hi) = ptrs(lo)       ptrs(lo) = tmp       lo = lo + 1       hi = hi - 1     end if   loop while lo <= hi    if i1 < hi quicksort vals, ptrs, i1, hi   if lo < i2 quicksort vals, ptrs, lo, i2 end sub




wiki

Comments

Post a Comment

Popular posts from this blog

python - Read npy file directly from S3 StreamingBody -

-
i have many .npy (numpy) , .json files saved in s3, need download , load these files. for json files downloading files , loading dictionary using following code: obj = s3.object(bucket, key) response = obj.get() body = response['body'].read().decode('utf-8') data = json.loads(body) that way avoid writing .json file disk , reading it. now want same .npy files, equivalent? currently downloading file, saving temp file on disk , loading np.load avoid if possible. following https://stackoverflow.com/a/28196540/3509999 : obj = s3.object(bucket, key) io.bytesio(obj.get()["body"].read()) f: # rewind file f.seek(0) arr = np.load(f) wiki
Read more

kotlin - Out-projected type in generic interface prohibits the use of metod with generic parameter -

-
i start using kotlin , defined interface this: interface aadapter<vh : recyclerview.viewholder> { fun oncreateaviewholder(parent: viewgroup): vh fun onbindaviewholder(v: vh, position: int) } and when try use on code: class klasa ( private val adapter: aadapter<*> ) { fun dosth(){ //... val vh = this.adapter.oncreateaviewholder(parent) //on below line error adapter.onbindaviewholder(v, position) //... } } i error out-projected type 'aadapter<*>' prohibits use of 'public abstract fun onbindaviewholder(v: t, position: int): unit i tied add "in" or "out" definition i'm confused. how allow it. replace aadapter<*> aadapter<recyclerview.viewholder> . class klasa ( private val adapter: aadapter<recyclerview.viewholder> ) { // ... because have declared aadapter has type parameter vh type subclass of recyclerview....
Read more

Asterisk AGI Python Script to Dialplan does not work -

-
i'm stuck project have check database of sip extension incoming caller id , dial sip extension. below receive when run script on asterisk cli. -- registered sip '9125' @ 192.168.1.102:50142 > saved useragent "zoiper rv2.8.40" peer 9125 [2017-08-22 13:53:33] notice[5095]: chan_sip.c:24558 handle_response_peerpoke: peer '9125' reachable. (17ms / 2000ms) == using sip rtp tos bits 184 == using sip rtp cos mark 5 -- executing [0112617769@from-trunk:1] answer("sip/obitrunk1-0000000d", "") in new stack > 0x1ca50d0 -- probation passed - setting rtp source address 192.168.1.98:16834 -- executing [0112617769@from-trunk:2] agi("sip/obitrunk1-0000000d", "test.py") in new stack -- launched agi script /var/lib/asterisk/agi-bin/test.py args: ['/var/lib/asterisk/agi-bin/test.py'] env line: agi_request: test.py env line: agi_channel: sip/obitrunk1-0000000d env line: agi_language: en env line: a...
Read more