# Function that takes array and finds unique indexes

## Recommended Posts

Cannot get my head around this...I have an array of X, and in that array each index has 3 parts, I need to find the unique indexes of the main array

so main array would be

[0] ???|abc|down

[1] ???|abc|downorflapping

[2] ???|ccc|ccc

[3] ???|ddd|ddd

[4] ???|xyz|down

[5] ???|xyz|unresponsive

so that is the array that comes in, and I think I need to break that up in another array and then compare it to each other, but I am not able to get my head around it...the first element does not matter, but if the second element is found anywhere else in the main array, I need to take only one of them, I would like that to be a variable passed, that way I can call it more then once and get the unique values I am looking for...Anyone got an idea?

I have tried many different ways but cannot seem to get it right

```\$aListAlerts[6] = ["???|abc|down", "???|abc|downorflapping", "???|ccc|ccc", "???|ddd|ddd", "???|xyz|down", "???|xyz|unresponsive"]

Local \$aNewArray[2]

For \$x = 0 To UBound(\$aListAlerts) - 1
Local \$aTestArray = StringSplit(\$aListAlerts[\$x], '|', 2)
If UBound(\$aTestArray) <= 1 Then ContinueLoop
ConsoleWrite(\$x & '  X  ' & \$aListAlerts[\$x] & @CRLF)
For \$y = 0 To UBound(\$aListAlerts) - 1
If \$y = \$x Then ContinueLoop
Local \$aTestArray2 = StringSplit(\$aListAlerts[\$y], '|', 2)
ConsoleWrite(\$y & '  Y  ' & \$aListAlerts[\$y] & @CRLF)
If UBound(\$aTestArray2) <= 1 Then ContinueLoop
If \$aTestArray2[2] <> \$aTestArray[2] Then

If \$aTestArray2[2] = 'Down' Then
If \$aTestArray[2] = 'DownOrFlapping' Then
If _ArraySearch(\$aNewArray, \$aListAlerts[\$x]) <> @error Then
ExitLoop
EndIf
EndIf
ElseIf \$aTestArray2[2] = 'DownOrFlapping' Then
If \$aTestArray[2] = 'Down' Then
If _ArraySearch(\$aNewArray, \$aListAlerts[\$x]) <> @error Then
ExitLoop
EndIf
EndIf
Else
If _ArraySearch(\$aNewArray, \$aListAlerts[\$x]) = @error Then
ExitLoop
EndIf
EndIf

EndIf

EndIf
Next
Next

_ArrayDisplay(\$aNewArray)```

edit does not look like tags are working?

edit - learned how to post code yea

Edited by nitekram

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go."

"Everybody catches up with everyone, eventually"

"As you teach others, you are really teaching yourself."

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace \$ghGDIPDll with \$__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

# Ternary operator

##### Share on other sites

I do not think that will work, unless I read it wrong. I want to find the element with the letters that match and then find out if there is a matching one and only return one. As each of the elements in the main array are unique - it would just return my main array?

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go."

"Everybody catches up with everyone, eventually"

"As you teach others, you are really teaching yourself."

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace \$ghGDIPDll with \$__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

# Ternary operator

##### Share on other sites

I need to take only one of them

Which one??

Edited by kylomas

Forum Rules         Procedure for posting code

"I like pigs.  Dogs look up to us.  Cats look down on us.  Pigs treat us as equals."

- Sir Winston Churchill

##### Share on other sites

nitekran,

Try something like this (just displays hit results)

