+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: General (https://gambas-es.org/forum-4.html)
+--- Tema: Extraer los elementos diferenntes de un array (/thread-848.html)
Extraer los elementos diferenntes de un array - alessandri - 18-03-2022
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.
RE: Extraer los elementos diferenntes de un array - vuott - 18-03-2022
(18-03-2022, 03:35)alessandri escribió: elementos diferentes de un Array
...que son estos
"elementos diferentes" ?
RE: Extraer los elementos diferenntes de un array - alessandri - 18-03-2022
Hola vuott.
Los elementos diferentes son códigos de productos y son String.
RE: Extraer los elementos diferenntes de un array - Shordi - 18-03-2022
Tampoco lo entiendo bien ¿Hablas de eliminar duplicados o qué?
RE: Extraer los elementos diferenntes de un array - gambafeliz - 18-03-2022
(18-03-2022, 03:35)alessandri escribió: 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.
RE: Extraer los elementos diferenntes de un array - cogier - 18-03-2022
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