Condicionar arrays

[luis456]

Se puede condicionar que los resultados de este array pasen de x numeros ? ya lo tengo resuelto para los texboxes pero ahora quiero trabajar directamente con los array me parece que seria mas fácil para después mostrar los resultados

Código (vbnet) [Seleccionar] Expandir

Dim maximum As Short = 99

Dim Results7s As Integer() = Result1.Concat(Result2).Distinct.ToArray


Luis

[Eleкtro]

Se puede condicionar que los resultados de este array pasen de x numeros ?

¿Te refieres a descartar números que séan mayores de 99?

@Luis456, te sugiero que aprendas a usar LINQ ...será tu mejor aliado (por su sencillez, no por rendimiento) :

Código (vbnet) [Seleccionar] Expandir


Dim Max As Integer = 99

Dim arr1 As Integer() = {100, 2, 3}
Dim arr2 As Integer() = {4, 500, 6}
Dim arr3 As Integer() = {7, 8, 999}

Dim Result As Integer() =
(
  From Value As Integer In (arr1.Concat(arr2).Concat(arr3))
  Where Value <= Max
).ToArray

MsgBox(String.Join(", ", Result)) ' Result = {2, 3, 4, 6, 7, 8}


PD: En otro post te dije una url donde descargar 101 ejemplos de LINQ, si te lo estudiases un poco tendrías ejemplos como los que yo te pongo para un buen rato xD.

Saludos

[luis456]

¿Te refieres a descartar números que séan mayores de 99?

@Luis456, te sugiero que aprendas a usar LINQ ...será tu mejor aliado (por su sencillez, no por rendimiento) :

Código (vbnet) [Seleccionar] Expandir


Dim Max As Integer = 99

Dim arr1 As Integer() = {100, 2, 3}
Dim arr2 As Integer() = {4, 500, 6}
Dim arr3 As Integer() = {7, 8, 999}

Dim Result As Integer() =
(From Value In (arr1.Concat(arr2).Concat(arr3)) Where Value <= Max).ToArray

MsgBox(String.Join(", ", Result)) ' Result = {2, 3, 4, 6, 7, 8}


Saludos

Si elektro y te agradezco la ayuda ya me llamo la atencion LINQ Y me estoy bajando todo cuanto pueda

Luis

Posdata: si me baje todo lo que me pusiste

[luis456]

Me imagino que para poder usarlo deberia de crear otro array para poder usar estas dos funciones ?

Código [Seleccionar] Expandir

Dim Resu As Integer() = Result1.Concat(Result2).Concat(Result3).Distinct.ToArray
        (From Value In (Result1.Concat(Result2).Concat(Result3)) Where Value <= Max).ToArray

luis

[luis456]

Bueno explico un poco mejor

como hago para unir estas dos funciones en una sola variable o array he probado y probado y no logro hacerlo, ya que me da el tipico error de que ya esta declarada
el array " Results7s "

Código [Seleccionar] Expandir


Dim Results7s As Integer() = Result1.Concat(Result2).Concat(Result3).Distinct.ToArray <---esto lo muestro en un lisbotx



Dim Result As Integer() =(From Value In (result1.Concat(result2).Concat(result3)) Where Value <= Max).ToArray



Luis

[Eleкtro]

me da el tipico error de que ya esta declarada el array " Results7s "

Hombre, error típico no es, lo que pasa es que tienes la mala costumbre de declarar variables innecesarias por todas partes del código, y al final tienes un lio.

En lugar de declarar varios arrays:

Código (vbnet) [Seleccionar] Expandir

Dim result1 as Integer()  = {1, 2, 3}
Dim result2 as Integer()  = {4, 5, 6}
Dim result2 as Integer() = {7, 8, 9}

Intenta declarar sólamente 1 array, y reemplazarlo/actualízarlo cuando sea necesario:

Código (vbnet) [Seleccionar] Expandir

Public Result as Integer() = {1, 2, 3}

...En otra parte del código:

Código (vbnet) [Seleccionar] Expandir

Me.Result = Me.Result.Concat({4, 5, 6}).Concat({7, 8, 9}).ToArray ' Por ejemplo.

De todas formas si prefieres seguir como hasta ahora, pues declara una nueva variable con otro nombre distinto y así no tendrás ese "típico error", de verdad no te lo tomes a mal pero no le veo ningún sentido a la duda que has posteado.

Saludos!

[luis456]

Bueno como pasa en programacion jejej el que entiende su chapuza no se sabe explicar

tengo tres arrays con resultados independientes de la suma pero cuando quiero unirlos en el lisbot

primero repetían ya lo solucione con :

Código [Seleccionar] Expandir

Dim Results7s As Integer() = Result1.Concat(Result2).Concat(Result3).Distinct.ToArray

ahora quiero que estos resultados ya filtrados en resut7 pasen por otro filtro que seria el del rango 99

Código [Seleccionar] Expandir

Where Value <= Max).ToArray


Luis

[Eleкtro]

quiero que estos resultados ya filtrados en resut7 pasen por otro filtro que seria el del rango 99

Código [Seleccionar] Expandir

Where Value <= Max).ToArray

No me ha quedado claro el poblema, en la variable resut7 declaras el array numérico, y en la otra variable (Result) ya "filtras" con LINQ, ¿Cual es el problema?.

PD: Lo importante si que lo entendí, no es necesario 4 o 5 variables para llevar a cabo una operación de ese tipo, símplemente odio ver ese tipo de cosas.

Saludos!

[luis456]

No me ha quedado claro el poblema, en la variable resut7 declaras el array numérico, y en la otra variable (Result) ya "filtras" con LINQ, ¿Cual es el problema?.

PD: Lo importante si que lo entendí, no es necesario 4 o 5 variables para llevar a cabo una operación de ese tipo, símplemente odio ver ese tipo de cosas.

Saludos!

El problema es que no logro mostar en el lisbotbox los resultados de las dos funciones juntas  osea la " Distinct y la del rango "

luis


 

[Eleкtro]

Creo que esto es lo que intentas hacer...

Código (vbnet) [Seleccionar] Expandir

   ReadOnly MAX As Integer = 99

   Public Sub Test() Handles MyBase.Shown

       Dim result1 As Integer() = {1, 100, 2, 3, 4}
       Dim result2 As Integer() = {5, 500, 6, 6, 4}
       Dim result3 As Integer() = {7, 8, 9, 10, 99}

       ' Elimino duplicados al mismo tiempo que selecciono los números inferiores a MAX.
       Dim Result As IEnumerable(Of Integer) =
           (
               From Value As Integer
               In (result1.Concat(result2).Concat(result3)).Distinct
               Where Value <= MAX
           )

       ListBox1.Items.AddRange(Result.Cast(Of Object).ToArray)

   End Sub

Saludos