Hola amigos
Necesito Extraer los elementos diferentes de un Array,
ya hice una estructura pero en ciertos casos me da fallos
y me parece muy compleja.
¿hay alguna función propia de los Array que permita hacer esto?

Gracias.

elementos diferentes de un Array

...que son estos "elementos diferentes" ?

Hola vuott.
Los elementos diferentes son códigos de productos y son String.

Tampoco lo entiendo bien ¿Hablas de eliminar duplicados o qué?

Hola amigos
Necesito Extraer los elementos diferentes de un Array,
ya hice una estructura pero en ciertos casos me da fallos
y me parece muy compleja.
¿hay alguna función propia de los Array que permita hacer esto?

Gracias.

Yo te he entendido. Has hecho una estructura en un array, digamos:
Dim aMenu as String[] = ["menu1", "menu2"]

o quizás

Dim aSubMenu As String[][] = [[""], [""], [""], [""], [""], [""], [""], [""], [""], [""], ["submenu10"]]

Tu problemas según me parece que planteas es como obtener la información de por ejemplo "submenu10" y por lo que dices además te parece muy complejo.

Pues lo ideal es que pongas la forma de hacerlo y como lo obtines ahora. Pero todo es manejar los arrays de diferente dimensión.

Yo en lo particular lo hago con For-Next para la primera dimensión y para la segunda pongo una subrutina dentro del For-Next y así disminuye la complejidad.

Prueba este código. Espero que te ayude.

Código:

' Gambas class file

HBox1 As HBox
Button1 As Button
Label1 As Label
Label2 As Label
sArray As String[] = ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19"]
sExtract As New String[]

Public Sub Button1_Click()

  Dim iExtract As Integer = Rand(0, sArray.max)

  If sArray.Count = 0 Then Return

  sExtract.Add(sArray.extract(iExtract, 1)[0])

  Label1.Text = "sArray = " & sArray.Join(", ")
  Label2.Text = "sExtract = " & sExtract.Join(", ")

End

Public Sub Form_Open()

  Dim iLoop As Integer

  With Me
    .Height = 100
    .Width = 600
    .Padding = 5
    .Arrangement = Arrange.Vertical
    .Center
  End With

  With Label1 = New Label(Me) As "Label1"
    .H = 28
    .W = 100
    .Font.Bold = True
    .Text = "sArray = " & sArray.Join(", ")
  End With

  With Label2 = New Label(Me) As "Label2"
    .H = 28
    .W = 100
    .Font.Bold = True
  End With

  With HBox1 = New HBox(Me) As "HBox1"
    .H = 28
    .W = 100
    .Invert = True
  End With

  With Button1 = New Button(HBox1) As "Button1"
    .H = 28
    .W = 98
    .Tag = iLoop
    .Picture = Picture["icon:/22/" & "ok"]
    .Text = "OK"
  End With

End