Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5

Extraer los elementos diferenntes de un array
#1

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.
    ¡Gracias!
#2

(18-03-2022, 03:35)alessandri escribió:  elementos diferentes de un Array

...que son estos Confused "elementos diferentes" ?

"Los horizontes perdidos nunca regresan. " (F. Battiato, La stagione dell'amore, 1983)

"Las ondas nunca regresan. " (Genesis: Ripples - A trick of the tail, 1976)
    ¡Gracias!
#3

Hola vuott.
Los elementos diferentes son códigos de productos y son String.
    ¡Gracias!
#4

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

No podemos regresar
    ¡Gracias!
#5

(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.
    ¡Gracias!
#6

Prueba este código. Espero que te ayude.
GAMBAS
  1. ' Gambas class file
  2.  
  3. HBox1 As HBox
  4. Button1 As Button
  5. Label1 As Label
  6. Label2 As Label
  7. sArray As String[] = ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19"]
  8. sExtract As New String[]
  9.  
  10. Public Sub Button1_Click()
  11.  
  12.   Dim iExtract As Integer = Rand(0, sArray.max)
  13.  
  14.   If sArray.Count = 0 Then Return
  15.  
  16.   sExtract.Add(sArray.extract(iExtract, 1)[0])
  17.  
  18.   Label1.Text = "sArray = " & sArray.Join(", ")
  19.   Label2.Text = "sExtract = " & sExtract.Join(", ")
  20.  
  21.  
  22. Public Sub Form_Open()
  23.  
  24.   Dim iLoop As Integer
  25.  
  26.   With Me
  27.     .Height = 100
  28.     .Width = 600
  29.     .Padding = 5
  30.     .Arrangement = Arrange.Vertical
  31.     .Center
  32.  
  33.   With Label1 = New Label(Me) As "Label1"
  34.     .H = 28
  35.     .W = 100
  36.     .Font.Bold = True
  37.     .Text = "sArray = " & sArray.Join(", ")
  38.  
  39.   With Label2 = New Label(Me) As "Label2"
  40.     .H = 28
  41.     .W = 100
  42.     .Font.Bold = True
  43.  
  44.   With HBox1 = New HBox(Me) As "HBox1"
  45.     .H = 28
  46.     .W = 100
  47.     .Invert = True
  48.  
  49.   With Button1 = New Button(HBox1) As "Button1"
  50.     .H = 28
  51.     .W = 98
  52.     .Tag = iLoop
  53.     .Picture = Picture["icon:/22/" & "ok"]
  54.     .Text = "OK"
  55.  


[-] Los siguientes 2 usuarios dicen gracias a cogier por este post:
  • gambafeliz, Grandamakulo
    ¡Gracias!


Posibles temas similares…
Tema / Autor Respuestas Vistas Último mensaje

Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)