Jump to content

Get duplicate from array


MyEarth
 Share

Recommended Posts

  • Moderators

kylomas,

From what I understand (which may not be correct as I am far from clear about anything in this whole thread) the return should be any elements who share a common ID in the 3rd part of the string while excluding all those whose ID appears only the once - in this case "Melba23|SURNAME|1" & "MyEarth|SURNAME|1" need to be returned. I have no idea why this is required, but that is what I took as a target for my example at post #17 above. :wacko:

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

Why not a 'classic' way ?

(the code below is for concept only because I don't really understand the last requirements)

#include <Array.au3>

Local $test[15] = [1, 1, 1, 1, 3, 4, 6, 6, 8, 8, 0, 8, 5, 9, 9]
;Local $test[14] = [1, 1, 1, 1, 3, 4, 6, 6, 8, 8, 0, 8, 5, 9]
_ArraySort($test)
_ArrayDisplay($test)

Local $n = UBound($test), $res[$n], $r = 0, $dup

For $i = 1 to $n-1
   If $test[$i] =  $test[$i-1] Then
       $res[$r] = $test[$i-1]
       $r += 1
       $dup = 1
   Else
       If $dup = 1 Then
           $res[$r] = $test[$i-1]
           $r += 1
           $dup = 0
       EndIf
   EndIf
   If $i = $n-1 and $dup = 1 Then 
       $res[$r] = $test[$i]
       $r += 1
  EndIf
Next
Redim $res[$r]

_ArrayDisplay($res, "Only multiples")
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...