```#include <array.au3>

local \$aMain[6] = [ '???|abc|down', _
'???|abc|downorflapping', _
'???|ccc|ccc', _
'???|ddd|ddd', _
'???|xyz|down', _
'???|xyz|unresponsive' ]

; create and populate interim 2D array

local \$aTmp[6][2]

for \$1 = 0 to ubound(\$aMain) - 1

\$a10 = stringsplit(\$aMain[\$1],'|')
\$aTmp[\$1][0] = \$a10[2]
\$aTmp[\$1][1] = \$a10[3]

Next

; compare each element to every other element - produce hit coordinates of elements

for \$1 = 0 to ubound(\$aTmp,1) - 1
for \$2 = 0 to ubound(\$aTmp,2) - 1
for \$3 = 0 to ubound(\$aTmp,1) - 1
for \$4 = 0 to ubound(\$aTmp,2) - 1
if \$aTmp[\$1][\$2] = \$aTmp[\$3][\$4] then
ConsoleWrite(stringformat('ele [%02i][%02i] = %-15s  matches ele [%02i][%02i] = %-15s',\$1,\$2,\$aTmp[\$1][\$2],\$3,\$4,\$aTmp[\$3][\$4]) & @LF)
EndIf
Next
Next
Next
Next```

kylomas

edit: cleaned up / commented code

Edited by kylomas

Forum Rules         Procedure for posting code

"I like pigs.  Dogs look up to us.  Cats look down on us.  Pigs treat us as equals."

- Sir Winston Churchill

##### Share on other sites

Or using an extended array search UDF (doh! just worked on this and forgot about it!)

