30 replies to this topic

[GEOSoft]

Array.au3 won't include any other files.

I understood that. I guess I was making two points in the same post and didn't adequetly show the jump in the thought (or no thought) process. Thanks Gary

[GaryFrost]

I understood that. I guess I was making two points in the same post and didn't adequetly show the jump in the thought (or no thought) process. Thanks Gary

You can take a look at it: http://www.autoitscript.com/forum/index.ph...st&p=452889

[-Ultima-]

thanks!
How did you know that? -It's not in the helpFile either!?
Best, randall

Oh, I was the one who suggested the change here (sorry for not having replied earlier; I totally missed your post before)
__________________

Edit: So uh... I've posted a new (yet again optimized) version here.

Edited by -Ultima-, 24 December 2007 - 05:42 AM.

[duckling78]

I'm not sure what all the talk was about above, but this still seems to be a problem in the latest beta build I downloaded (AutoIt Version: 3.2.11.7 (beta)).

If this isn't fixed yet, can it be moved to the "v3 Bug Reports (Open)" section?

Is this something that may be marked as "won't fix" since it is mostly just used for debugging? I didn't really get what everyone was talking about in this thread.

Thanks for all the work on AutoIt3!

[Valik]

I'm not sure what all the talk was about above, but this still seems to be a problem in the latest beta build I downloaded (AutoIt Version: 3.2.11.7 (beta)).

If this isn't fixed yet, can it be moved to the "v3 Bug Reports (Open)" section?

Is this something that may be marked as "won't fix" since it is mostly just used for debugging? I didn't really get what everyone was talking about in this thread.

Thanks for all the work on AutoIt3!

Once again, I find myself saying, ALWAYS provide a script. When I'm left to my own devices, I produce working code... like this:

#include <Array.au3>

Local $a[10000]
For $i = 0 To UBound($a) - 1
    $a[$i] = $i
Next

_ArrayDisplay($a)

The list-view correctly displays all 10,000 items using 3.2.11.7.

[duckling78]

Er, I'm not done with this script yet, but here it is. The folder I point to has 9,306 files in it.

AutoIt        expandcollapse  popup

#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Duplicate Dxdiag Deleter", 445, 55, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUICtrlCreateLabel("Folder", 6, 8, 33, 17)
;$inputFolder = GUICtrlCreateInput("\\orca\main\StudiosQA\DxdiagParser\RightNowCRM_Dxdiags\Condensed", 42, 4, 399, 21)
$inputFolder = GUICtrlCreateInput(@TempDir, 42, 4, 399, 21)
GUICtrlSetOnEvent(-1, "inputFolderChange")
$btnDeleteDuplicates = GUICtrlCreateButton("Delete Duplicates", 6, 28, 131, 25, 0)
GUICtrlSetOnEvent(-1, "btnDeleteDuplicatesClick")
$lblStatus = GUICtrlCreateLabel("Status: Idle", 141, 34, 300, 22)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    Sleep(100)
WEnd

