why "Error: Subscript used with non-Array Variable" ?!

[Imbuter2000]

Sometimes I do not understand Autoit...

Why does it give "Error: Subscript used with non-Array Variable" on the switch instruction of the following simple script?

Dim array1D[1]
array1D[0] = ""
array1D = StringRegExp("one two three","ten|eleven",3)
switch array1D[0]
    case "ten"
        msgbox(0,"","ten")
    case "eleven"
        msgbox(0,"","eleven")
    case else
        msgbox(0,"","else...")
endswitch
if UBound($array1D) > 1 then msg(0,"","more than 1 match found")

[dufran3]

wait, all your array1D need to be $array1D, it is a variable, and needs the $

also, if you dim an array, you can't just assign $array1D a value, you have to specify $array1D[$i] where $i is the array item #

Dim $array1D[2]
$array1D[0] = ""
$array1D[1] = StringRegExp("one two three","ten|eleven",3)
switch $array1D[0]
    case "ten"
        msgbox(0,"","ten")
    case "eleven"
        msgbox(0,"","eleven")
    case else
        msgbox(0,"","else...")
endswitch
if UBound($array1D[1]) > 1 then msg(0,"","more than 1 match found")

Edited May 10, 2011 by dufran3

[wakillon]

because StringRegExp ( "one two three","ten|eleven", 3 ) return @error = 1

so array1d is now a string, not an array...

[Melba23]

Imbuter2000,

The SRE produces no matches and so $array1D (I assume the missing $ is a typo) is not an array.

You need to check after a call to an SRE with option 3 that you do indeed get an array - IsArray is a good place to start, or else check @error.

M23

Edit: Bonsoir wakillon!

Edited May 10, 2011 by Melba23

[GEOSoft]

It should fail long before that since you didn't declare anything as a variable by using "$". This isn't vbs you are working with, it's Autoit.

You asked StringRegExp() to return an array and because that SRE is totally incorrect it returned an error code instead of the array.

Always error check. With a flag > 0 you have 2 methods

$array1D = StringRegExp("one two three","ten|eleven",3)
;;If @Error Then _DoSomething() ;; Using the @Error method
If IsArray($array1D) Then _DoSomethingElse() ;; check for array method which is prefered for people new to AutoIt array code.

[dufran3]

Melba23, my new goal is to scour the forum and try and help someone with a correct answer before you get there...it seems I always fail...haha

[wakillon]

@Melba23

Bonsoir a vous tres cher !

Au fait, avais tu parié sur le jaune ?

Edited May 10, 2011 by wakillon

[Imbuter2000]

Ah, thank you all for the great support.

I wrote the wrong script by memory and forgot something. The script of my first message should be the following, and I still don't understand why that array is not CREATED by the first two lines, that I added right to compensate the fact that the stringregexp fails. Can you say why?

Dim $array1D[1]
$array1D[0] = ""
$array1D = StringRegExp("one two three","ten|eleven",3)
switch $array1D[0]
    case "ten"
        msgbox(0,"","ten")
    case "eleven"
        msgbox(0,"","eleven")
    case else
        msgbox(0,"","else...")
endswitch
if UBound($array1D) > 1 then msgbox(0,"","more than 1 match found")

[Imbuter2000]

even if I add the line

if @error = 1 then $array_sgr[0] = "abc"

the switch still fails with that damned error "Subscript used with non-Array variable.:

switch $array1D[0]"

Edited May 11, 2011 by Imbuter2000

[GEOSoft]

You are still totally incorrect. That RegEx can not possibly match and you have to check for an error after the RegEx OR check to see if an array was created.

;;Dim $array1D[1]  You don't need this at all
;;$array1D[0] = ""  Don't use it
$array1D = StringRegExp("one two three","ten|eleven",3)
If NOT @Error Then
switch $array1D[0]
    case "ten"
        msgbox(0,"","ten")
    case "eleven"
        msgbox(0,"","eleven")
    case else
        msgbox(0,"","else...")
endswitch
EndIf
;;if UBound($array1D) > 1 then msgbox(0,"","more than 1 match found")

OR

;;Dim $array1D[1]  You don't need this at all
;;$array1D[0] = ""  Don't use it
$array1D = StringRegExp("one two three","ten|eleven",3)
If IsArray($array1D) Then
switch $array1D[0]
    case "ten"
        msgbox(0,"","ten")
    case "eleven"
        msgbox(0,"","eleven")
    case else
        msgbox(0,"","else...")
endswitch
EndIf
;;if UBound($array1D) > 1 then msgbox(0,"","more than 1 match found")

[Imbuter2000]

why do you say that I cannot use $array1D[0] = "" or $array1D[0] = "foobar" to create the array(?) before the stringregexp?

does the stringregexp (with flag 3 for global matches) DELETEs an existant array if it doesn't find matches?

[GEOSoft]

StringRegExp() with flag 3 will create a 0 based array if there is a match or return an empty string if it fails.

You can use something like

Global $aArray

with no dimensions; otherwise that array will be overwritten anyway. Of course none of this matters until you get an actual working SRE anyway.

Edited May 11, 2011 by GEOSoft