```#include <array.au3>

local \$aMain[6] = [ '???|abc|down', _
'???|abc|downorflapping', _
'???|ccc|ccc', _
'???|ddd|ddd', _
'???|xyz|down', _
'???|xyz|unresponsive' ]

; create and populate interim 2D array

local \$aTmp[6][2]

for \$1 = 0 to ubound(\$aMain) - 1

\$a10 = stringsplit(\$aMain[\$1],'|')
\$aTmp[\$1][0] = \$a10[2]
\$aTmp[\$1][1] = \$a10[3]

Next

; compare each element to every other element - produce hit coordinates of elements

for \$1 = 0 to ubound(\$aTmp,1) - 1
for \$2 = 0 to ubound(\$aTmp,2) - 1
\$a10 = _arrayfindallex(\$aTmp,\$aTmp[\$1][\$2])
ConsoleWrite(\$aTmp[\$1][\$2] & ' Found at ' & @lf)
for \$i = 0 to ubound(\$a10) - 1
ConsoleWrite(@tab & \$a10[\$i][0] & @lf)
Next
next
Next

#region Functions
#include-once

; #INDEX# =======================================================================================================================
; Title .........: Array Functions Not in General Distribution
; AutoIt Version : 3.3.8.1
; Language ......: English
; Description ...: Collection of array functions that do not exist or can be enhanced (suffixed with "ex")
; ===============================================================================================================================

; #CURRENT# =====================================================================================================================
;_ArrayDeleteColumn_Function
;_ArrayFindAll_Function
; ===============================================================================================================================

; #FUNCTION# ====================================================================================================================
; Name...........: _ArrayDeleteColumn
; Description ...: Deletes Any Column of a 2 Dimensional Array
; Syntax.........: _ArrayDeleteColumn(Byref \$avSourceArray,\$Col = 1)
; Parameters ....: \$avSourceArray   - [Byref] A 2 dimensional array of any number of columns.
;                  \$iCol            - Integer number of the column that you want to delete.
; Return values .: Success          - @error is set to 0 and an array minus the column to delete is returned.
;                  Failure          - @error is set to one of the following:
;                                    1 - Parameter 1 is not a 2 dimensional array
;                                   |2 - Parameter 2 is not a number
;                                   |3 - Column to delete does not exist in the source array.
; Author ........: kylomas
; Modified.......: 05/03/2013
; Remarks .......: Version 1.0.0
; Example .......: Yes
; ===============================================================================================================================

Func _ArrayDeleteColumn(ByRef \$avSourceArray, \$iCol = 1)

; flush the parms

If \$iCol = -1 Or \$iCol = Default Then \$iCol = 1

If UBound(\$avSourceArray, 0) <> 2 Then Return SetError(1)
If Not IsNumber(\$iCol) And Not StringIsDigit(\$iCol) Then Return SetError(2)
If \$iCol > UBound(\$avSourceArray, 2) Or \$iCol < 1 Then Return SetError(3)

; define receiving array with 2ND dimension - 1

Local \$aRet[UBound(\$avSourceArray, 1)][UBound(\$avSourceArray, 2) - 1]

; populate receiving array

For \$1 = 0 To UBound(\$aRet, 1) - 1
For \$2 = 0 To UBound(\$aRet, 2) - 1
If \$2 >= \$iCol Then
\$aRet[\$1][\$2] = \$avSourceArray[\$1][\$2 + 1]
Else
\$aRet[\$1][\$2] = \$avSourceArray[\$1][\$2]
EndIf
Next
Next
Return SetError(0, 0, \$aRet)

EndFunc   ;==>_ArrayDeleteColumn

; #FUNCTION# ====================================================================================================================
; Name...........: _ArrayFindAllex
; Description ...: Searches each element in an array for a value based on supplied parameters.
; Syntax.........: _ArrayFindAll(Byref \$avSourceArray,\$sSearchString,\$iSearchType=1,\$iCaseSense=0)
; Parameters ....: \$avSourceArray   - [Byref] A 1 dimensional array.
;                  \$sSearchString   - The string to search for.
;                  \$iSearchType     - 0 = match if element contains the search string
;                                   | 1 = match if element is equal to the search string (default)
;                                   | 2 = match if element starts with the search string
;                                   | 3 = match if element ends with search string
;                   \$iCaseSense     - 0 = match is not case sensitive (default)
;                                   | 1 = match is case sensitive
;                   \$sSrchArgSepStr - A string of user supplied characters used to seperate multiple search arguments (Default is -1)
; Return values .: Success          - @error is set to 0.  Return a 2D array of
;                                   |     [n][0] - The element number that the string was found in
;                                   |     [n][1] - The search string
;                                   |     [n][2] - The value found at that element
;                  Failure          - @error is set to one of the following:
;                                       1 - Parameter 1 is not an array
;                                   |   2 - Search type is invalid
;                                   |   3 - Case sense is invalid
;                                   |   4 - Source array is more than 2 dimensions
; Author ........: kylomas
; Modified.......: 05/03/2013
; Remarks .......: Version 1.0.0
; Example .......: Yes
; ===============================================================================================================================

Func _ArrayFindAllex(ByRef \$avSourceArray, \$sSearchString, \$iSearchType = 1, \$iCaseSense = 0, \$sSrchArgSepString = -1)

; set parm defaults

If \$iSearchType = Default Or \$iSearchType = -1 Then \$iSearchType = 1
If \$iCaseSense = Default Or \$iCaseSense = -1 Then \$iCaseSense = 0
If \$iCaseSense = Default Or \$iCaseSense = -1 Then \$iCaseSense = 0
If \$sSrchArgSepString = Default Then \$sSrchArgSepChar = -1

; check parameters

If Not IsArray(\$avSourceArray) Then Return SetError(1)
If \$iSearchType < 0 Or \$iSearchType > 3 Then Return SetError(2)
If \$iCaseSense <> 0 And \$iCaseSense <> 1 Then Return SetError(3)

; check for multiple search arguments

If \$sSrchArgSepString <> -1 Then

If StringInStr(\$sSearchString, \$sSrchArgSepString) > 0 Then
\$aSearchString = StringSplit(\$sSearchString, \$sSrchArgSepString, 3)
EndIf
Else
Local \$aSearchString[1]
\$aSearchString[0] = \$sSearchString

EndIf

; setup work vars

Local \$sTmp, \$iElementNumber = 0, \$sSaveSearchString = ''
If UBound(\$avSourceArray, 0) = 2 Then Local \$aTmp[UBound(\$avSourceArray, 1) * UBound(\$avSourceArray, 2) + 80][3]
If UBound(\$avSourceArray, 0) = 1 Then Local \$aTmp[UBound(\$avSourceArray, 1) + 80][3]

For \$i = 0 To UBound(\$aSearchString) - 1

; save original search argument, escape reserved characters and construct pattern based on parms

\$sSaveSearchString = \$aSearchString[\$i]

\$aSearchString[\$i] = StringRegExpReplace(\$aSearchString[\$i], '[\^\.\*\?\\$\[\]\(\)\\\|]', '\\\$0')

; construct search argument

Switch \$iSearchType
Case 0
If \$iCaseSense = 0 Then \$aSearchString[\$i] = '(?is)' & \$aSearchString[\$i]
If \$iCaseSense = 1 Then \$aSearchString[\$i] = '(?s)' & \$aSearchString[\$i]
Case 1
If \$iCaseSense = 0 Then \$aSearchString[\$i] = '(?i)^' & \$aSearchString[\$i] & '\$'
If \$iCaseSense = 1 Then \$aSearchString[\$i] = '^' & \$aSearchString[\$i] & '\$'
Case 2
If \$iCaseSense = 0 Then \$aSearchString[\$i] = '(?is)^' & \$aSearchString[\$i]
If \$iCaseSense = 1 Then \$aSearchString[\$i] = '(?s)^' & \$aSearchString[\$i]
Case 3
If \$iCaseSense = 0 Then \$aSearchString[\$i] = '(?is)' & \$aSearchString[\$i] & '\$'
If \$iCaseSense = 1 Then \$aSearchString[\$i] = '(?s)' & \$aSearchString[\$i] & '\$'
EndSwitch

; main loop

Switch UBound(\$avSourceArray, 0)
Case 1
For \$1 = 0 To UBound(\$avSourceArray, 1) - 1
If StringRegExp(\$avSourceArray[\$1], \$aSearchString[\$i]) = 1 Then
\$aTmp[\$iElementNumber][0] = \$1
\$aTmp[\$iElementNumber][1] = \$sSaveSearchString
\$aTmp[\$iElementNumber][2] = \$avSourceArray[\$1]
\$iElementNumber += 1
EndIf
Next
Case 2
For \$1 = 0 To UBound(\$avSourceArray, 1) - 1
For \$2 = 0 To UBound(\$avSourceArray, 2) - 1
If StringRegExp(\$avSourceArray[\$1][\$2], \$aSearchString[\$i]) = 1 Then
\$aTmp[\$iElementNumber][0] = 'ROW ' & \$1 & ' - ' & 'COL ' & \$2
\$aTmp[\$iElementNumber][1] = \$sSaveSearchString
\$aTmp[\$iElementNumber][2] = \$avSourceArray[\$1][\$2]
\$iElementNumber += 1
EndIf
Next
Next
Case Else
Return SetError(4)
EndSwitch

Next

; find # of hits

Local \$iRowCount = 0
For \$1 = 0 To UBound(\$aTmp) - 1
If StringLen(\$aTmp[\$1][0]) > 0 Then ContinueLoop
\$iRowCount = \$1
ExitLoop
Next

If \$iRowCount = 0 Then Return SetError(5)

; shrink result array and return results

ReDim \$aTmp[\$iRowCount][3]
Return SetError(0, 0, \$aTmp)

EndFunc   ;==>_ArrayFindAllex
#endregion Functions```

