Gambas-it

Gambas dal mondo esterno => Mailing List => Topic aperto da: vuott - 27 Giugno 2017, 20:05:02

Titolo: Come cancellare doppioni in un array ?
Inserito da: vuott - 27 Giugno 2017, 20:05:02

https://lists.gambas-basic.org/pipermail/user/2017-June/060627.html

Titolo: Re:Come cancellare doppioni in un array ?
Inserito da: Gianluigi - 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: