Array: Subscript used on non-accessible variable

[levila]

Hi i would like to do automation but always receiving this error, but weird thing it never happen with another pc.

My error: Subscript used on non-accessible variable.:

For $i = 1 to $aFile[0]
For $i = 1 to $aFile^ ERROR

here is my code;

 

Func CheckTemp()

    $vfile = "C:\Users\Username\Desktop\Sample.txt"
    Local $aFile
    Local $aFinal[0]

    _FileReadToArray($vFile, $aFile)

    For $i = 1 to $aFile[0]
        $sTemp = _StringBetween($aFile[$i], "Temperature", "Celcius")
        If $sTemp <> 0 Then _ArrayAdd($aFinal, $sTemp)
    Next

    If $aFinal[0] > 40 Then
        $oOApp = ObjCreate("Outlook.Application")
        $oOMail = $oOApp.CreateItem ($olMailItem)
        $oOMail.Save

        ;With $oOMail
            ;.To = ($to)
            ;.;Subject = $subj
            ;.Importance= $olImportanceHigh
            ;.HTMLBody = &body
            ;.attachments.add ("")
            ;.Send
        ;EndWith

        MsgBox($MB_SYSTEMMODAL, "Current Temperature", $aFinal[0], 2)

    EndIf

    $oOApp=0
    FileClose($vfile)

EndFunc

 

 

 

Edited July 29, 2022 by levila

[Subz]

Use error checking for example:

_FileReadToArray($vFile, $aFile)
If @Error Then Exit MsgBox(4096, "Error", "Error reading file to Array")

 

 

Edited July 29, 2022 by Subz

[Musashi]

3 hours ago, levila said:

but weird thing it never happen with another pc.

@Subz is certainly right. The Sample.txt is missing or empty. On the other PC it is present, therefore no error message appears.

Here is a runable test version with extended error messages. Since you did not include an example of a Sample.txt, I created one myself for testing purposes.

expandcollapse popup

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

Global $vfile
CheckTemp()

Func CheckTemp()
    ;$vfile = "C:\Users\Username\Desktop\Sample.txt"
    $vfile = @ScriptDir & "\Sample.txt" ;  ; *** only for test

    Local $aFile, $aFinal[0], $iError, $sErrorMessage

    _FileReadToArray($vFile, $aFile)
    $iError = @error
    If $iError <> 0 Then
        Switch $iError
            Case $iError = 1
                $sErrorMessage = "Error : Opening specified file"
            Case $iError = 2
                $sErrorMessage = "Error : Unable to split the file"
            Case $iError = 3
                $sErrorMessage = "Error : File lines have different numbers of fields"
            Case $iError = 4
                $sErrorMessage = "Error : No delimiters found"
            Case Else
                $sErrorMessage = "undefined error : "
        EndSwitch

        Exit MsgBox(BitOR(4096, 16), "Error", $sErrorMessage & @CRLF)
    EndIf

    _ArrayDisplay($aFile, "aFile :") ; *** only for test


    For $i = 1 to $aFile[0]
        $sTemp = _StringBetween($aFile[$i], "Temperature", "Celcius")
        If $sTemp <> 0 Then _ArrayAdd($aFinal, $sTemp)
    Next

    _ArrayDisplay($aFinal, "aFinal :") ; *** only for test

;~     If $aFinal[0] > 40 Then
;~         $oOApp = ObjCreate("Outlook.Application")
;~         $oOMail = $oOApp.CreateItem ($olMailItem)
;~         $oOMail.Save

;~         ;With $oOMail
;~             ;.To = ($to)
;~             ;.;Subject = $subj
;~             ;.Importance= $olImportanceHigh
;~             ;.HTMLBody = &body
;~             ;.attachments.add ("")
;~             ;.Send
;~         ;EndWith

;~         MsgBox($MB_SYSTEMMODAL, "Current Temperature", $aFinal[0], 2)
;~      EndIf

;~     $oOApp=0
;~     FileClose($vfile)

EndFunc

 

sample.txt

[levila]

Yah i think i found what was the main issue right now, thank you @Subz, @Musashi

[Zedna]

or add test by FileExists() before _FileReadToArray() ...

[levila]

On 7/30/2022 at 11:04 PM, Zedna said:

or add test by FileExists() before _FileReadToArray() ...

Yes, actually i was looping the coding to save the file and then read the file again. the problem is the only PC seem taken abit longer than usual. so i just adding sleep and fileExist and if exist process to Check Temp() function, if not continue loop until fileexist.  thank you for your help.