home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Java / ScriptBuilder / NOSB30_TRIAL.exe / data1.cab / Program_Files / scriptlib3.sbl / ROOT78 / DATA
Unknown  |  1998-10-05  |  2.4 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file Excel 2 BIFF 2 default (weak)
99% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 09 00 00 00 51 75 69 63 | 6b 53 6f 72 74 09 00 00 |....Quic|kSort...|
|00000010| 00 51 75 69 63 6b 53 6f | 72 74 08 00 00 00 56 42 |.QuickSo|rt....VB|
|00000020| 53 63 72 69 70 74 13 00 | 00 00 51 75 69 63 6b 20 |Script..|..Quick |
|00000030| 53 6f 72 74 20 46 75 6e | 63 74 69 6f 6e 27 09 00 |Sort Fun|ction'..|
|00000040| 00 27 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.'======|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000060| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000070| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0a 27 20 |========|====..' |
|00000090| 50 52 4f 43 45 44 55 52 | 45 3a 09 51 75 69 63 6b |PROCEDUR|E:.Quick|
|000000a0| 53 6f 72 74 20 28 41 72 | 72 2c 20 4c 6f 77 2c 20 |Sort (Ar|r, Low, |
|000000b0| 48 69 67 68 2c 20 4f 72 | 64 65 72 29 0d 0a 27 0d |High, Or|der)..'.|
|000000c0| 0a 27 20 49 4e 50 55 54 | 3a 09 09 41 72 72 20 2d |.' INPUT|:..Arr -|
|000000d0| 2d 20 74 68 65 20 61 72 | 72 61 79 20 6f 62 6a 65 |- the ar|ray obje|
|000000e0| 63 74 20 74 6f 20 62 65 | 20 73 6f 72 74 65 64 2e |ct to be| sorted.|
|000000f0| 20 0d 0a 27 09 09 09 09 | 4c 6f 77 20 2d 2d 20 74 | ..'....|Low -- t|
|00000100| 68 65 20 6c 6f 77 65 72 | 20 62 6f 75 6e 64 20 6f |he lower| bound o|
|00000110| 66 20 74 68 65 20 61 72 | 72 61 79 20 28 75 73 75 |f the ar|ray (usu|
|00000120| 61 6c 6c 79 20 30 29 0d | 0a 27 09 09 09 09 48 69 |ally 0).|.'....Hi|
|00000130| 67 68 20 2d 2d 20 74 68 | 65 20 75 70 70 65 72 20 |gh -- th|e upper |
|00000140| 62 6f 75 6e 64 20 6f 66 | 20 74 68 65 20 61 72 72 |bound of| the arr|
|00000150| 61 79 20 28 75 62 6f 75 | 6e 64 28 41 72 72 29 29 |ay (ubou|nd(Arr))|
|00000160| 0d 0a 27 09 09 09 09 4f | 72 64 65 72 20 2d 2d 20 |..'....O|rder -- |
|00000170| 74 68 65 20 6f 72 64 65 | 72 20 74 68 65 20 61 72 |the orde|r the ar|
|00000180| 72 61 79 20 77 69 6c 6c | 20 62 65 20 73 6f 72 74 |ray will| be sort|
|00000190| 65 64 3a 0d 0a 27 20 20 | 20 09 09 09 09 20 20 20 |ed:..' | .... |
|000001a0| 20 20 20 20 20 30 20 2d | 2d 20 61 72 72 61 79 20 | 0 -|- array |
|000001b0| 73 6f 72 74 65 64 20 69 | 6e 20 44 45 53 43 45 4e |sorted i|n DESCEN|
|000001c0| 44 49 4e 47 20 4f 52 44 | 45 52 0d 0a 27 09 09 09 |DING ORD|ER..'...|
|000001d0| 09 09 20 31 20 2d 2d 20 | 61 72 72 61 79 20 73 6f |.. 1 -- |array so|
|000001e0| 72 74 65 64 20 69 6e 20 | 41 53 43 45 4e 44 49 4e |rted in |ASCENDIN|
|000001f0| 47 20 4f 52 44 45 52 0d | 0a 27 0d 0a 27 20 44 45 |G ORDER.|.'..' DE|
|00000200| 53 43 3a 09 09 09 54 68 | 69 73 20 66 75 6e 63 74 |SC:...Th|is funct|
|00000210| 69 6f 6e 20 70 65 72 66 | 6f 72 6d 73 20 61 20 62 |ion perf|orms a b|
|00000220| 75 62 62 6c 65 73 6f 72 | 74 20 6f 6e 20 74 68 65 |ubblesor|t on the|
|00000230| 20 61 72 72 61 79 2e 20 | 20 55 73 65 20 74 68 69 | array. | Use thi|
|00000240| 73 0d 0a 27 09 09 09 09 | 66 75 6e 63 74 69 6f 6e |s..'....|function|
|00000250| 20 69 66 20 74 68 65 20 | 61 72 72 61 79 20 69 73 | if the |array is|
|00000260| 20 6c 61 72 67 65 20 28 | 3e 31 30 30 20 65 6c 65 | large (|>100 ele|
|00000270| 6d 65 6e 74 73 29 20 61 | 6e 64 20 79 6f 75 0d 0a |ments) a|nd you..|
|00000280| 27 09 09 09 09 6e 65 65 | 64 20 74 6f 20 73 6f 72 |'....nee|d to sor|
|00000290| 74 20 74 68 65 20 65 6c | 65 6d 65 6e 74 73 20 76 |t the el|ements v|
|000002a0| 65 72 79 20 66 61 73 74 | 2e 20 0d 0a 27 3d 3d 3d |ery fast|. ..'===|
|000002b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002f0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0a 0d 0a 73 75 62 20 |========|....sub |
|00000300| 51 75 69 63 6b 53 6f 72 | 74 20 28 41 72 72 2c 20 |QuickSor|t (Arr, |
|00000310| 20 4c 6f 77 2c 20 20 48 | 69 67 68 2c 20 4f 72 64 | Low, H|igh, Ord|
|00000320| 65 72 29 0d 0a 0d 0a 09 | 69 66 20 4c 6f 77 20 3c |er).....|if Low <|
|00000330| 20 48 69 67 68 20 74 68 | 65 6e 0d 0a 09 20 0d 0a | High th|en... ..|
|00000340| 09 69 66 20 48 69 67 68 | 20 2d 20 4c 6f 77 20 3d |.if High| - Low =|
|00000350| 20 31 20 74 68 65 6e 0d | 0a 0d 0a 20 20 20 09 69 | 1 then.|... .i|
|00000360| 66 20 4f 72 64 65 72 20 | 74 68 65 6e 0d 0a 09 09 |f Order |then....|
|00000370| 09 09 45 6c 65 31 20 3d | 20 41 72 72 28 4c 6f 77 |..Ele1 =| Arr(Low|
|00000380| 29 0d 0a 09 09 09 09 45 | 6c 65 32 20 3d 20 41 72 |)......E|le2 = Ar|
|00000390| 72 28 48 69 67 68 29 0d | 0a 09 09 65 6c 73 65 0d |r(High).|...else.|
|000003a0| 0a 09 09 09 45 6c 65 31 | 20 3d 20 41 72 72 28 48 |....Ele1| = Arr(H|
|000003b0| 69 67 68 29 0d 0a 09 09 | 09 45 6c 65 32 20 3d 20 |igh)....|.Ele2 = |
|000003c0| 41 72 72 28 4c 6f 77 29 | 0d 0a 09 09 65 6e 64 20 |Arr(Low)|....end |
|000003d0| 69 66 20 0d 0a 0d 0a 20 | 20 20 20 20 20 69 66 20 |if .... | if |
|000003e0| 45 6c 65 31 20 3e 20 45 | 6c 65 32 20 74 68 65 6e |Ele1 > E|le2 then|
|000003f0| 0d 0a 09 09 09 74 65 6d | 70 20 3d 20 41 72 72 28 |.....tem|p = Arr(|
|00000400| 4c 6f 77 29 0d 0a 09 09 | 09 41 72 72 28 4c 6f 77 |Low)....|.Arr(Low|
|00000410| 29 20 3d 20 41 72 72 28 | 48 69 67 68 29 0d 0a 09 |) = Arr(|High)...|
|00000420| 09 09 41 72 72 28 48 69 | 67 68 29 20 3d 20 74 65 |..Arr(Hi|gh) = te|
|00000430| 6d 70 0d 0a 09 09 65 6e | 64 20 69 66 0d 0a 0d 0a |mp....en|d if....|
|00000440| 09 65 6c 73 65 20 20 20 | 20 0d 0a 0d 0a 20 20 20 |.else | .... |
|00000450| 20 27 20 50 69 63 6b 20 | 61 20 70 69 76 6f 74 20 | ' Pick |a pivot |
|00000460| 65 6c 65 6d 65 6e 74 20 | 61 74 20 72 61 6e 64 6f |element |at rando|
|00000470| 6d 2c 20 74 68 65 6e 20 | 6d 6f 76 65 20 69 74 20 |m, then |move it |
|00000480| 74 6f 20 74 68 65 20 65 | 6e 64 3a 0d 0a 20 20 20 |to the e|nd:.. |
|00000490| 20 20 20 20 20 20 0d 0a | 09 09 52 61 6e 64 49 6e | ..|..RandIn|
|000004a0| 64 65 78 20 3d 20 49 4e | 54 28 52 4e 44 20 2a 20 |dex = IN|T(RND * |
|000004b0| 28 48 69 67 68 20 2d 20 | 4c 6f 77 20 2b 20 31 29 |(High - |Low + 1)|
|000004c0| 29 20 2b 20 4c 6f 77 0d | 0a 09 09 74 65 6d 70 20 |) + Low.|...temp |
|000004d0| 3d 20 41 72 72 28 48 69 | 67 68 29 0d 0a 09 09 41 |= Arr(Hi|gh)....A|
|000004e0| 72 72 28 48 69 67 68 29 | 20 3d 20 41 72 72 28 52 |rr(High)| = Arr(R|
|000004f0| 61 6e 64 49 6e 64 65 78 | 29 0d 0a 09 09 41 72 72 |andIndex|)....Arr|
|00000500| 28 52 61 6e 64 49 6e 64 | 65 78 29 20 3d 20 74 65 |(RandInd|ex) = te|
|00000510| 6d 70 0d 0a 09 20 20 20 | 20 20 20 20 20 20 20 0d |mp... | .|
|00000520| 0a 09 09 50 61 72 74 69 | 74 69 6f 6e 20 3d 20 41 |...Parti|tion = A|
|00000530| 72 72 28 48 69 67 68 29 | 0d 0a 09 09 64 6f 0d 0a |rr(High)|....do..|
|00000540| 09 09 09 09 27 20 4d 6f | 76 65 20 69 6e 20 66 72 |....' Mo|ve in fr|
|00000550| 6f 6d 20 62 6f 74 68 20 | 73 69 64 65 73 20 74 6f |om both |sides to|
|00000560| 77 61 72 64 73 20 74 68 | 65 20 70 69 76 6f 74 20 |wards th|e pivot |
|00000570| 65 6c 65 6d 65 6e 74 3a | 0d 0a 09 20 0d 0a 09 09 |element:|... ....|
|00000580| 09 49 20 3d 20 4c 6f 77 | 3a 20 4a 20 3d 20 48 69 |.I = Low|: J = Hi|
|00000590| 67 68 0d 0a 09 09 09 20 | 0d 0a 09 09 09 69 66 20 |gh..... |.....if |
|000005a0| 6f 72 64 65 72 20 74 68 | 65 6e 0d 0a 09 09 09 09 |order th|en......|
|000005b0| 64 6f 20 77 68 69 6c 65 | 20 28 49 20 3c 20 4a 29 |do while| (I < J)|
|000005c0| 20 61 6e 64 20 28 41 72 | 72 28 49 29 20 3c 3d 20 | and (Ar|r(I) <= |
|000005d0| 50 61 72 74 69 74 69 6f | 6e 29 0d 0a 09 09 09 09 |Partitio|n)......|
|000005e0| 09 49 20 3d 20 49 20 2b | 20 31 0d 0a 09 09 09 09 |.I = I +| 1......|
|000005f0| 6c 6f 6f 70 0d 0a 09 09 | 09 09 64 6f 20 77 68 69 |loop....|..do whi|
|00000600| 6c 65 20 28 4a 20 3e 20 | 49 29 20 61 6e 64 20 28 |le (J > |I) and (|
|00000610| 41 72 72 28 4a 29 20 3e | 3d 20 50 61 72 74 69 74 |Arr(J) >|= Partit|
|00000620| 69 6f 6e 29 0d 0a 09 09 | 09 09 09 4a 20 3d 20 4a |ion)....|...J = J|
|00000630| 20 2d 20 31 0d 0a 09 09 | 09 09 6c 6f 6f 70 0d 0a | - 1....|..loop..|
|00000640| 09 09 09 65 6c 73 65 0d | 0a 09 09 09 09 64 6f 20 |...else.|.....do |
|00000650| 77 68 69 6c 65 20 28 49 | 20 3c 20 4a 29 20 61 6e |while (I| < J) an|
|00000660| 64 20 28 41 72 72 28 49 | 29 20 3e 3d 20 50 61 72 |d (Arr(I|) >= Par|
|00000670| 74 69 74 69 6f 6e 29 0d | 0a 09 09 09 09 09 49 20 |tition).|......I |
|00000680| 3d 20 49 20 2b 20 31 0d | 0a 09 09 09 09 6c 6f 6f |= I + 1.|.....loo|
|00000690| 70 0d 0a 09 09 09 09 64 | 6f 20 77 68 69 6c 65 20 |p......d|o while |
|000006a0| 28 4a 20 3e 20 49 29 20 | 61 6e 64 20 28 41 72 72 |(J > I) |and (Arr|
|000006b0| 28 4a 29 20 3c 3d 20 50 | 61 72 74 69 74 69 6f 6e |(J) <= P|artition|
|000006c0| 29 0d 0a 09 09 09 09 09 | 4a 20 3d 20 4a 20 2d 20 |).......|J = J - |
|000006d0| 31 0d 0a 09 09 09 09 6c | 6f 6f 70 0d 0a 09 09 09 |1......l|oop.....|
|000006e0| 65 6e 64 20 69 66 0d 0a | 09 09 09 27 20 49 66 20 |end if..|...' If |
|000006f0| 77 65 20 68 61 76 65 6e | 27 74 20 72 65 61 63 68 |we haven|'t reach|
|00000700| 65 64 20 74 68 65 20 70 | 69 76 6f 74 20 65 6c 65 |ed the p|ivot ele|
|00000710| 6d 65 6e 74 2c 20 69 74 | 20 6d 65 61 6e 73 20 74 |ment, it| means t|
|00000720| 68 61 74 20 74 77 6f 0d | 0a 09 09 09 27 20 65 6c |hat two.|....' el|
|00000730| 65 6d 65 6e 74 73 20 6f | 6e 20 65 69 74 68 65 72 |ements o|n either|
|00000740| 20 73 69 64 65 20 61 72 | 65 20 6f 75 74 20 6f 66 | side ar|e out of|
|00000750| 20 6f 72 64 65 72 2c 20 | 73 6f 20 73 77 61 70 20 | order, |so swap |
|00000760| 74 68 65 6d 3a 0d 0a 09 | 09 09 69 66 20 49 20 3c |them:...|..if I <|
|00000770| 20 4a 20 74 68 65 6e 0d | 0a 09 09 09 09 74 65 6d | J then.|.....tem|
|00000780| 70 20 3d 20 41 72 72 28 | 49 29 0d 0a 09 09 09 09 |p = Arr(|I)......|
|00000790| 41 72 72 28 49 29 20 3d | 20 41 72 72 28 4a 29 0d |Arr(I) =| Arr(J).|
|000007a0| 0a 09 09 09 09 41 72 72 | 28 4a 29 20 3d 20 74 65 |.....Arr|(J) = te|
|000007b0| 6d 70 0d 0a 09 09 09 65 | 6e 64 20 69 66 0d 0a 20 |mp.....e|nd if.. |
|000007c0| 20 20 20 20 20 20 20 20 | 20 20 0d 0a 09 09 6c 6f | | ....lo|
|000007d0| 6f 70 20 77 68 69 6c 65 | 20 49 20 3c 20 4a 0d 0a |op while| I < J..|
|000007e0| 0d 0a 0d 0a 09 09 74 65 | 6d 70 20 3d 20 41 72 72 |......te|mp = Arr|
|000007f0| 28 48 69 67 68 29 0d 0a | 09 09 41 72 72 28 48 69 |(High)..|..Arr(Hi|
|00000800| 67 68 29 20 3d 20 41 72 | 72 28 49 29 0d 0a 09 09 |gh) = Ar|r(I)....|
|00000810| 41 72 72 28 49 29 20 3d | 20 74 65 6d 70 0d 0a 20 |Arr(I) =| temp.. |
|00000820| 20 20 20 20 20 20 20 20 | 0d 0a 20 20 09 09 27 20 | |.. ..' |
|00000830| 52 65 63 75 72 73 69 76 | 65 6c 79 20 63 61 6c 6c |Recursiv|ely call|
|00000840| 20 74 68 65 20 51 75 69 | 63 6b 53 6f 72 74 20 70 | the Qui|ckSort p|
|00000850| 72 6f 63 65 64 75 72 65 | 20 0d 0a 20 20 20 20 20 |rocedure| .. |
|00000860| 20 69 66 20 28 49 20 2d | 20 4c 6f 77 29 20 3c 20 | if (I -| Low) < |
|00000870| 28 48 69 67 68 20 2d 20 | 49 29 20 74 68 65 6e 0d |(High - |I) then.|
|00000880| 0a 20 20 20 20 20 20 20 | 20 20 20 51 75 69 63 6b |. | Quick|
|00000890| 53 6f 72 74 20 41 72 72 | 2c 20 4c 6f 77 2c 20 49 |Sort Arr|, Low, I|
|000008a0| 20 2d 20 31 2c 20 4f 72 | 64 65 72 0d 0a 20 20 20 | - 1, Or|der.. |
|000008b0| 20 20 20 20 20 20 20 51 | 75 69 63 6b 53 6f 72 74 | Q|uickSort|
|000008c0| 20 41 72 72 2c 20 49 20 | 2b 20 31 2c 20 48 69 67 | Arr, I |+ 1, Hig|
|000008d0| 68 2c 20 4f 72 64 65 72 | 0d 0a 20 20 20 20 20 20 |h, Order|.. |
|000008e0| 65 6c 73 65 0d 0a 09 09 | 20 20 20 20 51 75 69 63 |else....| Quic|
|000008f0| 6b 53 6f 72 74 20 41 72 | 72 2c 20 49 20 2b 20 31 |kSort Ar|r, I + 1|
|00000900| 2c 20 48 69 67 68 2c 20 | 4f 72 64 65 72 0d 0a 20 |, High, |Order.. |
|00000910| 20 20 20 20 20 20 20 20 | 20 51 75 69 63 6b 53 6f | | QuickSo|
|00000920| 72 74 20 41 72 72 2c 20 | 4c 6f 77 2c 20 49 20 2d |rt Arr, |Low, I -|
|00000930| 20 31 2c 20 4f 72 64 65 | 72 0d 0a 20 20 20 20 20 | 1, Orde|r.. |
|00000940| 20 65 6e 64 20 69 66 0d | 0a 0d 0a 20 20 20 65 6e | end if.|... en|
|00000950| 64 20 69 66 0d 0a 20 65 | 6e 64 20 69 66 0d 0a 0d |d if.. e|nd if...|
|00000960| 0a 65 6e 64 20 73 75 62 | 0b 00 00 00 55 6e 73 75 |.end sub|....Unsu|
|00000970| 70 70 6f 72 74 65 64 0e | 00 00 00 33 2e 30 20 61 |pported.|...3.0 a|
|00000980| 6e 64 20 68 69 67 68 65 | 72 |nd highe|r |
+--------+-------------------------+-------------------------+--------+--------+