Mensajes

Hola a todos de nuevo (tiempo sin preguntar ) seguro alguno me estrañaria jejeje  

Bien quiero formar pares de numeros que tengo en una variable

esta variable tiene longitud que varia pueden ser cualquier cantidad hasta 10 numeros

ejemplo

0,1,2,3,4,5,6,7,8,9

y nesecito formarlos de esta manera

01
02
03
04
05
06
07
08
09

10
12
13
14
15
16
17
18
19  y haci con todos los demas numeros y pasarlos a otra variable

la varaiable que estoy usando es esta

Código (vbnet) [Seleccionar] Expandir

Dim pru As IEnumerable(Of Integer) =


Saludos
Luis

Hola esto te resolvera la vida

busca en C:\Windows\System32\drivers\etc

el archivo host lo habres con el editor de notas y copias todo lo que pongo aca y si no sale la pagina que te moslesta solo tienes que ponerla como estan las demas . recuerda poner solo el dominio no copiar despues del com,


descarga del archivo Host con muchas paginas spamers blokeadas solo reemplazalo por el tuyo pero recuerda hacer una copia de seguridad de tu archivo Host

https://mega.co.nz/#!IM0TWBbZ
clave -- OobCZItHDrvGBsBB_c-Y_mWKTsszGXoYuutefVtBPOY


espero te sirva
Luis

 

Claro que tu ayuda me sirvio de mucho y espero que a muchos mas    siempre aunque que no postee, estoy dando vueltas por estos lares jejejje



saludos
Luis

[add:=1]

Fíjate en el nuevo parámetro que le añadí:

Código (vbnet,4,5,8,17) [Seleccionar] Expandir

 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,
                      collection.Skip(index * amount).Take(amount),
                      If((collection.Count() - (index * amount)) >= amount,
                         collection.Skip(index * amount).Take(amount),
                         collection.Skip(index * amount).Take(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

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)

Código (vbnet) [Seleccionar] Expandir

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,
                        collection.Skip(index * amount).Take(amount),
                        If((collection.Count() - (index * amount)) >= amount,
                           collection.Skip(index * amount).Take(amount),
                           collection.Skip(index * amount).Take(amount).
                                                           Concat(From i As Integer
                                                                  In Enumerable.Range(0, amount - (collection.Count() - (index * amount)))
                                                                  Select DirectCast(Nothing, T))))

   End Function



Saludos

Luis

Gracias elektro

Ya esta solucionado el error, lo tenia en el contador que habia puesto en configuracion y que en ves de integer habia puesto double 


de nuevo gracias
Luis

Hola a todos tengo este error cuando genero un programa en exe y al ejecutarlo me sale la ventanita que me dice  " InvalidCastException " seguir o cancelar,  si sigo el programa se ejecuta normalmente, he compilado muchos exes y es la primera ves que me pasa ,

************** Texto de la excepción **************
System.InvalidCastException: La conversión de la cadena "" en el tipo 'Double' no es válida. ---> System.FormatException: La cadena de entrada no tiene el formato correcto.

************** Depuración JIT **************
Para habilitar la depuración Just In Time (JIT), el archivo de configuración de esta
aplicación o equipo (machine.config) debe tener el
valor jitDebugging establecido en la sección system.windows.forms.
La aplicación también se debe compilar con la depuración
habilitada

Por ejemplo:

<configuration>
   <system.windows.forms jitDebugging="true" />
</configuration>

Cuando esté habilitada la depuración JIT, cualquier excepción no controlada
se enviará al depurador JIT registrado en el equipo
en lugar de controlarlo mediante el cuadro de diálogo.

Luis

Bueno a ver si esto te vale

http://www.jc-mouse.net/proyectos/ejemplo-de-aplicacion-android-y-sqlite

Luis

bueno a ver lo que quiero es tomar de dos en dos la cantidad de numeros en la variable
enpezando desde el split que de paso aclaro que es el 0

tengo en la variable estos numeros lo hare corto

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,12, 13, 14,15 y quiero que los split los tomen de esta manera, para el ejemplo estoy poniendo numeros correlativos pero suelen ser diferentes (1 4 6 10 15 22 26 28 )  etc


1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,12, 13, 14,15

split(0)=1 y 3
split(1)=2 y 4
split(2)=5 y 7
split(3)=6 y 8
split(4)=7 y 9
split(5)=8 y 10
split(6)=9 y 11
split(7)=10 y 12
split(9)=12 y 14
........y con todos igual  se me paso jejje ( 55 ya no son tan buenos )

Normalmente la variable que tiene el arreglo ordena los numeros de menor a mayor desde 0 en adelante y los split los toma en ese orden pero no me valen cuando son correlativos 1, 2, 3 etc. nesecito un salto entre ellos


Luis

Dificil no?

que sera para mi ?   

Luis