ArrayList problem

[danasegarane]

Hi all,
I am using Array List to store values.I am using this code.

Public Class Recovery
        Public nFilename As String
        Public nLockedby As String
        Public nActivityID As String
 
        Public Sub New(ByVal nfilename As String, ByVal nLockedby As String, ByVal nActivityid As String)
            MyBase.New()
            Me.nFilename = nfilename
            Me.nLockedby = nLockedby
            Me.nActivityID = nActivityid
        End Sub
 
    End Class
Public Shared Function GetPreviousStatus() As Boolean
 'Dim sTemparray As New ArrayList  'Initialized separtely
   If sTemparray.Contains(New Recovery(sFilename, sLockedby, sActivityid)) = False Then
           sTemparray.Add(New Recovery(sFilename, sLockedby, sActivityid))
    End If
End Function

Here I want to the Filename to be unique in the list.But this code allows the duplicate filename to be stored in the list.How can I restrict this

Dana

[nateraaaa]

Hi all,
I am using Array List to store values.I am using this code.

Public Class Recovery
        Public nFilename As String
        Public nLockedby As String
        Public nActivityID As String
 
        Public Sub New(ByVal nfilename As String, ByVal nLockedby As String, ByVal nActivityid As String)
            MyBase.New()
            Me.nFilename = nfilename
            Me.nLockedby = nLockedby
            Me.nActivityID = nActivityid
        End Sub
 
    End Class
Public Shared Function GetPreviousStatus() As Boolean
 'Dim sTemparray As New ArrayList  'Initialized separtely
   If sTemparray.Contains(New Recovery(sFilename, sLockedby, sActivityid)) = False Then
           sTemparray.Add(New Recovery(sFilename, sLockedby, sActivityid))
    End If
End Function

Here I want to the Filename to be unique in the list.But this code allows the duplicate filename to be stored in the list.How can I restrict this

Dana

Have a look at the following function I think it may help you

Public Function RemoveDups(ByVal items() As String, ByVal sort As Boolean) As String()
        Dim noDups As ArrayList = New ArrayList
        Dim i As Integer = 0
        Do While (i < items.Length)
            If Not noDups.Contains(items(i).Trim) Then
                noDups.Add(items(i).Trim)
            End If
            i = (i + 1)
        Loop
        If sort Then
            noDups.Sort
        End If
        'sorts list alphabetically
        Dim uniqueItems() As String
        noDups.Count
        noDups.CopyTo(uniqueItems)
        Return uniqueItems
    End Function

Nathan

[danasegarane]

Thanks Nathan,
It worked like a charm :)

Thanks once again
Dana