Pagina 2 di 2 primaprima 1 2
Visualizzazione dei risultati da 11 a 19 su 19
  1. #11
    Utente di HTML.it L'avatar di pietro09
    Registrato dal
    Jan 2002
    Messaggi
    10,116
    Quello di sotto è un esempio semplice. Di più non so.

    codice:
    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
    Pietro

  2. #12
    Utente di HTML.it L'avatar di patel
    Registrato dal
    Jan 2008
    Messaggi
    1,994
    Quote Originariamente inviata da pietro09 Visualizza il messaggio
    Quello di sotto è un esempio semplice. Di più non so.
    A me sembra un ottimo esempio

  3. #13
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,462
    Quote Originariamente inviata da Pamela72 Visualizza il messaggio

    Avete altre soluzioni?
    Io sono per un caricamento massivo in una tabella temporanea di un DBMS.

    E poi fai quello che vuoi.
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  4. #14
    Utente di HTML.it L'avatar di patel
    Registrato dal
    Jan 2008
    Messaggi
    1,994
    quindi andrebbe bene un db access ? cosa intendi per tabella temporanea ?

  5. #15
    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...

    Quote Originariamente inviata da pietro09 Visualizza il messaggio
    Quello di sotto è un esempio semplice. Di più non so.

    codice:
    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

  6. #16
    Utente di HTML.it L'avatar di pietro09
    Registrato dal
    Jan 2002
    Messaggi
    10,116
    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.
    Premesso che ho risposto a questa domanda:
    1) non si è obbligati in basic ad usare l'istruzione Option Strict On
    2) Imports l = libreria.ModuloWeb mi è sfuggita e a te non serve
    3) una ricerca in una lunga lista può essere fatta benissimo come hai fatto te; esattamente come è possibile ricercare una parola in un dizionario sfogliando le pagine una per una . E funziona anche se le parole non sono ordinate

    ps.
    Option Strict On è, secondo me, l'istruzione più seria del Basic, quella che lo avvicina di più al c#
    Pietro

  7. #17
    Se stasera avrò tempo, proverò con calma.
    Questi giorni ero molto impegnata, ho fatto solo una rova al volo....
    grazie x i sugerimnti

    Quote Originariamente inviata da pietro09 Visualizza il messaggio
    Premesso che ho risposto a questa domanda:
    1) non si è obbligati in basic ad usare l'istruzione Option Strict On
    2) Imports l = libreria.ModuloWeb mi è sfuggita e a te non serve
    3) una ricerca in una lunga lista può essere fatta benissimo come hai fatto te; esattamente come è possibile ricercare una parola in un dizionario sfogliando le pagine una per una . E funziona anche se le parole non sono ordinate

    ps.
    Option Strict On è, secondo me, l'istruzione più seria del Basic, quella che lo avvicina di più al c#

  8. #18
    Allora.
    Ho fatto tutto e funziona.

    Se non importo STRICT ON non mi da piu quei problemi che dicevo; pensavo che importarlo fosse necessario.

    Non ho avuto particolari problemi con il codice e con le personalizzazioni.

    Grazie per l'aiutp PIETRO!!!

    Quote Originariamente inviata da pietro09 Visualizza il messaggio
    Premesso che ho risposto a questa domanda:
    1) non si è obbligati in basic ad usare l'istruzione Option Strict On
    2) Imports l = libreria.ModuloWeb mi è sfuggita e a te non serve
    3) una ricerca in una lunga lista può essere fatta benissimo come hai fatto te; esattamente come è possibile ricercare una parola in un dizionario sfogliando le pagine una per una . E funziona anche se le parole non sono ordinate

    ps.
    Option Strict On è, secondo me, l'istruzione più seria del Basic, quella che lo avvicina di più al c#

  9. #19
    Utente di HTML.it L'avatar di patel
    Registrato dal
    Jan 2008
    Messaggi
    1,994
    Attenzione Strict On non si importa, è una opzione per il compilatore che obbliga a dichiarare correttamente e prima le variabili

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.