kylomas

Forum Rules         Procedure for posting code

"I like pigs.  Dogs look up to us.  Cats look down on us.  Pigs treat us as equals."

- Sir Winston Churchill

##### Share on other sites

I do not think that will work, unless I read it wrong.

I was thinking you could use the code as an example.

##### Share on other sites

Thanks for your help @kylomas. I will look at your examples and see if I can get my head around them.

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go."

"Everybody catches up with everyone, eventually"

"As you teach others, you are really teaching yourself."

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace \$ghGDIPDll with \$__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

# Ternary operator

##### Share on other sites

I came up with this: wondering if I can make it better?

```#include <array.au3>
;#include <File.au3>

Local \$aMain[6] = ['???|abc|downorflapping', _
'???|abc|down', _
'???|ccc|ccc', _
'???|ddd|ddd', _
'???|xyz|down', _
'???|xyz|unresponsive']

; create and populate interim 2D array
For \$1 = 0 To UBound(\$aMain) - 1
\$a10 = StringSplit(\$aMain[\$1], '|')

Next

Local \$aNewArray[2][3]
Local \$icount = 0, \$bPass = True
Local \$RemoveWords = 'DownOrFlapping,UnResponsive'

For \$x = 0 To UBound(\$aAlertInfo, 1) - 1
For \$y = 0 To UBound(\$aAlertInfo, 1) - 1
\$bPass = False
Else
\$bPass = True
EndIf
If Not \$bPass Then ContinueLoop
;
If _ArraySearch(\$aNewArray, \$aAlertInfo[\$x][0], 0, 0, 0, 0, 1, 1) = -1 Then

If UBound(\$aNewArray, 1) > 0 And UBound(\$aNewArray, 1) <= 2 Then
ConsoleWrite('... ' & \$icount & '*' & UBound(\$aNewArray, 1) & @CRLF)
ConsoleWrite(UBound(\$aNewArray, 1) & @CRLF)
\$icount += 1
\$bPass = False
EndIf
EndIf

And _ArraySearch(\$aNewArray, \$aAlertInfo[\$x][0], 0, 0, 0, 0, 1, 1) = -1 _
And _ArraySearch(\$aNewArray, \$aAlertInfo[\$y][0], 0, 0, 0, 0, 1, 1) = -1 Then

\$bPass = False
Else
\$bPass = True
EndIf
If Not \$bPass Then ContinueLoop
;
\$icount += 1
ReDim \$aNewArray[\$icount][3]
;ConsoleWrite('... ' & \$icount & @CRLF)
\$aNewArray[\$icount - 1][1] = \$aAlertInfo[\$x][0] ; need the minus 1 to account for the ZERO index
\$bPass = False

EndIf
Next
Next

;_FileWriteFromArray('!testing.txt', \$aNewArray)```
Edited by nitekram

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go."