Func btnDeleteDuplicatesClick()
    Blah("Status: Before _FileListToArray")
    $fileList = _FileListToArray2(GUICtrlRead($inputFolder), "*", 1)
    ;_ArrayDisplay($fileList)
    Blah("Status: After _FileListToArray")
    Dim $fileExists[UBound($fileList, 1)][2]
    For $i = 0 To UBound($fileList, 1) - 1
        If Mod($i, 100) == 0 Then
            Blah("Status: " & $i & "/" & UBound($fileList, 1))
        EndIf
        $fileExists[$i][0] = $fileList[$i]
        If $i = 0 Then
            $fileExists[$i][1] = "FileExists"
        Else
            If FileExists(GUICtrlRead($inputFolder) & "\" & $fileList[$i]) Then
                $fileExists[$i][1] = "True"
            Else
                $fileExists[$i][1] = "False"
            EndIf
        EndIf
    Next
    Blah("Finished parsing " & $i & " files.")
    _ArrayDisplay($fileExists)
    ;_ArrayDisplay($fileList)
EndFunc
Func Form1Close()
    Exit
EndFunc
Func inputFolderChange()

EndFunc
Func Blah($text = "No text entered in 'Blah()' function")
    GUICtrlSetData($lblStatus, $text)
    ConsoleWrite(@CRLF & $text)
EndFunc

Func _FileListToArray2($sPath, $sFilter = "*", $iFlag = 0)
    Local $hSearch, $sFile, $asFileList[100000]
    If Not FileExists($sPath) Then Return SetError(1, 1, "")
    If (StringInStr($sFilter, "\")) Or (StringInStr($sFilter, "/")) Or (StringInStr($sFilter, ":")) Or (StringInStr($sFilter, ">")) Or (StringInStr($sFilter, "<")) Or (StringInStr($sFilter, "|")) Or (StringStripWS($sFilter, 8) = "") Then Return SetError(2, 2, "")
    If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")
    $hSearch = FileFindFirstFile($sPath & "\" & $sFilter)
    If $hSearch = -1 Then Return SetError(4, 4, "")
    While 1
        $sFile = FileFindNextFile($hSearch)
        If @error Then
            SetError(0)
            ExitLoop
        EndIf
        If $iFlag = 1 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") <> 0 Then ContinueLoop
        If $iFlag = 2 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") = 0 Then ContinueLoop
        $asFileList[0] = $asFileList[0] + 1
        $asFileList[$asFileList[0]] = $sFile
        If Mod($asFileList[0], 100) == 0 Then
            Blah("Status: " & $asFileList[0] & " files found.")
        EndIf
    WEnd
    FileClose($hSearch)
    ReDim $asFileList[$asFileList[0]+1]
    Return $asFileList
EndFunc   ;==>_FileListToArray

Here's what it looks like when it gets to entry number 3999:

[Valik]

I'm about to lock this because you're being quite obtuse about this. When providing a script, it has to, you know, be something people can use to reproduce the issue. You provided a script, didn't explain how to use it since clearly just running it by itself isn't sufficient to show me the issue. My own observations show I need to have a directory containing > 3999 entries in it, something I don't know the location of on my system, if indeed I even have a directory that cluttered.

So, one more time. Prove it or stop wasting my time. Show me something that reproduces the issue because right now all you've done is create a lot of noise for nothing.

Edit: And I wrote this working example to test multiple columns:

#include <Array.au3>

Local $a[10000][10]

For $i = 0 To UBound($a) - 1
    For $j = 0 To UBound($a, 2) - 1
        $a[$i][$j] = $i
        $a[$i][$j] = $i
    Next
Next

_ArrayDisplay($a)

Once again, I experience no issues.

Edited by Valik, 18 April 2008 - 11:28 PM.

[duckling78]

Sorry

Here's a better example.

#include <Array.au3>

Dim $array[5000][2]

For $x = 0 To 4999
    For $y = 0 To 1
        $array[$x][$y] = Random(1,1000,1)
    Next
Next

_ArrayDisplay($array)

I'm sorry I didn't make a better example. I just noticed this bug while creating my script up there. I really appreciate your work, thank you!

[Valik]

It works fine with 3.2.11.7.

#include <Array.au3>

MsgBox(4096, "", @AutoItVersion)

Dim $array[5000][2]

For $x = 0 To 4999
    For $y = 0 To 1
        $array[$x][$y] = Random(1,1000,1)
    Next
Next

_ArrayDisplay($array)

What does the message box say when you run that?

[duckling78]

Argh, sorry looks like it's fixed when I compile the script to a exe using the latest beta.

When I run the script using "F5" in SciTE @AutoItVersion reports it's still using 3.2.10.0.

I'll look into how to make SciTE use the beta version of AutoIt instead of using the release one. I was assuming I was using the latest beta since the "Toggle AU3 beta" script said I was using the beta version.

[randallc]

Argh, sorry looks like it's fixed when I compile the script to a exe using the latest beta.

When I run the script using "F5" in SciTE @AutoItVersion reports it's still using 3.2.10.0.

I'll look into how to make SciTE use the beta version of AutoIt instead of using the release one. I was assuming I was using the latest beta since the "Toggle AU3 beta" script said I was using the beta version.

Alt-F5