VB.net: Cercare Stringa in una lista di Oggetti

[Pamela72]

Ciao a tutti.
ho una STRUCTURE con 2 property: Utente.nome as string e Utente.data as date

Una lista "ListaNomi"contiene circa 100mila structure, e io avrei bisogno di cercare un nome in questa lista.
se è presente mi deve date TRUE e se non c'è mi deve dare FALSE.

ho provato a fare:

if ListaNomi.Contains(stringa) then
   valore = True
else
   valore = False
end if

ma ovviamente mi restituise errore in quanto non può confrontare un Object contro una Stringa.

Ho provato, senza successo, a fare anche:

Dim controllo As New Utente With {.Nome = stringa}
If ListaNomi.Contains(controllo) Then
             valore = True
Else
             valore = False
End If

Ho risolto eseguendo un ciclo for:

for each item in ListaNomi
     if item.Nome=Stringa then
         valore = True

C'è qualche istruzione semplice e specifica per fare questo controllo???
Grazie

[sspintux]

Ciao a tutti.
ho una STRUCTURE con 2 property: Utente.nome as string e Utente.data as date

Una lista "ListaNomi"contiene circa 100mila structure, e io avrei bisogno di cercare un nome in questa lista.
se è presente mi deve date TRUE e se non c'è mi deve dare FALSE.

.....

Ho risolto eseguendo un ciclo for:

for each item in ListaNomi
     if item.Nome=Stringa then
         valore = True

C'è qualche istruzione semplice e specifica per fare questo controllo???
Grazie

ciao,

credo si possa fare usando LINQ
... qualcosa del genere , ma non ricordo la sintassi esatta per VB.NET:

ListaNomi.Exists (Function(x) x.Nome.Equals(Stringa))

HTH

[oregon]

100000 strutture in memoria??

Forse stai seguendo una strada sbagliata ...

[sspintux]

100000 strutture in memoria??
...

Azz! ... questo mi era sfuggito

L'uso di un database mi sembra decisamente meglio

[pietro09]

con una lista così lunga io non userei un ciclo (ricerca lineare), ma farei una ricerca binaria utilizzando il metodo della lista BinarySearch

vado un po' a memoria:
La struttura Utenti dovrebbe implementare l'interfaccia IComparable in modo da poter essere ordinata per Nome. Fatto questo basta fare
lista.Sort e cercare l'elemento di dato nome con
Dim o As integer = lista.BinarySearch(New Utenti("nome_cercato", Nothing))

ps.

[oregon]

Direi proprio che devi abbandonare questa strada e usare un dbms

[Pamela72]

Allora, cerco di spiegare meglio la situazione.

Il mio programma è fatto così:
C'è una lista con circa 150000 nominativi, che viene caricata da un file all'avvio, già in ordine alfabetico. (Structure con 2 property: .nome e .data)

Esso riceve delle stringhe da un server, che poi vengono spezzettate in 4 substring. Viene creato un oggetto per ogni stringa ricevuta che ha 6 propery, 4 di queste sono le substringhe, l'altre due sono un integer ed un boolean.

La propery di tipo booleana viene elaborata facilmente, ossia, una di queste substring ricevute dal server contiene una nominativo, che devo per forza verificare se è in quella lista tra le altre 150000 circa.

Con un ciclo for each funziona tutto perfettamente, non sembrano esserci rallentamenti, ovviamente appena si trova la corrispondenza c'è un Exit For.

Ho provato con la funzione sugeritami

Dim o As integer = lista.BinarySearch(New Utenti("nome_cercato", Nothing))

ma mi da errore, mi dice che ci sono troppi argomenti.

Le liste sono a perdere, ossia quando si chiude il programma si perdono. Vengono caricate al successivo avvio

Avete altre soluzioni?

[pietro09]

Quello di sotto è un esempio semplice. Di più non so.

Option Strict On
Imports l = libreria.ModuloWeb

Module Module1

    Sub Main(args As String())
        Dim lista As New List(Of Utenti)()
        lista.Add(New Utenti("Stefano", #1/1/2018#))
        lista.Add(New Utenti("Carlo", #1/1/2018#))
        lista.Add(New Utenti("Nicola", #1/1/2018#))
        lista.Add(New Utenti("Pietro", #1/1/2018#))
        lista.Sort()

        'For Each item As Utenti In lista
        '    Console.WriteLine(item.Nome)
        'Next

        ' < 0 => non trovato, altrimenti trova indice
        Dim o As Integer = lista.BinarySearch(New Utenti("pietro", Nothing))
        If o >= 0 Then
            Console.WriteLine("Trovato utente {1} in posizione {0}", o, lista(o).Nome)
        Else
            Console.WriteLine("Non ho trovato utente")
        End If


        Console.Write("Premere un tasto per continuare . . . ") : Console.ReadKey()
    End Sub


    Public Structure Utenti
        Implements IComparable(Of Utenti)

        Public Property Nome As String
        Public Property Data As DateTime

        Public Sub New(nome As String, data As DateTime)
            Me.Nome = nome
            Me.Data = data
        End Sub

        Public Function CompareTo(other As Utenti) As Integer Implements System.IComparable(Of Utenti).CompareTo
            Return String.Compare(Me.Nome, other.Nome, True)
        End Function
    End Structure

End Module

[patel]

Quello di sotto è un esempio semplice. Di più non so.

A me sembra un ottimo esempio

[Pamela72]

Non posso usarlo. Los Strict On (non so cosa sia) mi stravolge parecchie istruzioni. Ad esempio conversioni da Char a String, ed anche altro... mi tirava fuori una sfilza di errori...

Quello di sotto è un esempio semplice. Di più non so.

Option Strict On
Imports l = libreria.ModuloWeb

Module Module1

    Sub Main(args As String())
        Dim lista As New List(Of Utenti)()
        lista.Add(New Utenti("Stefano", #1/1/2018#))
        lista.Add(New Utenti("Carlo", #1/1/2018#))
        lista.Add(New Utenti("Nicola", #1/1/2018#))
        lista.Add(New Utenti("Pietro", #1/1/2018#))
        lista.Sort()

        'For Each item As Utenti In lista
        '    Console.WriteLine(item.Nome)
        'Next

        ' < 0 => non trovato, altrimenti trova indice
        Dim o As Integer = lista.BinarySearch(New Utenti("pietro", Nothing))
        If o >= 0 Then
            Console.WriteLine("Trovato utente {1} in posizione {0}", o, lista(o).Nome)
        Else
            Console.WriteLine("Non ho trovato utente")
        End If


        Console.Write("Premere un tasto per continuare . . . ") : Console.ReadKey()
    End Sub


    Public Structure Utenti
        Implements IComparable(Of Utenti)

        Public Property Nome As String
        Public Property Data As DateTime

        Public Sub New(nome As String, data As DateTime)
            Me.Nome = nome
            Me.Data = data
        End Sub

        Public Function CompareTo(other As Utenti) As Integer Implements System.IComparable(Of Utenti).CompareTo
            Return String.Compare(Me.Nome, other.Nome, True)
        End Function
    End Structure

End Module