Private Sub btnProcesar_Click(sender As Object, e As EventArgs) Handles btnProcesar.Click
    ' Lee los registros del archivo de texto
    Dim registros As List(Of String) = New List(Of String)(IO.File.ReadAllLines("ruta_del_archivo.txt"))
 
    ' Crea una variable para almacenar los resultados
    Dim resultados As String = ""
 
    ' Itera sobre los registros y procesa cada uno
    For Each registro As String In registros
        ' Separa los números del registro en un array
        Dim numeros() As String = registro.Split(" "c)
 
        ' Verifica que el último número no sea mayor que 49
        If Integer.Parse(numeros(5)) <= 49 Then
            ' Encuentra la constante entre los números
            Dim constante As Integer = Integer.Parse(numeros(1)) - Integer.Parse(numeros(0))
 
            ' Cuenta cada cuántos registros aparece esa constante
            Dim contador As Integer = 1
            For i As Integer = 2 To numeros.Length - 1 Step 1
                If Integer.Parse(numeros(i)) - Integer.Parse(numeros(i - 1)) = constante Then
                    contador += 1
                Else
                    Exit For
                End If
            Next
 
            ' Agrega los resultados al string de resultados
            resultados &= "Constante: " & constante.ToString() & ", se repite cada " & contador.ToString() & " registros" & Environment.NewLine
        End If
    Next
 
    ' Muestra los resultados en el TextBox
    txtResultados.Text = resultados
End Sub

Imports System.IO
 
 
 
Public Class Form1
 
    Private Sub BTNProcesar_Click(sender As Object, e As EventArgs) Handles btnProcesar.Click
 
        ' Lee los registros del archivo de texto
        Dim registros As List(Of String) = New List(Of String)(IO.File.ReadAllLines("C:\Users\34625\Desktop\bonoloto\1.txt"))
 
        ' Crea una variable para almacenar los resultados
        Dim resultado As String = ""
        Dim resultado2 As String = ""
 
        ' Define el valor máximo de la barra de progreso
        Dim valorMaximo As Integer = registros.Count
 
        ' Configura la barra de progreso
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = valorMaximo
        ProgressBar1.Value = 0
 
        ' Itera sobre los registros y procesa cada uno
        For Each registro As String In registros
            ' Verifica que la cadena tenga el formato adecuado
            If registro.Length >= 30 Then
                ' Separa los números del registro en un array
                Dim numeros() As String = registro.Substring(11, 14).Split(" "c)
 
                ' Verifica que haya seis números en el array
                If numeros.Length = 6 Then
                    ' Verifica que los números sean válidos
                    Dim numerosValidos As Boolean = True
                    For Each numero As String In numeros
                        If Not IsNumeric(numero) OrElse Integer.Parse(numero) < 1 OrElse Integer.Parse(numero) > 49 Then
                            numerosValidos = False
                            Exit For
                        End If
                    Next
 
                    If numerosValidos Then
                        ' Encuentra la constante entre los números
                        Dim constante As Integer = Integer.Parse(numeros(1)) - Integer.Parse(numeros(0))
 
                        ' Cuenta cada cuántos registros aparece esa constante
                        Dim contador As Integer = 1
                        For i As Integer = 2 To numeros.Length - 1 Step 1
                            If Integer.Parse(numeros(i)) - Integer.Parse(numeros(i - 1)) = constante Then
                                contador += 1
                            Else
                                Exit For
                            End If
                        Next
 
                        ' Agrega los resultados al string de resultados
                        resultado &= "Constante: " & constante.ToString() & ", se repite cada " & contador.ToString() & " registros" & Environment.NewLine
 
                        ' Cuenta cada cuántos registros aparece una constante par o impar
                        Dim contador2 As Integer = 0
                        For Each numero As String In numeros
                            If Integer.Parse(numero) Mod 2 = 0 And constante Mod 2 = 0 Then
                                contador2 += 1
                            ElseIf Integer.Parse(numero) Mod 2 <> 0 And constante Mod 2 <> 0 Then
                                contador2 += 1
                            End If
                        Next
 
                        ' Agrega los resultados al string de resultados 2
                        resultado2 &= "Constante: " & constante.ToString() & ", se repite cada " & contador2.ToString() & " registros" & Environment.NewLine
 
                    End If
                End If
            End If
 
            ' Actualiza el valor de la barra de progreso
            ProgressBar1.Value += 1
        Next
 
        ' Muestra los resultados en el TextBox
        TextBox1.Text = resultado
        TextBox2.Text = resultado2
 
 
    End Sub
 
End Class