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

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Otra de las mias jejje traspasar datos condicionados de una variable a otras
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Otra de las mias jejje traspasar datos condicionados de una variable a otras  (Leído 6,617 veces)
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Otra de las mias jejje traspasar datos condicionados de una variable a otras
« Respuesta #10 en: 8 Marzo 2015, 13:52 pm »

todavía no he logrado hacer lo que en principio quería hacer, que era dividir la colección principal en variables con cuatro números  cada una

¿Cómo que no?:

Citar
Código
  1. Dim parts As Integer = 4
  2. Dim splittedCols As IEnumerable(Of IEnumerable(Of Integer)) =
  3.     From index As Integer In Enumerable.Range(0, CInt(Math.Ceiling(mainCol.Count() / parts)))
  4.     Select mainCol.Skip(index * parts).Take(parts)


para yo después con cada variable con los números asignados poder concatenar las que yo quiera entre ellas y mostrar ese resultado en un listbox

Código:
dim combination as ienumerable(of integer) = splittedCols(Índice).Concat(splittedCols(Índice))

¿eso?

Saludos



EDITO:
Te pondré el primer problema más fácil con esta función genérica (lee el ejemplo de uso):

Código
  1.    ''' <remarks>
  2.    ''' *****************************************************************
  3.    ''' Snippet Title: Split Collection Into Parts
  4.    ''' Code's Author: Elektro
  5.    ''' Date Modified: 08-March-2015
  6.    ''' Usage Example:
  7.    ''' Dim mainCol As IEnumerable(Of Integer) = {1, 2, 3, 4, 5, 6, 7, 8, 9}
  8.    ''' Dim splittedCols As IEnumerable(Of IEnumerable(Of Integer)) = SplitColIntoParts(mainCol, amount:=4)
  9.    ''' splittedCols.ToList.ForEach(Sub(col As IEnumerable(Of Integer))
  10.    '''                                 Debug.WriteLine(String.Join(", ", col))
  11.    '''                             End Sub)
  12.    ''' *****************************************************************
  13.    ''' </remarks>
  14.    ''' <summary>
  15.    ''' Splits an <see cref="IEnumerable(Of T)"/> into the specified amount of parts.
  16.    ''' </summary>
  17.    ''' <typeparam name="T"></typeparam>
  18.    ''' <param name="collection">The collection to split.</param>
  19.    ''' <param name="amount">The parts amount.</param>
  20.    ''' <returns>IEnumerable(Of IEnumerable(Of T)).</returns>
  21.    Public Shared Function SplitColIntoParts(Of T)(ByVal collection As IEnumerable(Of T),
  22.                                                   ByVal amount As Integer) As IEnumerable(Of IEnumerable(Of T))
  23.  
  24.        Return From index As Integer
  25.               In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / amount)))
  26.               Select collection.Skip(index * amount).Take(amount)
  27.  
  28.    End Function


« Última modificación: 8 Marzo 2015, 13:55 pm por Eleкtro » En línea

luis456


Desconectado Desconectado

Mensajes: 548



Ver Perfil
Re: Otra de las mias jejje traspasar datos condicionados de una variable a otras
« Respuesta #11 en: 8 Marzo 2015, 14:45 pm »

Jo cada ves me vuelvo mas loco , te paso lo que estoy tratando de hacer de una forma que me sea mas facil

Código
  1.   Dim numbers() As Integer = {0, 1, 2, 3, 4, 5, 6, 10, 15, 20, 25, 30, 35, 45} <---estos numeros cambian o son mas o son menos cantidad
  2.  
  3.  
  4. quiero poner esos numeros en estas variables ??
  5. a= 1 2 3 4
  6. b= 3 5 10 15
  7. c= 20 25 30 35
  8.  
  9.  
  10. Dim Result As IEnumerable(Of Integer) =
  11.            (a.Concat(b.Concat(c))).          <---------------para concatenar a +b c+a etc cada ves que quiera
  12.            Distinct.
  13.  
  14.  
  15.  
  16. ListBox4.Items.AddRange(Resul.Cast(Of Object).ToArray)

Gracias
Luis


En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Otra de las mias jejje traspasar datos condicionados de una variable a otras
« Respuesta #12 en: 8 Marzo 2015, 15:55 pm »

ahá, ¿y que relacion hay entre el patrón que sigue "a", y el que sigue "b"?.
En línea

luis456


Desconectado Desconectado

Mensajes: 548



Ver Perfil
Re: Otra de las mias jejje traspasar datos condicionados de una variable a otras
« Respuesta #13 en: 8 Marzo 2015, 16:22 pm »

ahá, ¿y que relacion hay entre el patrón que sigue "a", y el que sigue "b"?.

Ninguno  puse eso sin tomar en cuenta que era correlativo jejje se supone que es a+c y como son muchos numeros que da la funcion son muchas las variables y lo puse corto
y seria como esto

A + C
A + D
B + C
B + D 
C + D

o mas cuando lo termine (no pongo todos ) :)


1   .-   (   A   +   C   +   D   )
2   .-   (   A   +   B   +   D   )
3   .-   (   A   +   B   +   E   )
4   .-   (   A   +   B   +   F   )
5   .-   (   A   +   B   +   G   )
6   .-   (   A   +   B   +   H   )
7   .-   (   A   +   C   +   D   )
8   .-   (   A   +   C   +   E   )
9   .-   (   A   +   C   +   F   )
10   .-   (   A   +   C   +   G   )
11   .-   (   A   +   C   +   H   )
12   .-   (   A   +   D   +   E   )
13   .-   (   A   +   D   +   F   )
14   .-   (   A   +   D   +   G   )
15   .-   (   A   +   D   +   H   )
16   .-   (   A   +   E   +   F   )
17   .-   (   A   +   E   +   G   )
18   .-   (   A   +   E   +   H   )
19   .-   (   A   +   F   +   G   )
20   .-   (   A   +   F   +   H   )
21   .-   (   A   +   G   +   H   )
22   .-   (   B   +   C   +   D   )
23   .-   (   B   +   C   +   E   )
24   .-   (   B   +   C   +   F   )
25   .-   (   B   +   C   +   G   )
26   .-   (   B   +   C   +   H   )
27   .-   (   B   +   D   +   E   )
28   .-   (   B   +   D   +   F   )
29   .-   (   B   +   D   +   G   )
30   .-   (   B   +   D   +   H   )
31   .-   (   B   +   E   +   F   )
32   .-   (   B   +   E   +   G   )
33   .-   (   B   +   E   +   H   )
34   .-   (   B   +   F   +   G   )
35   .-   (   B   +   F   +   H   )
36   .-   (   B   +   G   +   H   )
37   .-   (   C   +   D   +   E   )
38   .-   (   C   +   D   +   F   )
39   .-   (   C   +   D   +   G   )
40   .-   (   C   +   D   +   H   )
41   .-   (   C   +   E   +   F   )
42   .-   (   C   +   E   +   G   )
43   .-   (   C   +   E   +   H   )
44   .-   (   C   +   F   +   G   )
45   .-   (   C   +   F   +   H   )
46   .-   (   C   +   G   +   H   )
47   .-   (   D   +   E   +   F   )
48   .-   (   D   +   E   +   G   )
49   .-   (   D   +   E   +   H   )
50   .-   (   D   +   F   +   G   )
51   .-   (   D   +   F   +   H   )
52   .-   (   D   +   G   +   H   )
53   .-   (   E   +   F   +   G   )
54   .-   (   E   +   F   +   H   )
55   .-   (   E   +   G   +   H   )
56   .-   (   F   +   G   +   H   )
 etec etec etec



Luis

En línea

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

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines