[alessandri]

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.

[vuott]

elementos diferentes de un Array

...que son estos "elementos diferentes" ?

[alessandri]

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

[Shordi]

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

[gambafeliz]

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.

[cogier]

Prueba este código. Espero que te ayude.

GAMBAS

' 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