Autore Topic: Come cancellare doppioni in un array ?  (Letto 216 volte)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.181
  • Ne mors quidem nos iunget
    • Mostra profilo
« Ultima modifica: 07 Dicembre 2020, 16:31:55 da vuott »
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.114
  • Tonno verde
    • Mostra profilo
Re:Come cancellare doppioni in un array ?
« Risposta #1 il: 27 Giugno 2017, 20:45:24 »
Siccome non ho inquadrato il tipo, dice che è 40 anni che codifica e poi fa una domanda così?

allora gli ho passato un codice esplicativo, ma per noi lo completo così:
Codice: [Seleziona]
Public Sub Main()

  Dim sSort As String[] = ["A", "B", "B", "B", "C", "D", "D", "E", "E", "E", "E", "F"]
  Dim sSingle, sWithNumber As New String[]
  Dim i, n As Integer

  For i = 0 To sSort.Max
    If i < sSort.Max Then
      If sSort[i] = sSort[i + 1] Then
        Inc n
      Else
        Inc n
        sSingle.Push(sSort[i])
        sWithNumber.Push(n & sSort[i])
        n = 0
      Endif
    Endif
  Next
  Inc n
  sSingle.Push(sSort[sSort.Max])
  sWithNumber.Push(n & sSort[sSort.Max])
  For i = 0 To sSingle.Max
    Print sSingle[i]
  Next
  For i = 0 To sWithNumber.Max
    Print sWithNumber[i]
  Next

End

 :ciao: :ciao:
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro