ArrayListMerge – Merging two ArrayList avoiding duplicate values

ArrayListMerge – Merging two ArrayList avoiding duplicate values

' Merge two ArrayList, avoiding duplicate values (if there are already ' duplicate values in same input ArrayList however, they are not discarded)' ' Example:'   Dim al1 As New ArrayList'   al1.Add("John")'   al1.Add("Ann")'   al1.Add("Frank")''   Dim al2 As New ArrayList'   al2.Add("Ann")'   al2.Add("Tony")'   al2.Add("Mark")'   al2.Add("John")''   Dim al3 As ArrayList = ArrayListMerge(al1, al2)'   Dim o As Object'   Debug.WriteLine("Number of elements in the ArrayList returned from ' ArrayListMerge: " & al3.Count)'   For Each o In al3'       Debug.WriteLine(o)'   NextFunction ArrayListMerge(ByVal al1 As ArrayList, ByVal al2 As ArrayList) As _    ArrayList    ' initialize the capacity to the total count of elements from both array     ' lists    Dim res As New ArrayList(al1.Count + al2.Count)    ' append the items in the first ArrayList    res.AddRange(al1)    Dim o As Object    For Each o In al2        ' add all the al2's elements that are not contained in al1        If Not al1.Contains(o) Then            res.Add(o)        End If    Next    ' trim the ArrayList to the number of actually used slots    res.TrimToSize()    Return resEnd Function


About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist