WEICHBRODT.it
Home » wHow? » VB.net » Ottimizzare un Array di Stringhe

Ottimizzare un Array di Stringhe

The WEICHBRODT.it's How-To Directory

Categoria: VB.NET

Descrizione

Questa funzione serve per ottimizzare un array di stringhe passato come argomento: elimina gli elementi contenenti valori duplicati e compatta l'array eliminando quelli vuoti o nulli.
Ritorna un nuovo array ottimizzato.

Codice

Private Function OttimizzaArray(ByVal arrayDaOttimizzare() As String) As String()

      Dim i As Integer
      Dim dups As Integer
      Dim ht As New System.Collections.Hashtable(arrayDaOttimizzare.Length * 2)
      For i = 0 To arrayDaOttimizzare.Length - 1
         Dim valore As Object = arrayDaOttimizzare.GetValue(i)
         If ht.Contains(valore) Then
            arrayDaOttimizzare.SetValue(Nothing, i)
            dups += 1
         Else
            ht.Add(valore, Nothing)
            If dups > 0 Then
               arrayDaOttimizzare.SetValue(valore, i - dups)
               arrayDaOttimizzare.SetValue(Nothing, i)
            End If
         End If
      Next
      If dups > 0 Then
         ReDim Preserve arrayDaOttimizzare(UBound(arrayDaOttimizzare) - dups)
      End If
      Return arrayDaOttimizzare

End Function

Commenti

Non ci sono commenti per questa pagina. Vuoi essere il primo a postare un commento?

Scrivi un commento

Nome
Email (non verrà pubblicato)
Web (opzionale)
Inviami una notifica quando un nuovo commento viene aggiunto a questa pagina
Commento
  This is a captcha-picture. It is used to prevent mass-access by robots. (see: www.captcha.net)
Inserisci i caratteri di controllo
 

Segnala questa pagina:

Email facebook twitter LinkedIn Tumblr technorati.com del.icio.us FriendFeed digg
Print This Page
Torna su
| Contatti | Mappa | Link |
© WEICHBRODT.it - Grafica, layout e contenuti sono di esclusiva proprietà di Andrea Weichbrodt