"Everybody catches up with everyone, eventually"

"As you teach others, you are really teaching yourself."

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace \$ghGDIPDll with \$__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

# Ternary operator

##### Share on other sites

Assuming that 'downorflapping' and 'unresponsive' come after 'down' if sorted, maybe this can do the work, sort of

```#include <array.au3>
;#include <File.au3>

Local \$aMain[6] = ['???|abc|downorflapping', _
'???|abc|down', _
'???|ccc|ccc', _
'???|ddd|ddd', _
'???|xyz|down', _
'???|xyz|unresponsive']

;_ArrayDisplay(\$aMain)

_ArraySort(\$aMain)
;_ArrayDisplay(\$aMain)

For \$i = Ubound(\$aMain)-1 to 1 step -1
\$current = StringRegExpReplace(\$aMain[\$i], '.+?\|(.*?)\|.+', "\$1")
\$prev = StringRegExpReplace(\$aMain[\$i-1], '.+?\|(.*?)\|.+', "\$1")
If \$current = \$prev Then _ArrayDelete(\$aMain, \$i)
Next
_ArrayDisplay(\$aMain)```
Edited by mikell

##### Share on other sites

That works as long as I change my array to have the second element first and the first element last - not a big deal to change. I did not think the first element would be a problem (stupid me for thinking that), so I chose not to post, but here would be an example:

```Local \$aMain[6] = ['host|abc|downorflapping', _
'port|xyz|unresponsive', _
'host|abc|down', _
'router|ccc|ccc', _
'switch|ddd|ddd', _
'TrunkCable|xyz|down']```
I do have a question though, as I understand most of the code. But I am lost when I see REGEXP, the things you guys put in there make me feel like I am reading Greek. I always get lost in those. Can you dumb it down for the none Greek readers?

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go."

"Everybody catches up with everyone, eventually"

"As you teach others, you are really teaching yourself."

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace \$ghGDIPDll with \$__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

# Ternary operator

##### Share on other sites

That works as long as I change my array to have the second element first and the first element last - not a big deal to change. I did not think the first element would be a problem (stupid me for thinking that), so I chose not to post, but here would be an example:

