none
Traer 5 datos y despues el ultimo dato de un archivo RRS feed

  • Pregunta

  • tengo un archivo de texto con 100 numeros
    que se construyen aleatoriamente

    45
    14
    2
    63
    5
    7
    6
    22
    .
    .
    .


    y este es el codigo con que capturo  los datos

    Private Const NUM_TEXTBOX = 6
    
    
    Private Function Cargar_Valores(ByRef Valores() As Integer) As Integer
        Dim Fichero As Integer
        Dim i As Integer
        Dim Aux As String
        Dim n1 As Integer
        Dim lHay As Boolean
        
        Fichero = FreeFile()
        Open "D:\Texto.txt" For Input As #Fichero
        
        i = 0
         Do While Not EOF(Fichero)
            ReDim Preserve Valores(i)
            Line Input #Fichero, Aux
            ' son los numeros del 1 hasta 15
            If CInt(Aux) > 0 And CInt(Aux) <= 15 Then
                ' evalua datos que no sean repetidos
                lHay = False
                
                    For n1 = 0 To i - 1
                        If Aux = Valores(n1) Then
                        lHay = True
                        Exit For
                        End If
                    Next
                
                    If lHay = False Then
                        
                        ReDim Preserve Valores(i)
                        Valores(i) = CInt(Aux)
                        i = i + 1
                
                        If i = 6 Then
                        Exit Do
                        End If
            
                    End If
            
            End If
        Loop
        
        Cargar_Valores = i + 1
    End Function
    
    Private Sub Mostrar_Valores(ByRef Valores() As Integer)
        Dim i As Integer
        
        For i = 0 To NUM_TEXTBOX - 1
            txtdatob(i) = Valores(i)
        Next i

    Mi pregunta es si puedo trear el ultimo dato del archivo pero sin modificar los mismos 5 o 4 numeros que traigo
    martes, 17 de noviembre de 2009 22:51

Todas las respuestas