Sign in to follow this  
Followers 0
Rorax

Newbie question about Array

3 posts in this topic

Basically I have this:

#include <Array.au3>
$search = FileFindFirstFile("h:\lex\*.tif")  
Dim $avArray
; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
   _ArrayAdd ( $avArray, $search )
WEnd

; Close the search handle
FileClose($search)
_ArrayDisplay ( $avArray, $search )

What I want it to do is search h:\lex for all the tif files, then display it in a array. Plan is eventually to get it to check each file in the array for the time its been created. Then sort the array with the oldest file first, and the newest last. And use a command line to change them from LZW compression to CCITT 4 (maybe check if they are LZW first since they need the colors inverted after converting to CCITT 4) and finally use the array to make a multi-tif file of all of them, starting with the oldest file first, since it was the first file created of the multi tif page.

I've never used a array though so I'm kind of stuck on that part. Just want a few pointers on how to use a array and I can hopefully do the rest on my own.

Regards,

Rorax

Share this post


Link to post
Share on other sites



Like this:

#include <Array.au3>
Local $search = FileFindFirstFile(@ScriptDir & "\*.tif")  
Dim $avArray[1]
; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

Local $i_Count = 0, $file
While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop
    Redim $avArray[Ubound($avArray)+1]
    $avArray[$i_Count] = $file 
    $i_Count += 1
WEnd
Redim $avArray[Ubound($avArray)-1]
; Close the search handle
FileClose($search)
_ArrayDisplay ( $avArray, "Results:" )

"So man has sown the wind and reaped the world. Perhaps in the next few hours there will no remembrance of the past and no hope for the future that might have been." & _"All the works of man will be consumed in the great fire after which he was created." & _"And if there is a future for man, insensitive as he is, proud and defiant in his pursuit of power, let him resolve to live it lovingly, for he knows well how to do so." & _"Then he may say once more, 'Truly the light is sweet, and what a pleasant thing it is for the eyes to see the sun.'" - The Day the Earth Caught Fire

Share this post


Link to post
Share on other sites

Like this:

#include <Array.au3>
Local $search = FileFindFirstFile(@ScriptDir & "\*.tif")  
Dim $avArray[1]
; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

Local $i_Count = 0, $file
While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop
    Redim $avArray[Ubound($avArray)+1]
    $avArray[$i_Count] = $file 
    $i_Count += 1
WEnd
Redim $avArray[Ubound($avArray)-1]
; Close the search handle
FileClose($search)
_ArrayDisplay ( $avArray, "Results:" )
Thanks a bunch, I'll try to understand what everything in the code means. But this will give me the start I need. Thanks again.

Regards,

Rorax

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0