Filter an Array

[danielkza]

Try this:

#include <file.au3>
#include <array.au3>
#include <Date.au3>

$dirpath = "D:\Datatrack\";set the path for the folder where the data extraction files are
$sfilter = "*.PRO"; set the filter for the files you want to extract data from
$FileList = _FileListToArray($dirpath, $sfilter, 1);get the list of files you want to extract data from
If @Error=1 Then
    MsgBox (0,"","No Files\Folders Found.")
    Exit
EndIf
$MA = 1
While $MA <= $FileList[0]
    $fd = StringLeft($FileList[$MA],8)
    if $fd < 20070802 Or $fd > 20070803 Then
        _ArrayDelete ($FileList, $MA)
        $FileList[0]-=1
        ContinueLoop
    Else
        $MA+=1
    EndIf
WEnd
_ArrayDisplay ($FileList)

Edited February 2, 2008 by danielkza

[andybiochem]

To loop through arrays while changing their size you must use While...

Not true.

Going through an array whilst deleting elements using a for loop is easy - I use it all the time -

...but you MUST go from back to front using -1 steps....

for $i = (UBound($array) - 1) to 1 step -1

Also, in my opinion, you're asking for trouble assuming dates are integers. Might not be too much of a problem in this case, but AutoIT has some amazing DATE functions that account for inconsistencies with our 4th dimension!!

Just my opinions, no critisism intended

[andybiochem]

Oops missed an EndIf in my example above...

for $i = (UBound($array1) - 1) to 1 step -1
      for $j = 1 to (UBound($array2) - 1)
              for $k = 1 to (UBound($array3) - 1)

                    if $array1[$i] >10 And $array2[$j] <4 And $array3[$k] >100 then ; etc etc etc
                     ;<STATEMENT>
                    EndIf
              next
       next
next

[williamk]

williamk, did you try my code? does it not work?

#include <file.au3>
#include <array.au3>
#include <Date.au3>
$dirpath = "D:\Datatrack\";set the path for the folder where the data extraction files are
$sfilter = "*.PRO"; set the filter for the files you want to extract data from
$FileList = _FileListToArray($dirpath, $sfilter, 1);get the list of files you want to extract data from
If @Error=1 Then
    MsgBox (0,"","No Files\Folders Found.")
    Exit
EndIf
$MA = $FileList[0]
While $MA >= 1
    $fd = StringLeft($FileList[$MA],8)
    MsgBox(4096, "emp detail records", "Number of emp detail records for profile is:" & $fd)
    $fdi = int($fd)
    ;MsgBox(4096, "emp detail records", "Number of emp detail records for profile is:" & $fdi)
    if $fdi < 20070802 or $fdi > 20070803 Then
        _ArrayDelete ($FileList, $MA)
    EndIf
    $MA = $MA - 1
WEnd
_ArrayDisplay ($FileList)

I think the problem with your code earlier is that you are indexing on $y instead of $x, and so you are actually skipping some values.

Hey BlueBear. Yep your code does work. Thanks much. You were right about my getting the $y and $x confused. Only problem is that the 0 element for the array still shows as 121, which could mess me up later on in my code when I reference the array. I think I will have to use the Ubound step method as suggested below to fix that.

[williamk]

Not true.

Going through an array whilst deleting elements using a for loop is easy - I use it all the time -

...but you MUST go from back to front using -1 steps....

for $i = (UBound($array) - 1) to 1 step -1

Also, in my opinion, you're asking for trouble assuming dates are integers. Might not be too much of a problem in this case, but AutoIT has some amazing DATE functions that account for inconsistencies with our 4th dimension!!

Just my opinions, no critisism intended

Hey Andy,

Thanks much for your input. I agree, converting date strings to integers for purposes of filtering is not the ideal. I just didn't know of any other way to do it. How do I reset the array so the 0 element shows the correct number of elements in the array?

Edited February 4, 2008 by williamk

[GEOSoft]

Hey BlueBear. Yep your code does work. Thanks much. You were right about my getting the $y and $x confused. Only problem is that the 0 element for the array still shows as 121, which could mess me up later on in my code when I reference the array. I think I will have to use the Ubound step method as suggested below to fix that.

Ubound is the better way to go anyway. At least if current chatter is correct and using the [0] element to hold the element count may be phased out.

[Simucal]

Ubound is the better way to go anyway. At least if current chatter is correct and using the [0] element to hold the element count may be phased out.

I remember reading a dev discussion about this.. and I think their concensus was while they wanted to remove the [0] element holding size thing... they decided it would break too many scripts currently out there so they were going to leave it. That is last I heard.

[GEOSoft]

I remember reading a dev discussion about this.. and I think their concensus was while they wanted to remove the [0] element holding size thing... they decided it would break too many scripts currently out there so they were going to leave it. That is last I heard.

Since when did we start worrying about breaking scripts around here? I've had lots of scripts broken by "advancements" in AutoIt. I use the term "advancements" a bit loosely as well because I didn't see all of them that way. However disagreement makes the world go around and sometimes we just have to adjust. To quote a quote as posted in Chat "Resistance is futile." Edited February 4, 2008 by GEOSoft

[andybiochem]

Hey Andy,

Thanks much for your input. I agree, converting date strings to integers for purposes of filtering is not the ideal. I just didn't know of any other way to do it. How do I reset the array so the 0 element shows the correct number of elements in the array?

Not tested, but I'd guess at:

$array[0] = Ubound($array)

[randallc]

Not tested, but I'd guess at:

$array[0] = Ubound($array)oÝ÷ Ûú®¢×:yÊ'²+-z{ZºÚ"µÍÌÍØ^VÌHHXÝ[
    ÌÍØ^JKL

(traditionally, the counter element [0] has not been counted!)

Best, Randall