Build use and empty an array

[Phaser]

Hi, my previous thread will probably confuse people even more so I thought I would put the code into a new thread so it can be run, details on what it should do below script code

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <Array.au3>
HotKeySet("{ESC}", "killme")

Local $array[3] = ["0,1,2","1,2,3","2,3,4"]
Local $newarray[10]

$target = 4

while 1 
    it()    
WEnd

Func it()
$i = 0
while $i <= 2
    
    $numarray = StringSplit($array[$i], ",")
    _ArrayDelete($numarray, 0)
    _ArrayPush($newarray,$numarray,1)
    $thenumberarray = _ArrayUnique($newarray)
    _ArrayDelete($thenumberarray, 0)
    _ArrayPop($thenumberarray)
    _ArrayDisplay($thenumberarray)

; check $thenumberarray to see if 4 is in it, if not do nothing

$result = _ArraySearch($thenumberarray, $target, 0, 0, 0, 1)

If $result = -1 Then
    MsgBox(0,"box name", "Not found yet",1);let the $newarray grow
Else
    MsgBox(0,"box name", "Found it",1); empty the $newarray then start refilling it, same routine over and over
EndIf

$i = $i +1
WEnd

EndFunc

Func killme()
    Exit
EndFunc

What am trying to do is populate an array, use its values until something happens then empty it and start the cycle over again.

As you will notice, it builds up until it finds a specific number, 4 in this case, after it finds the number is present I would like it to start from the beginning again, ie 0,1,2 should be the only numbers there, currently it starts with 0,1,2,3 I think the 3 is an actual count, not sure.

I hope someone can see what I am trying to do

[Melba23]

Phaser,

I have absolutely no idea what you are trying to do, but I think this does what you have described:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <Array.au3>

HotKeySet("{ESC}", "killme")

Global $array[3] = ["0,1,2", "1,2,3", "2,3,4"]
Global $newarray[10]

$target = 4

While 1
    it()
WEnd

Func it()

    For $i = 0 To UBound($array) - 1

        $numarray = StringSplit($array[$i], ",", 2)
        $thenumberarray = _ArrayUnique($numarray)
        _ArrayDelete($thenumberarray, 0)
        _ArrayPush($newarray, $numarray, 1)
        $result = _ArraySearch($thenumberarray, $target)
        If $result = -1 Then
            MsgBox(0, "box name", "Not found yet", 1);let the $newarray grow
            _ArrayDisplay($newarray, "Filling")
        Else
            MsgBox(0, "box name", "Found it", 1); empty the $newarray then start refilling it, same routine over and over
            Global $newarray[10]
            _ArrayDisplay($newarray, "Emptied")
            ExitLoop
        EndIf
    Next

EndFunc   ;==>it

Func killme()
    Exit
EndFunc   ;==>killme

Does it?

M23

[wakillon]

Phaser,

I have absolutely no idea what you are trying to do, but I think this does what you have described:

Does it?

M23

Hi @Melba ! nice to see you !

How can you think it will do what he has described if you have absolutely no idea what he is trying to do ?

Are you medium ?

[PsaltyDS]

Hi @Melba ! nice to see you !

; ...

Are you medium ?

Medium, yes.

Melba was large for a short time, but has been eating right and exercising lately...

[JohnOne]

Gfaw gfaw.

[Melba23]

wakillon,

And bonsoir to you, mon brave.

The OP described what he wanted the code to do - and I think it does that. But I have no idea why he wants the code to do it. is that clearer?

PsaltyDS,

has been eating right and exercising lately

Always...but with the passing of the years it gets ever more difficult to stay medium...

M23

[MvGulik]

Hi, my previous thread will probably confuse people even more so I thought I would put the code into a new thread so it can be run, details on what it should do below script code

Erm ... might be a nice idea to put in a note about that in the old topic next time.

[Phaser]

@ MvGulik - sorry about that

Melba, almost, $thenumberarray (with unique values) is the array I want to use, if I change arraydisplay in your code to display $thenumberarray it never goes above 3 values, just before it finds '4' it should have 0,1,2,3

You have arrayunique working on numarray, numarray is only feeding sets of 2 numbers into new array, which could go up to 10 values in total, my thought was use numarray to fill newarray the get unique values from newarray, does that make sense

[Melba23]

Phaser,

I still have no idea what you are trying to do, but once again I believe this does what you have described:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <Array.au3>

HotKeySet("{ESC}", "killme")

Global $array[3] = ["0,1,2", "1,2,3", "2,3,4"]
Global $newarray[1]

Global $temparray = $newarray

$target = 4

While 1
    it()
WEnd

Func it()

    For $i = 0 To UBound($array) - 1

        $numarray = StringSplit($array[$i], ",", 2)
        If $newarray[0] = "" Then
            $temparray = $numarray
        Else
            _ArrayConcatenate($temparray, $numarray)
        EndIf
        _ArrayDisplay($temparray, "Added")
        $newarray = _ArrayUnique($temparray)
        _ArrayDisplay($newarray, "Unique")
        _ArrayDelete($newarray, 0)

        $result = _ArraySearch($newarray, $target)
        If $result = -1 Then
            ; let the $newarray grow
            _ArrayDisplay($newarray, "Not found yet")
            $temparray = $newarray
        Else
            ; empty the $newarray then start refilling it, same routine over and over
            Global $newarray[1]
            _ArrayDisplay($newarray, "Found it")
            $temparray = $newarray
            ExitLoop
        EndIf
    Next

EndFunc   ;==>it

Func killme()
    Exit
EndFunc   ;==>killme

If this is not what you want, you need to come up with considerably clearer prose to describe what it is you are trying to do. Otherwise I am done trying to produce code for an unknown purpose.

M23

[wakillon]

Phaser,

I still have no idea what you are trying to do, but once again I believe this does what you have described:

If this is not what you want, you need to come up with considerably clearer prose to describe what it is you are trying to do. Otherwise I am done trying to produce code for an unknown purpose.

M23

@Melba

Are you disappointed or disoriented like your players at Wembley !

Et toc !

[Melba23]

wakillon,

Unlike the donkeys we had on the pitch last night, I am neither "disappointed" nor "disoriented" - just confused over what exactly the OP wants this code to do.

Congratulations to France - it looks as if Laurent Blanc has got the basis for a good team there. I would have enjoyed watching them play even more if it had been at someone else's expense.

M23

[wakillon]

wakillon,

Unlike the donkeys we had on the pitch last night, I am neither "disappointed" nor "disoriented" - just confused over what exactly the OP wants this code to do.

Congratulations to France - it looks as if Laurent Blanc has got the basis for a good team there. I would have enjoyed watching them play even more if it had been at someone else's expense.

M23

@Melba23

oh! "Donkey" you're severe!

remember they were playing against the great team of France !

and sorry for the English bookmakers ...

I hope you do not lose money...

wakillon