[Risolto] Operare una sottrazione fra due vettori stringa.

[Gianluigi]

Propongo questa variazione per evitare lo out of bound dovuto al ritorno di -1 da parte di Find in caso di mancato riscontro:

Codice: [Seleziona]

Public Sub Main()

  Dim sAlls As String[] = ["Mickey Mouse", ".Mickey Mouse", "Donald Duck", ".Donald Duck", "Minnie", "Daisy Duck", "Goofy", ".Goofy", "Pluto", "Scrooge McDuck", "Huey", ".Huey", "Dewey", ".Dewey", "Louie", "Chip", "Dale"]
  Dim sDonald As String[] = ["Donald Duck", "Daisy Duck", ".Huey", "Scrooge McDuck", ".Donald Duck", "Huey", "Dewey", "Louie", "Dale", "Pippo"]
  Dim s As String, i As Integer

   For Each s In sDonald
     '' Impedisce lo out of bound quando find non trova riscontro.
     i = sAlls.Find(s, gb.Binary, 0)
     If i >= 0 Then sAlls.Remove(i, 1)
   Next

   Print "Sono rimasti questi:\n"
   For Each s In sAlls
      Print s
   Next

End

Nota: "Pippo" è presente solo nel secondo vettore