Autor
|
Tema: Hola otro de mis rollos con variables (Leído 1,854 veces)
|
luis456
Desconectado
Mensajes: 548
|
Hola a todos como ya mas o menos me defiendo jejej ya casi no pregunto pero no se como hacer que este codigo em ves de empezar con split(0) empieze con el split(1) me explico tengo un arreglo de x numeros (1, 2, 3, 4, 5) y si quiero hacer una union o concatenacion de ese arreglo por ejemplo ( 1 2 3 ) tengo que tomar split(0),split(1),split(2) cuando lo que yo quiero es split(1),split(2),split(3) y no tomar en cuenta el split(0),he provado con Skip(1) pero no me vale ya que me salta el numero inicial un poco mas claro arreglo 1, 2, 3, 4, 5 asi es ahora 1 = split(0) 2 = split(1) 3 = split(2) nesecito de esta forma 1 = split(1) 2 = split(2) 3 = split(3) Dim arregloSumasa() As Integer = {1, 2, 3, 4, 5} Dim split As IEnumerable(Of IEnumerable(Of Integer)) = SplitIntoParts (collection: =arregloSumasa, amount: =1, fillEmpty: =True) Public Shared Function SplitIntoParts (Of T )(ByVal collection As IEnumerable (Of T ), ByVal amount As Integer, ByVal fillEmpty As Boolean) As IEnumerable(Of IEnumerable(Of T)) Return From index As Integer In Enumerable. Range(0, CInt(Math. Ceiling(collection. Count() / amount ))) Select If(Not fillEmpty, If((collection. Count() - (index * amount )) > = amount, Concat(From i As Integer In Enumerable. Range(0, amount - (collection. Count() - (index * amount ))) Select DirectCast(Nothing, T)))) End Function
Saludos Luis
|
|
« Última modificación: 9 Julio 2015, 17:44 pm por luis456 »
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
Eleкtro
Ex-Staff
Conectado
Mensajes: 9.788
|
Fíjate en el nuevo parámetro que le añadí: Public Shared Function SplitIntoParts (Of T )(ByVal collection As IEnumerable (Of T ), ByVal amount As Integer, ByVal fillEmpty As Boolean, Optional ByVal add As Integer = 0, Optional ByVal skip As Integer = 0 ) As IEnumerable(Of IEnumerable(Of T)) Dim emptyAdded As IEnumerable(Of IEnumerable(Of T)) = Enumerable.Repeat({DirectCast(Nothing, T)}, add) Return emptyAdded.Concat( From index As Integer In Enumerable. Range(0, CInt(Math. Ceiling(collection. Count() / amount ))) Select If(Not fillEmpty, If((collection. Count() - (index * amount )) > = amount, Concat(From i As Integer In Enumerable. Range(0, amount - (collection. Count() - (index * amount ))) Select DirectCast(Nothing, T)))) ).Skip(skip) End Function
De esa manera, si le asignas un valor de add:=1 al llamar a la función, le añadiras esa cantidad especificada de IEnumerable(Of T) (vacías) al pricipio de la colección, y, aparte, si le asignas un valor de skip:=X, la función devolverá el IEnumerable(Of IEnumerable(Of T)) ignorando la cantidad especificada de elementos de tipo IEnumerable(Of T) al principio de la colección. Saludos
|
|
« Última modificación: 9 Julio 2015, 17:22 pm por Eleкtro »
|
En línea
|
|
|
|
luis456
Desconectado
Mensajes: 548
|
Fíjate en el nuevo parámetro que le añadí: Public Shared Function SplitIntoParts (Of T )(ByVal collection As IEnumerable (Of T ), ByVal amount As Integer, ByVal fillEmpty As Boolean, Optional ByVal add As Integer = 0, Optional ByVal skip As Integer = 0 ) As IEnumerable(Of IEnumerable(Of T)) Dim emptyAdded As IEnumerable(Of IEnumerable(Of T)) = Enumerable.Repeat({DirectCast(Nothing, T)}, add) Return emptyAdded.Concat( From index As Integer In Enumerable. Range(0, CInt(Math. Ceiling(collection. Count() / amount ))) Select If(Not fillEmpty, If((collection. Count() - (index * amount )) > = amount, Concat(From i As Integer In Enumerable. Range(0, amount - (collection. Count() - (index * amount ))) Select DirectCast(Nothing, T)))) ).Skip(skip) End Function
De esa manera, si le asignas un valor de add:=1 al llamar a la función, le añadiras esa cantidad especificada de IEnumerable(Of T) (vacías) al pricipio de la colección, y, aparte, si le asignas un valor de skip:=X, la función devolverá el IEnumerable(Of IEnumerable(Of T)) ignorando la cantidad especificada de elementos de tipo IEnumerable(Of T) al principio de la colección. Saludos Gracias Elektro Funciona de maravilla jejejej lastima que ahora no tenga tantas preguntas JAJAJJA siempre que iba a mirar tus respuestas estaba acojonado por tus reaccion (regaños) jejeje de verdad que funcionaron, ya que solo por no leerlos jejej me buscaba la vida y para los que empiezan con este lenguaje tienen buen profe jejej De nuevo gracias Luis
|
|
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
Eleкtro
Ex-Staff
Conectado
Mensajes: 9.788
|
siempre que iba a mirar tus respuestas estaba acojonado por tus reaccion (regaños) jejeje de verdad que funcionaron, ya que solo por no leerlos jejej me buscaba la vida y para los que empiezan con este lenguaje tienen buen profe jejej No se yo... si en la piel de profesor consigo que mis ""alumnos"" huyan entonces no seré tan buen profe xD. ¿Qué van a pensar de mi los demás?, reconozcámoslo, no te he "regañado" tanto... jaja, solo fui lo necesariamente arisco o estricto para que supieras desenvolverte por ti mismo para resolver cosas básicas. Ahora escribes los posts formulando preguntas publicando un ejemplo del resultado que obtienes y el que deseas obtener, y no ha sido necesario pedirte el código... ...aunque lo hagas solo para que no te "regañe" xD no lo se, pero es un cambio positivo en la calidad de la información de tus post. Saludos!
|
|
« Última modificación: 9 Julio 2015, 18:21 pm por Eleкtro »
|
En línea
|
|
|
|
luis456
Desconectado
Mensajes: 548
|
|
|
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Orientacion sobre como leer variables privadas de otro proceso
Ingeniería Inversa
|
silverius2
|
0
|
1,761
|
23 Noviembre 2005, 20:08 pm
por silverius2
|
|
|
[BATCH] ¿Como puedo meter variables dentro de variables?
Scripting
|
Meine programmen
|
1
|
3,793
|
24 Marzo 2012, 16:48 pm
por Eleкtro
|
|
|
Cómo borrar amigos en Facebook sin crear "malos rollos"
Noticias
|
wolfbcn
|
0
|
2,375
|
19 Enero 2013, 02:20 am
por wolfbcn
|
|
|
Script Corre con otro usuario y con el mío no. ¿Serán las variables de entorno?
Scripting
|
IraisGossow
|
2
|
2,362
|
30 Abril 2015, 17:49 pm
por IraisGossow
|
|
|
crear un bat que va tomando las variables de otro fichero
Scripting
|
solrk
|
0
|
1,787
|
17 Mayo 2017, 19:35 pm
por solrk
|
|