```Local \$aMain[6] = ['host|abc|downorflapping', _
'port|xyz|unresponsive', _
'host|abc|down', _
'router|ccc|ccc', _
'switch|ddd|ddd', _
'TrunkCable|xyz|down']```
I do have a question though, as I understand most of the code. But I am lost when I see REGEXP, the things you guys put in there make me feel like I am reading Greek. I always get lost in those. Can you dumb it down for the none Greek readers?

Can you give an example how the result should look like?

Br,

UEZ

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

##### Share on other sites

So something like this then ?

```#include <array.au3>

Local \$aMain[6] = ['host|abc|downorflapping', _
'port|xyz|unresponsive', _
'host|abc|down', _
'router|ccc|ccc', _
'switch|ddd|ddd', _
'TrunkCable|xyz|down']

; create and populate interim 2D array
For \$1 = 0 To UBound(\$aMain) - 1
\$a10 = StringSplit(\$aMain[\$1], '|')

Next

For \$i = Ubound(\$aMain)-1 to 1 step -1
If \$current = \$prev Then _ArrayDelete(\$aAlertInfo, \$i)
Next

##### Share on other sites

The list should contain only 4 items, I am trying to remove the duplicates. I just came up with another condition - if only one is in the list it needs to be in the final array.

This is what I am looking for:

``` host|abc|down
router|ccc|ccc
switch|ddd|ddd
TrunkCable|xyz|down```

But if the list were this:

``` ['host|abc|downorflapping', _
'port|xyz|unresponsive', _
'router|ccc|ccc', _
'switch|ddd|ddd', _
'TrunkCable|xyz|down']```

I would want my output to be: Notice how there is not a duplicate (index 2) for abc, so I would still want to pick that one up in my list as well. Meaning, sometimes the alert comes in just with 'downorflapping' and not another one for 'down'. I am still working on this, if anyone has an idea on how to proceed - that would be great.

```host|abc|downorflapping
router|ccc|ccc
switch|ddd|ddd _
TrunkCable|xyz|down```

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go."

"Everybody catches up with everyone, eventually"

"As you teach others, you are really teaching yourself."

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace \$ghGDIPDll with \$__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

# Ternary operator

##### Share on other sites

Is mikell's version not working for you?

I got the same idea:

```#include <Array.au3>
Global \$aInput[6] = ['host|abc|downorflapping', _
'port|xyz|unresponsive', _
'host|abc|down', _
'router|ccc|ccc', _
'switch|ddd|ddd', _
'TrunkCable|xyz|down']
\$aResult = MakeUnique(\$aInput)
_ArrayDisplay(\$aResult)

Func MakeUnique(\$aInput)
Local \$aWork[UBound(\$aInput)][3], \$i, \$x, \$aTmp
For \$i = 0 To UBound(\$aInput) - 1 ;convert it to a 2d array
\$aTmp = StringSplit(\$aInput[\$i], "|", 2)
For \$x = 0 To 2
\$aWork[\$i][\$x] = \$aTmp[\$x]
Next
Next
_ArraySort(\$aWork, 0, 0, 0, 1) ;sort array at subitem 1 (hostnames)
Local \$iUB = UBound(\$aWork) - 1
For \$i = \$iUB To 1 Step - 1 ;delete duplicates
If \$aWork[\$i][1] = \$aWork[\$i - 1][1] Then
_ArrayDelete(\$aWork, \$i)
EndIf
Next
Return \$aWork
EndFunc ```

Or a different approach:

```#include <Array.au3>
Global \$aInput[6] = ['host|abc|downorflapping', _
'port|xyz|unresponsive', _
'host|abc|down', _
'router|ccc|ccc', _
'switch|ddd|ddd', _
'TrunkCable|xyz|down']

\$aResult = MakeUnique(\$aInput)
_ArrayDisplay(\$aResult)

