elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Concatenar dos arrays y comparar rellenar y mostrar ?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Concatenar dos arrays y comparar rellenar y mostrar ?  (Leído 2,504 veces)
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Concatenar dos arrays y comparar rellenar y mostrar ?
« en: 2 Enero 2014, 11:24 am »

Código
  1. Hola a todos espero que hayan pasado buenas fiestas :)
  2.  
  3.  
  4. Me he pasado el tiempo tratando de hacer esto pero no encuentro el como quiero concatenar dos array para que:
  5. Result1.Concat(Result2)
  6.  
  7. comparar si hay iguales y si hay iguales recorrer el rango y sustituir el repetido por el que no aparezca. ya elimino duplicados pero en cada array, y no se como hacerlo con el resultado final que se mostraria en e lisboxt3
  8.  
  9. ListBox3.Items.AddRange(CombinedItems.ToArray)
  10.  
  11.  
  12.  
  13. [codePublic Class Form1
  14.    Dim maximum As Short = 99
  15.    Dim x As Integer = 0
  16.    Dim Número As Double
  17.    Private TextBoxes As TextBox() = {Nothing}
  18.    Private Result1 As Int32(), Result2 As Int32()
  19.    Private _textBox As Object
  20.    Private Property ListBox1Count As Integer
  21.  
  22.    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
  23.        Me.ControlBox = False ' Elimino todos los controles del formulario
  24.    End Sub
  25.  
  26.    Private Property Calcular As Object
  27.  
  28.    Private Property TextBox(ByVal TextBoxCount As Short) As Object
  29.        Get
  30.            Return _textBox
  31.        End Get
  32.        Set(ByVal value As Object)
  33.            _textBox = value
  34.        End Set
  35.    End Property
  36.  
  37.    Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)
  38.        ' evitar letras
  39.        If Char.IsDigit(e.KeyChar) Then
  40.            e.Handled = False
  41.        ElseIf Char.IsControl(e.KeyChar) Then
  42.            e.Handled = False
  43.        ElseIf Char.IsSeparator(e.KeyChar) Then
  44.            e.Handled = False
  45.        Else
  46.            e.Handled = True
  47.        End If
  48.  
  49.    End Sub
  50.  
  51.  
  52.    ReadOnly Property Num1 As Int32
  53.        Get
  54.            Return CInt(TextBox1.Text)
  55.        End Get
  56.    End Property
  57.  
  58.    ReadOnly Property Num2 As Int32
  59.        Get
  60.            Return CInt(TextBox2.Text)
  61.        End Get
  62.    End Property
  63.  
  64.  
  65.    Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  66.  
  67.        Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
  68.                  .Distinct().ToArray ' Elimino duplicados
  69.  
  70.        Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
  71.                  .Distinct().ToArray ' Elimino duplicad
  72.  
  73.  
  74.        Array.Sort(Result1) : Array.Sort(Result2) ' El número no está repetido:
  75.  
  76.        Dim Results As IEnumerable(Of Integer) =
  77.            Result1  ' El número no está repetido.Concat(Result2)  
  78.  
  79.  
  80.  
  81.        For X As Integer = 0 To Results.Count - 1
  82.            ' Este es para unir en 3lisbos
  83.            Dim Items1 As List(Of String) = ListBox1.Items.Cast(Of String)().ToList
  84.            Items1.Add("  ")
  85.  
  86.  
  87.            Dim Items2 As List(Of String) = ListBox2.Items.Cast(Of String)().ToList
  88.            Items2.Add("  ")
  89.  
  90.            Dim CombinedItems As List(Of String) = Items1.Concat(Items2).ToList
  91.  
  92.  
  93.            ListBox3.Items.AddRange(CombinedItems.ToArray)
  94.  
  95.            ' aqui acaba
  96.  
  97.            Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any
  98.  
  99.                Case False ' El número no está repetido en ninguna "linea"
  100.                    ' Así que colocamos el número en el Textbox
  101.                    Try
  102.                        ListBox1.Items.Add(CStr(Results(X)))
  103.  
  104.  
  105.                        ' TextBoxes(TextBoxCount).Text = CStr(Results(X))
  106.                    Catch ex As Exception
  107.                        Throw New Exception(ex.Message & ex.StackTrace)
  108.                    End Try
  109.  
  110.  
  111.  
  112.            End Select
  113.  
  114.  
  115.        Next X
  116.        ' -------segunda
  117.  
  118.        Dim Resultss As IEnumerable(Of Integer) =
  119.            Result2 ' .
  120.  
  121.  
  122.  
  123.        For X As Integer = 0 To Resultss.Count - 1
  124.  
  125.  
  126.  
  127.            Select Case Resultss.Where(Function(n) n = Resultss(X)).Skip(1).Any
  128.  
  129.                Case False
  130.                    Try
  131.                        ListBox2.Items.Add(CStr(Resultss(X)))
  132.  
  133.                    Catch ex As Exception
  134.                        Throw New Exception(ex.Message & ex.StackTrace)
  135.                    End Try
  136.  
  137.  
  138.            End Select
  139.  
  140.        Next X
  141.  
  142.    End Sub
  143.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  144.  
  145.    End Sub
  146.  
  147. End Class]




saludos
Luis


« Última modificación: 2 Enero 2014, 20:28 pm por Eleкtro » En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: Concatenar dos arrays y comparar rellenar y mostrar ?
« Respuesta #1 en: 2 Enero 2014, 16:48 pm »

" comparar si hay iguales y si hay iguales recorrer el rango y sustituir el repetido por el que no aparezca. ya elimino duplicados pero en cada array, y no se como hacerlo con el resultado final que se mostraria en e lisboxt3 "

esto es porque la solucion que amablemente me dio elektro funciona pero me llena de 99 las casillas repetidas :)


luis


En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: Concatenar dos arrays y comparar rellenar y mostrar ?
« Respuesta #2 en: 2 Enero 2014, 19:36 pm »

Elektro ? estoy invalido , soy viejo , no me pagan la pensión ya la memoria me falla,tengo parkinson me tiemblan las manos ya no se me par...me ayudas :)

es broma pero  ¿ si te acuerdas de mi ?

luis
En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Comparar arrays en C
Programación C/C++
jc1992 2 5,111 Último mensaje 8 Febrero 2013, 17:15 pm
por BatchianoISpyxolo
DUDA - Comparar estructuras dentro de arrays (Quiniela)
Programación C/C++
Josogalar 4 2,685 Último mensaje 5 Enero 2014, 12:34 pm
por SoyelRobert
Comparar dos arrays
PHP
1mpuls0 3 2,379 Último mensaje 12 Marzo 2014, 16:32 pm
por 1mpuls0
comparar 2 arrays en php con > o <
PHP
demonstrator 6 7,292 Último mensaje 5 Septiembre 2014, 03:48 am
por demonstrator
Comparar arrays en java
Java
erikcdlm 5 5,278 Último mensaje 22 Febrero 2016, 14:23 pm
por sodark
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines