Thanks

------------------

"He was a good little monkey and always very curious..."

a dim $array[1000000] will use 30megs of ram on a NT computer. As long as you have enough ram, and don't dip into the swap file to much..... kix will run just fine.

Bryce

I ran out of physical memory at 8,000,000.

What a pig this workstation is !

Shawn.

Don't forget - there's a limit on recursion as well - kix will "blow it's stack" after around 256 recursive calls (not that you would have folders (or whatever) that go that deep) !

Shawn.

$string="$val"

------------------
Greetz,

Roger the Young
------------------------
The code is out there...
------------------------

------------------

"He was a good little monkey and always very curious..."

Could you post some examples of the records and the results that you want to see?

------------------
Greetz,

Roger the Young
------------------------
The code is out there...
------------------------

------------------

"He was a good little monkey and always very curious..."

Bryce - didn't you do something like this in that "delete c:\temp" thread awhile back ? (one of my favorite threads of all time!)

Shawn.

[This message has been edited by Shawn (edited 14 February 2001).]

I was thinking of doing something like the following

code:

---

i = 0
j = 0
last = 0
while i < last
  j = i
  while j < last
    if array[i] = array[j]
      exit loop
    endif
  j = j + 1
  loop
i = i + 1
loop

---

Shawn.

Thanks

code:

---

break on

; Sorts an array in reverse order ...

$elements = 10
dim $array[$elements]
$array[0] = "Paul"
$array[1] = "Bryce"
$array[2] = "CeeJay"
$array[3] = "Roger"
$array[4] = "Erik"
$array[5] = "Jack"
$array[6] = "Radimus"
$array[7] = "Ruud"
$array[8] = "Henri"
$array[9] = "Ursula"

; Straight selection sort ...

$i = 0
while $i < $elements - 1
 $k = $i
 $min = $array[$k]
 $j = $i + 1
 while $j < $elements
  if $array[$j] > $min
   $k = $j
   $min = $array[$k]
   $array[$k] = $array[$i]
   $array[$i] = $min
  endif
  $j = $j + 1
 loop
 $i = $i + 1
loop

; Print it out ...

$i = 0
while $i < $elements
 ?"array[$i] = " $array[$i]
 $i = $i + 1
loop

exit

---

Shawn.

[This message has been edited by Shawn (edited 14 February 2001).]

I tested a file 1.3MB with 30447 lines and it took 3:24 minutes to parse without errors. The FM says that the whole file is put into memory.

filename=1300.txt
06:03:23
00 <-- this is the OPEN and then the CLOSE
06:06:47
30447 lines

cj

P.S. yes, I wrote a script that opens and reads every line of a file, recording the start and stop times and number of lines.

P.P.S. The 1.3MB text file is from Office 2000 and starts "REDISTRIBUTABLE CODE - Limited Use:"

[or do we really want to know that ?]

[This message has been edited by Shawn (edited 14 February 2001).]

I didn't feel like waiting for it to parse through 16k records with recursion

------------------

"He was a good little monkey and always very curious..."