Func MakeUnique(\$aInput)
Local \$sInput = _ArrayToString(\$aInput, @CRLF)
Local \$aUnique = \$aInput, \$aTmp, \$i, \$j, \$y
For \$i = 0 To UBound(\$aInput) - 1
\$aTmp = StringRegExp(\$sInput, "(.*\|" & StringRegExpReplace(\$aInput[\$i], ".*\|(.*)\|.*", "\$1") & "\|.*)", 3)
If (UBound(\$aTmp) - 1) > 0 Then
For \$j = 1 To UBound(\$aTmp) - 1
For \$y = UBound(\$aUnique) - 1 To 0 Step - 1
If \$aUnique[\$y] = StringReplace(StringStripCR(\$aTmp[\$j]), @LF, "") Then _ArrayDelete(\$aUnique, \$y)
Next
Next
EndIf
Next
Return \$aUnique
EndFunc```

Br,
UEZ

Edited by UEZ

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

##### Share on other sites

The version you posted (mike's) seems to work - this does not - posted. Have not had time to look at code...will have time tomorrow, the one you posted, gives me the opposite of what I am looking for, and since I have no idea about REGEX function, it would take me some time to change/fix

```#include <array.au3>

Local \$aMain[6] = ['host|abc|downorflapping', _
'port|xyz|unresponsive', _
'host|abc|down', _
'router|ccc|ccc', _
'switch|ddd|ddd', _
'TrunkCable|xyz|down']

; create and populate interim 2D array
For \$1 = 0 To UBound(\$aMain) - 1
\$a10 = StringSplit(\$aMain[\$1], '|')

Next

For \$i = Ubound(\$aMain)-1 to 1 step -1
If \$current = \$prev Then _ArrayDelete(\$aAlertInfo, \$i)
Next

Thanks for everyones help

EDIT - I should have said, yours that you posted with the same idea, worked, and appears to be the best...I am looking on how to make sure that the more sever of the two alerts hits, as Down, is a lot more sever then downorflapping, but again will have to work on it tomorrow, thanks again

Edited by nitekram

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go."

"Everybody catches up with everyone, eventually"

"As you teach others, you are really teaching yourself."

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace \$ghGDIPDll with \$__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

# Ternary operator

## Create an account

Register a new account

• ### Similar Content

• By Blitzkid
Hello, i want to search several directories for files with the largest numbers behind them (Like "video123") . They dont have a datatype. But there are also files with longer names and datatypes in these folders (Like "video778.mp4"). Is it possible to filter the _FileListToArray Syntax from
to smth. like

Here is my Code
#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <array.au3> #include <File.au3> \$filedir = @ScriptDir & "\" _checkfile() Func _checkfile() ConsoleWrite("______________________" & @CRLF) Local \$arr[3] = ["music", "picture", "video"] For \$i = 0 To UBound(\$arr) - 1 Local \$arrayfiles = _FileListToArray(\$filedir & \$arr[\$i], \$arr[\$i] & "*", 1) If @error = 1 Then ConsoleWrite(\$arr[\$i] & "Error 1") EndIf If @error = 4 Then ConsoleWrite(\$arr[\$i] & "Error 2") ;Exit EndIf \$arrayfilter = _ArrayMax(\$arrayfiles, 0, 1) Global \$stringfiles = StringReplace(\$arrayfilter, \$arr[\$i], "") ConsoleWrite(\$arrayfilter & @CRLF) Next EndFunc ;==>_checkfile
• By jmp
Script running good but error in line 7.
When i run this script :
#include <IE.au3> #include <Array.au3> \$oIE = _IEAttach ("Shop") \$oTable = _IETableGetCollection (\$oIE, 1) \$aTableData = _IETableWriteToArray (\$oTable) For \$inumber = 1 To UBound(\$aTableData) -1 \$table = \$aTableData[4][\$inumber] MsgBox(0, "", \$table) Next I got Error: array variable has incorrect number of subscripts or subscript dimension range exceeded

• Good morning guys, i hope that you're all well.
guys, i have a problem and i hope that you can help me
i've created an 3d array
the array Contain a Categories info
as folow
\$array[n][0][0] = Categorie name
\$array[n][0][1] = Categorie file path
\$array[n][0][2] = Categorie contents number
in my tool i want to add an option to delete a Category
as you know the Categorie mean that must delete a region from the array
when i tried to use _arrayDelete
with the 2d array it work well
but here i couldn't find any way to do that, can any one help me please?

