Mensajes

hola tengo esta rutina que me grava un txt y quiero verlo desde otro boton

Código (vbnet) [Seleccionar] Expandir

Private Sub GuardarCombinacionesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarCombinacionesToolStripMenuItem.Click
       Dim rutaFichero As String
       Dim i As Integer

       rutaFichero = Path.Combine(Application.StartupPath, "Combinaciones.txt")
       Dim fichero As New IO.StreamWriter(rutaFichero)
       For i = 0 To ListBox2.Items.Count - 1
           fichero.WriteLine(ListBox2.Items(i))
       Next
       fichero.Close()
   End Sub  

Luis

Tiempo record ,,, ni yo me lo creo    FUNCIONA

Código (vbnet) [Seleccionar] Expandir

Loop ' skipStart = (constantValues.Count - length)
       
        combinations.RemoveAll(Function(list As List(Of Integer)) list.First = 0)

        combinations.ForEach(Sub(combination As List(Of Integer))
                                 ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
                                                                      Select If(value.ToString.Length = 1I,
                                                                                value.ToString.Insert(0I, "0"c),
                                                                                value.ToString)))



                             End Sub)



Gracias elektro

Luis

Corro a probar y enredarme mas jejejej       

gracias Elektro

Luis

Si pero los doble cero adelante     siempre me explico mal    ;(

00, 01, 02, 04, 05, 06 <---- eliminar toda la linea que contengan doble cero o cero de                           primeros los demas tipo 01 05 09 dejarlos

00, 01, 03, 04, 05, 06 =eliminar
00, 01, 04, 05, 06, 08 =eliminar
00, 01, 04, 05, 06, 09 =eliminar

01, 02, 04, 05, 06, 18 =<--dejar
10 ,20 ,45 ,88 .87, 90 <----dejar


luis

Hola como puedo eliminar los registros que contengan ceros ?

00, 01, 02, 04, 05, 06
00, 01, 03, 04, 05, 06
00, 01, 04, 05, 06, 08
00, 01, 04, 05, 06, 09
00, 01, 04, 05, 06, 18
00, 01, 04, 05, 06, 10
00, 01, 04, 05, 06, 11
00, 01, 04, 05, 06, 15
10 ,20 ,45 ,88 .87, 90

Código (vbnet) [Seleccionar] Expandir

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click


       Dim combinations As New List(Of List(Of Integer))
       Dim length As Integer = 5
       Dim skipStart As Integer = 0


       Do Until skipStart = (constantValues.Count - length)

           Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
           Dim count As Integer = 0

           Do Until count = (constantValues.Count - length - skipStart)

               Dim list As List(Of Integer) = values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList
               list.Sort()
               combinations.Add(list)

               '  Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))

               count += 1

           Loop ' count = (constantValues.Count - length)

           skipStart += 1


       Loop ' skipStart = (constantValues.Count - length)


       combinations.ForEach(Sub(combination As List(Of Integer))
                                ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
                                                                     Select If(value.ToString.Length = 1I,
                                                                               value.ToString.Insert(0I, "0"c),
                                                                               value.ToString)))



                            End Sub)




   End Sub



Luis

Gracias Elektro , no creas que ya no resuelvo algunas cosas por mi mismo y eso es gracias a ti en este lenguaje, pero aprendo muy despacio jejej y ademas cambiar de  programación a esta edad me confunde mucho


Luis

[⇲]

⇲
List(Of T).Sort Method - MSDN

Nota: Es un método, no una función, por lo tanto debes asignar la lista a una variable, la ordenas utilizando el método indicado, y ya puedes agregar la lista ordenada a la colección de listas.

Saludos

Probando me da este error no se si te entendi bien pero te muestro el codigo

Excepción del tipo 'System.OutOfMemoryException' en System.Core.dll

Código (vbnet) [Seleccionar] Expandir


          ' Do Until count = (constantValues.Count - length - skipStart)
            Do Until skipStart = (constantValues.Count - length)

                combinations.Add(values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList)

                '  Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))

                count += 1

            Loop ' count = (constantValues.Count - length)

            skipStart += 1


        Loop ' skipStart = (constantValues.Count - length)


        combinations.ForEach(Sub(combination As List(Of Integer))
                                 ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
                                                                      Select If(value.ToString.Length = 1I,
                                                                                value.ToString.Insert(0I, "0"c),
                                                                                value.ToString)))



                             End Sub)



