help with recursive loop search

[kor 5]

I have 6 inputs I'm reading in using a loop.

For $i = 1 To UBound($aInput) - 1
$aRead[$i] = GUICtrlRead($aControls[$aInput[$i]])
Next

without posting the entire code just assume the above loop already works. It gives me all 6 inputs.

What I need to do is then compare each input with every other input. So for example if Input1="test" and Input2="test" I need throw an error.

Basically all 6 inputs must be unique and none of them can contain the value of any of the others.

Trying to figure out how I can write that kind of statement. Do I need to do a loop within a loop or where might I begin?

EDIT: forgot to mention that technically the inputs can be null. So if input2 and input3 are both null that is fine as long as if they did have values they are not the same.

Edited November 19, 2012 by kor

[JLogan3o13 1,371]

Hi, kor. Have you tried just using _ArrayUnique, to have the duplicates stripped out for you, rather than trying to loop through them all?

[kor 5]

I looked at ArrayUnique but I don't actually need the unique values, I need to know if the values are repeated. ArrayUnique doesn't look like it offers any way to return a value that would tell me that it has stripped values from the array because they are not unique.

[Melba23 2,860]

kor,

Just compare the sizes of the arrays with UBound after you have run _ArrayUnique - the same size means all original items were unique, different sizes means you had some matches.

M23

[kor 5]

I can't just know if the arrays are different sizes.

I need to know which input is the same as the other

If Input 2 and Input 5 are the same value I need to know.

It's not as simple as just knowing if all values are unique or not, if they are not unique I need to know and throw an error for the input that is duplicated.

Edited November 19, 2012 by kor

[jdelaney 282]

you can make a temp array, that is equal to your control array, and then do:

redim $tempArray[7]

or 6, depending on if 0 based

Edited November 19, 2012 by jdelaney

[kor 5]

something like this?

Local $aData[6] = ["a", "b", "c", "d", "e", "f"]
Local $aNew[6] = ["a", "i", "j", "k", "l", ","]

For $i = 0 To UBound($aData) - 1
   For $n = 0 To UBound($aNew) - 1
      If $aData[$i] = $aNew[$n] Then ConsoleWrite("$aNew has duplicate in index " & $n + 1 & @CR)
   Next
Next

[kylomas 412]

Kor,

Or something like this

#include <array.au3>

local $aInputs[5] = ['tom','john','george','alex','john']

local $st = timerinit()
local $sDiff = _FindDups($aInputs)
consolewrite('time to run func = ' & round(timerdiff($st)/1000,4) & @lf)

func _FindDups($array)

    for $i = 0 to ubound($array) - 1
        if isdeclared('s' & $array[$i]) then
            consolewrite('Dup found at element = ' & $i & ' dup value = ' & $array[$i] & @lf)
        else
            assign('s' & $array[$i],1)
        endif
    Next

endfunc

kylomas

[kor 5]

@kylomas, that works great!

Is there a way to also know the original element that the duplicate is from?

IE, you use $i as the location of where the duplicate exists, but is there a way to determine at what index the original is from (or at least the first usage of it in the index?)

IE, if elements 2 and 5 are the same, then $i would be 5... but is there a way to get the index of element 2?

[MilesAhead 23]

Seems to me you already have it in post #7

Just show both loop indexes plus one, and if you want the values, in the output display. Why only show one index?

[kylomas 412]

Kor,

Yes. I adapted this from some really slick code that spiff59 posted sometime ago dealing with a similar task. I am not at a real machine, however, so cannot reference that code and am kind of pressed for time. Take the code that I posted apart and I'm sure yo can figure it out.

Good Luck,

kylomas