i tried to create a function that read a folder files to 3d array
e.g
\$array[n][0][0] = ctName
\$array[n][0][1] = ctFilePath
\$array[n][0][2] = crtsections number
\$array[n][m][0] = KeyName
\$array[n][m][1] = KeyVal
\$array[n][m][2] = keySectionName

that the array
when i put one file into the folder all things work fine
but when i put more than one file
the last file worked fine but the others only the first key is showing
please can you help me to correct this problem
here is the example with the folder

array3d.zip

• good morning everybody.
today i liked to share an small example with you
which it an function to read the registry values as an array
the result array is 2d array witch
\$a_array[n][0] = value name
\$a_array[n][1] = value Data
\$a_array[0][0] = values count
here's the function

#include <Array.au3> #include <WinAPIReg.au3> #include <APIRegConstants.au3> Local \$a_array = _RegReadToArray("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run") If @error Then     MsgBox(16, "error", @error)     Exit EndIf _ArrayDisplay(\$a_array) Func _RegReadToArray(\$s_RegKey)     Local \$a_KeySplitInfo = StringSplit(\$s_RegKey, "\\", 2)     If UBound(\$a_KeySplitInfo) <= 1 Then         \$a_KeySplitInfo = StringSplit(\$s_RegKey, "\", 2)         If UBound(\$a_KeySplitInfo) <= 1 Then Return (1, 1, 0)     EndIf     Local \$H_KeyInfo = "", \$s_RegKeyInfo = ""     Switch \$a_KeySplitInfo[0]         Case "hklm", "HKEY_LOCAL_MACHINE", "hklm64", "HKEY_LOCAL_MACHINE64"             \$H_KeyInfo = \$HKEY_LOCAL_MACHINE         Case "hkCu", "HKEY_CURRENT_USER", "hkCU64", "HKEY_CURRENT_USER64"             \$H_KeyInfo = \$HKEY_CURRENT_USER         Case "hkCr", "HKEY_CLASSES_ROOT", "HKCR64", "HKEY_CLASSES_ROOT64"             \$H_KeyInfo = \$HKEY_CLASSES_ROOT         Case "HKU", "HKEY_USERS", "HKU64", "HKEY_USERS64"             \$H_KeyInfo = \$HKEY_USERS         Case Else             Return SetError(2, 2, 0)     EndSwitch     _ArrayDelete(\$a_KeySplitInfo, 0)     \$s_RegKeyInfo = _ArrayToString(\$a_KeySplitInfo, "\")     Local \$H_KeyInfoOpen = _WinAPI_RegOpenKey(\$H_KeyInfo, \$s_RegKeyInfo, \$KEY_READ)     Local \$A_KeyInfo = _WinAPI_RegQueryInfoKey(\$H_KeyInfoOpen)     If @error Then Return SetError(1, 1, 0)     _WinAPI_RegCloseKey(\$H_KeyInfoOpen)     Local \$A_RegVal[\$A_KeyInfo[2] + 1][2]     Local \$iV = 1, \$s_RegRead = ""     While 1         \$s_RegVal = RegEnumVal(\$s_RegKey, \$iV)         If @error <> 0 Then ExitLoop         \$s_RegRead = RegRead(\$s_RegKey, \$s_RegVal)         If Not (@error) Then             \$A_RegVal[\$iV][0] = \$s_RegVal             \$A_RegVal[\$iV][1] = \$s_RegRead         EndIf         \$iV += 1     WEnd     \$A_RegVal[0][0] = UBound(\$A_RegVal) - 1     If \$A_RegVal[0][0] >= 1 Then         Return \$A_RegVal     Else         Return SetError(3, 3, 0)     EndIf EndFunc   ;==>_RegReadToArray
i hope you benefit from it
with my greetings
×

• Wiki

• Back

• #### Beta

• Git
• FAQ
• Our Picks
×
• Create New...