Array Element [0]

[Blackstar]

Im trying to update the element[0] count to 18 when there is one new element added to the array...how do I do that? Check the pics below:

[herewasplato]

redim

[FuryCell]

It would be easier for people to help you if you showed some code but here is what I can say without code.

Just set its value like you would any array element,

Dim $Array[5]
$Array[0] = 4
MsgBox(0, "", $Array[0])oÝ÷ Úî±å¢éݶ®¶¶'%ÊÇ­zW¦z{t¶azè¥êì7ºÚ"µÍ[H ÌÍÐ^VÍWBÌÍÐ^VÌHHPÝ[
    ÌÍÐ^JHHBÙÐÞ
    ][ÝÉ][ÝË    ÌÍÐ^VÌJ

Edited July 13, 2006 by SolidSnake

[Blackstar]

Heres the code if it helps.

#include <Array.au3>
#include <File.au3>
Dim $s_Path, $names

$s_Path = @ScriptDir & "\names.txt"
If Not FileExists($s_Path) Then
    MsgBox(4096, "Error!", "names.txt does not exist.")
    Exit
EndIf

_FileReadToArray($s_Path, $names)
_ArrayDisplay($names, "Names ")

_ArrayAdd($names, "Troy Phillips")
_ArrayDisplay($names, "New addition")

$namestring = "Troy Phillips"
if _CheckNames($namestring, $names) then 
    MsgBox(4096, "Found!", "This name " & $namestring & " has been found in array.")
Else
    MsgBox(4096, "Not Found!", "This name " & $namestring & " has NOT been found in array.")
EndIf

Func _CheckNames($s_string, $namesarray)
    For $j = 1 To $namesarray[0]
        $search = $namesarray[$j]
        If Not @error Then
            $result = StringInStr($s_string, $search)
            If $result Then Return True
        EndIf
    Next
EndFunc

Edited July 13, 2006 by Blackstar

[evilertoaster]

and where in this code do you need to resize your array?

Edit: o wait maybe you mean-

#include <Array.au3>
#include <File.au3>
Dim $s_Path, $names

$s_Path = @ScriptDir & "\names.txt"
If Not FileExists($s_Path) Then
    MsgBox(4096, "Error!", "names.txt does not exist.")
    Exit
EndIf

_FileReadToArray($s_Path, $names)
_ArrayDisplay($names, "Names ")

_ArrayAdd($names, "Troy Phillips")
$names[0]=ubound($names)-1
_ArrayDisplay($names, "New addition")

$namestring = "Troy Phillips"
if _CheckNames($namestring, $names) then 
    MsgBox(4096, "Found!", "This name " & $namestring & " has been found in array.")
Else
    MsgBox(4096, "Not Found!", "This name " & $namestring & " has NOT been found in array.")
EndIf

Func _CheckNames($s_string, $namesarray)
    For $j = 1 To $namesarray[0]
        $search = $namesarray[$j]
        If Not @error Then
            $result = StringInStr($s_string, $search)
            If $result Then Return True
        EndIf
    Next
EndFunc

Edited July 13, 2006 by evilertoaster

[Blackstar]

before this line:

if _CheckNames($namestring, $names) then

[evilertoaster]

ahh sory you posted while i edited^^

[Blackstar]

ahh sory you posted while i edited^^

Thats fine, as long its before that line I tried your suggestion and it works. thanks!

[herewasplato]

evilertoaster,

Give away the whole answer, why don't ya? :-)

At least I was close since _ArrayAdd uses ReDim.

Blackstar,

Sorry for the short post above - it was all I had time for.

[Blackstar]

Redim....ok how do I put that in proper coding format in the autoit code I posted in above, herewasplato? Thanks.

[Xenobiologist]

Hi,

why ReDim?

#include <Array.au3>
#include <File.au3>
Dim $s_Path, $names

$s_Path = @ScriptDir & "\names.txt"
If Not FileExists($s_Path) Then
    MsgBox(4096, "Error!", "names.txt does not exist.")
    Exit
EndIf

_FileReadToArray($s_Path, $names)
_ArrayDisplay($names, "Names ")

_ArrayAdd($names, "Troy Phillips")
$names[0] = UBound($names) - 1
_ArrayDisplay($names, "New addition")

$namestring = "Troy Phillips"
if _CheckNames($namestring, $names) then
    MsgBox(4096, "Found!", "This name " & $namestring & " has been found in array.")
Else
    MsgBox(4096, "Not Found!", "This name " & $namestring & " has NOT been found in array.")
EndIf

Func _CheckNames($s_string, $namesarray)
    For $j = 1 To UBound($namesarray)-1
        $search = $namesarray[$j]
        If Not @error Then
            $result = StringInStr($s_string, $search)
            If $result Then Return True
        EndIf
    Next
EndFunc

So long,

Mega

[Blackstar]

Redim....ok how do I put that in proper coding format in the autoit code I posted in above, herewasplato? Thanks.

[herewasplato]

There is little reason to "build your own" UDF when _AddArray is already built/tested/proven. It has all of the error checking you'll need.

The OP asked how to add to an array and that is what ReDim does. "Resize an existing array"

I saw the OP, I posted the AutoIt function.

Just use the _ArrayAdd UDF like evilertoaster suggested.

The heart of the _ArrayAdd UDF is:

ReDim $avArray[UBound($avArray) + 1]

I did not mean to imply that you needed to change anything - I was just attempting to acknowledge that evilertoaster gave you a better answer than I did.

...sorry for any confusion...