Luis

Otro rollo jeje

este codigo me entrega los numeros ordenados de menor a mayor funciona bien,pero depues de modificarlo me entrega los combinaciones desordenadas,he probado con ordenar la variable y el listbox pero no se que mas ,

Código (vbnet) [Seleccionar] Expandir

codigo original

Public Class Form1
    Dim combinations As Integer
    Dim seta As Integer

    ReadOnly constantValues As New List(Of Integer) From
        {
            2, 3, 5I, 6I, 7I, 8I, 9I,
11, 13, 14, 17, 18, 19,
20, 21, 24, 25, 26, 29,
30, 31, 33, 44, 48
        }

    Private Shadows Sub Load() Handles MyBase.Load

        Dim combinations As New List(Of List(Of Integer))
        Dim length As Integer = 9
        Dim skipStart As Integer = 0

        Do Until skipStart = (constantValues.Count - length)

            Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
            Dim count As Integer = 0

            Do Until count = (constantValues.Count - length - skipStart)

                combinations.Add(values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList)

                Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))

                count += 1

            Loop ' count = (constantValues.Count - length)

            skipStart += 1

        Loop ' skipStart = (constantValues.Count - length)
        combinations.ForEach(Sub(combination As List(Of Integer))
                                 ListBox1.Items.Add(String.Join(", ", From value As Integer In combination
                                                                      Select If(value.ToString.Length = 1I,
                                                                                value.ToString.Insert(0I, "0"c),
                                                                                value.ToString)))
                             End Sub)



    End Sub




ahora como he modificado la variable " constantValues "  por constantValues.AddRange(Resultss.ToArray()) para usar
los numeros de " resultss " y estos numeros cambian no son fijos

Código (vbnet) [Seleccionar] Expandir

codigo modificado

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click


        Dim combinations As New List(Of List(Of Integer))
        Dim length As Integer = 9
        Dim skipStart As Integer = 0


        Do Until skipStart = (constantValues.Count - length)

            Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
            Dim count As Integer = 0

            Do Until count = (constantValues.Count - length - skipStart)

                combinations.Add(values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList)

                '  Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))

                count += 1

            Loop ' count = (constantValues.Count - length)

            skipStart += 1


        Loop ' skipStart = (constantValues.Count - length)


        combinations.ForEach(Sub(combination As List(Of Integer))
                                 ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
                                                                      Select If(value.ToString.Length = 1I,
                                                                                value.ToString.Insert(0I, "0"c),
                                                                                value.ToString)))



                             End Sub)


y me entrega las combinaciones desordenadas de esta forma


03, 05, 12, 13, 30, 08, 27, 28, 14, 26
03, 05, 12, 13, 30, 08, 27, 28, 14, 31
03, 05, 12, 13, 30, 08, 27, 28, 14, 32
03, 05, 12, 13, 30, 08, 27, 28, 14, 11
03, 05, 12, 13, 30, 08, 27, 28, 14, 17
03, 05, 12, 13, 30, 08, 27, 28, 14, 33
03, 05, 12, 13, 30, 08, 27, 28, 14, 37
03, 05, 12, 13, 30, 08, 27, 28, 14, 38






Luis

Buaaaaaaaaaa


luis

[JoinEnumerables]

Tu tienes esto:

Código [Seleccionar] Expandir

Lista
   · Sub-Lista
      · {2, 9}
   · Sub-Lista
      · {10, 15}

Y lo que quieres conseguir es esto (aparentemente, ya que no está muy claro lo que has dicho) :

Código [Seleccionar] Expandir

Lista
   · {2, 9, 10, 15}


¿Qué tienes que hacer?, unir las sub-listas en una sola lista.

¿Cómo hacerlo?, puedes hacerlo con el método que te mostré, JoinEnumerables, el cual desarrollé para que realizase esa tarea en específico.


Saludos!

Hola asta ahora no he podido ver nada ( catarrazooo)  me podrias enseñar algun ejemplo con mayores detalles

luis