Reaching the end of an array

[syno]

Hi guys

I have setup a FOR loop that check's through the contents of a text file. The contents of this text file is held in an ARRAY and if the contents of the file is the same as the contents of the ARRAY my script will return true, otherwise it will return false.

What I would like to do is for my little script to return an error message if the contents of the text file exceeds the amount of data that has been allocated to the ARRAY.

I can post my code if you like but if somebody could point me in the right direction I would be very greatful...

Thanks in advance

[Andreik]

Usualy $ARRAY[0] contain the number of subscripts. Or just use UBound() function to get the number of subscripts.

[Zedna]

Look at:

_FileCountLines()

UBound()

Edited May 7, 2009 by Zedna

[syno]

Hi guys

Thanks for your responses, still not sure how to do this. The code I have so far is shown below:

Local $line
Local $find[2] = ["\b1\b", "\b2\b"]

    For $i = 1 To _FileCountLines("C:\test.txt")
    $line = FileReadLine("C:\test.txt", $i)
    If StringRegExp($line, $find[$i-1]) Then 
        ConsoleWrite("Check passed successfully at line " & $i & @CRLF)
    Else
        MsgBox(4096, "ERROR", "An erronous value was found at line " & $i & @CRLF)
    EndIf
Next

I simply do not how to implement Ubound()...

[Authenticity]

By implementing you need to write a mechanism to avoid a hard crash of the known error "Array variable...." so you should check in this case if $i is greater than the last subscript of the array, in this case $i = 1 is the last iterate before you should terminate the loop.

Local $line
Local $find[2] = ["\b1\b", "\b2\b"]

For $i = 1 To _FileCountLines("C:\test.txt")
    If $i > UBound($find) Then ExitLoop ; Should be  If $i > UBound($find)-1 but you're using $i-1 anyway...
    $line = FileReadLine("C:\test.txt", $i)
    If StringRegExp($line, $find[$i-1]) Then
        ConsoleWrite("Check passed successfully at line " & $i & @CRLF)
    Else
        MsgBox(4096, "ERROR", "An erronous value was found at line " & $i & @CRLF)
    EndIf
Next

Edited May 7, 2009 by Authenticity

[GEOSoft]

Quick and dirty example

;
#include<file.au3>
$File = @ScriptFullPath
Global $MyArray = ""
_FileReadToArray($File, $myArray)
$hResult = (Ubound($MyArray)-1 = _FileCountLinesEx($File))
MsgBox(0,"Results", $hResult)

Func _FileCountLinesEx($sFile)
   If FileExists($sFile) Then $sFile = FileRead($sFile)
   StringRegExpReplace($sFile,"(?m:^)\V*(\v|\z)+?", "$1")
   Return @Extended
EndFunc
;

[syno]

By implementing you need to write a mechanism to avoid a hard crash of the known error "Array variable...." so you should check in this case if $i is greater than the last subscript of the array, in this case $i = 1 is the last iterate before you should terminate the loop.

Local $line
Local $find[2] = ["\b1\b", "\b2\b"]

For $i = 1 To _FileCountLines("C:\test.txt")
    If $i > UBound($find) Then ExitLoop ; Should be  If $i > UBound($find)-1 but you're using $i-1 anyway...
    $line = FileReadLine("C:\test.txt", $i)
    If StringRegExp($line, $find[$i-1]) Then
        ConsoleWrite("Check passed successfully at line " & $i & @CRLF)
    Else
        MsgBox(4096, "ERROR", "An erronous value was found at line " & $i & @CRLF)
    EndIf
Next

Thank you all for you replies. I have moved the line Authenticity entered into my code down a line and this works just fine...