[Gambas-user] Get distinct array from large array

[Fabien Bodard]

Hi,

you can try that (But only if a sorted array output is not a problem for you):

Public Sub Main()

  Dim sOld As String
  Dim aValues As String[] =
Split(Replace(Replace(Replace(File.Load("~/log"), ".", ""), "\n", ""),
":", ""), " ")
  Dim aNewArray As New String[]

  aValues.Sort(gb.Binary)

  For i As Integer = 0 To aValues.Max
    If sOld = aValues[i] Then Continue
    sOld = aValues[i]
    aNewArray.Add(sOld)
  Next

Print aNewArray.Join("\n")
End

Regards,

Fabien