linked list - QuickSort on a LinkedList in VBA -


i've unfortunately inherited vba code uses linkedlists in vba nothing sorted, , needs sorted.

linkedlist example: http://support.microsoft.com/kb/166394

i'm trying quicksort on items translating following code linkedlist: vba array sort function?

but i'm having hard time following logic of function determine how translate non-numbered system linked list.

could comment code explain happening, or possibly in translation?

first, need linked list object. use array example. let's take 5 nodes simplicity of example.

'declaration of array dim linkedlist(0 4) node

now, time fill array. variable head head of our linkedlist :

dim integer = 0  dim currentnode node set currentnode = head.pnext  while not currentnode.pnext currentnode 'walk rest of list end     linkedlist(i) = currentnode     = + 1     set currentnode = currentnode.pnext      'current pointer next node wend

our linkedlist filled, can use quicksort. launch initial call line :

quicksort linkedlist, lbound(linkedlist), ubound(linkedlist)

and adapt little function :

public sub quicksort(varray node, inlow long, inhi long)    dim pivot   integer   dim tmpswap integer   dim tmplow  long   dim tmphi   long    tmplow = inlow   tmphi = inhi    pivot = varray((inlow + inhi) \ 2).key    while (tmplow <= tmphi)       while (varray(tmplow).key < pivot , tmplow < inhi)         tmplow = tmplow + 1      wend       while (pivot < varray(tmphi).key , tmphi > inlow)         tmphi = tmphi - 1      wend       if (tmplow <= tmphi)         tmpswap = varray(tmplow).key         varray(tmplow).key = varray(tmphi).key         varray(tmphi).key = tmpswap         tmplow = tmplow + 1         tmphi = tmphi - 1      end if    wend    if (inlow < tmphi) quicksort varray, inlow, tmphi   if (tmplow < inhi) quicksort varray, tmplow, inhi  end sub

i think it's good. tell me if there problem or misunderstanding.


Comments

Post a Comment

Popular posts from this blog

android - java.net.UnknownHostException(Unable to resolve host “URL”: No address associated with hostname) -

i developing app testing asp.net webservice in android.for simple webservice adding 2 numbers used.where numbers passed parameters.the result in dialogue.the webserver works in local. when application runs following result exception.i provided internet permission in manifest. java.net.unknownhostexception(unable resolve host “ http://url.com/ ”: no address associated hostname) my code given below main activity public static string rslt=""; /** called when activity first created. */ @override public void oncreate(bundle savedinstancestate) { super.oncreate(savedinstancestate); setcontentview(r.layout.activity_main); button b1=(button)findviewbyid(r.id.button1); final alertdialog ad=new alertdialog.builder(this).create(); b1.setonclicklistener(new onclicklistener() { @override public void onclick(view arg0) { // todo auto-generated method stub try { ...
Read more

jquery - How can I dynamically add a browser tab? -

since using iframes house external pages are, accounts "not preferred method" , disallowed sites (flickr, one), want dynamically generate browser tabs. e.g., when user submits form, want dynamically generate tab on browser in response submitted. e.g., might want add new tab url like: http://www.bigsurgarrapata.com/contact how in jquery? you want form target attribute action attribute. http://www.w3schools.com/tags/att_form_target.asp browsers have ultimate control on result of target attribute open new tab value of _blank. <form action="contact_submit.php" target="_blank" method="post">
Read more

keyboard - C++ GetAsyncKeyState alternative -

i using windows.h library's getasynckeystate function define key pushed on keyboard . here program returns int value of pushed key example. #include <iostream> #include <windows.h> using namespace std; int main (){ char i; for(i=8;i<190;i++){ if(getasynckeystate(i)== -32767){ cout<<int (i)<<endl; } } return 0; } but trying make opengl simple game , function appeared slow . there function not need cycle 180 times , if statement . thanks you're trying make opengl game, you're going use glfw. if that's case can away using glfwgetkey() such: if (glfwgetkey(glfw_key_up) == glfw_press) {...} if (glfwgetkey(glfw_key_down) == glfw_press) {...} that method nicely explained in tutorial 6 opengl-tutorial.org . should start first tutorial of beginners tutorials , later intermediate tutorials . if you're going make win32 window can listen wm_keydown or wm_keyup messages , virtua...
Read more