none
Seleccionar datos en un archivo RRS feed

  • Pregunta

  • Hola a todos los del foro

    tengo un archivo de texto o plano con los siguientes datos
    el archivo contiene 40 datos

    15
    74
    35
    6
    15
    6
    .
    .
    .

    me gustaria que un text box mostrara cada dato, pero que no sea repetivo en otra palabras
    que lo mustre los datos sin que no se repetan en cada text box


    tengo el codigo

    para a ver en que me pueder asesorar


    '-------------------------------------------
    '-------------------------------------------
    '-------------------------------------------
    
    Private Const NUM_TEXTBOX = 6
    Private Const RUTA = "F:\archivo.TXT"
    
    
    
    Private Sub Form_Load()
    
    
    
    Dim Valores() As Integer
    Dim NumValores As Integer
    NumValores = Cargar_Valores(Valores)
    Mostrar_Valores Valores
    
    
    End Sub
    
    
    
    Private Function Cargar_Valores(ByRef Valores() As Integer) As Integer
    Dim Fichero As Integer
    Dim i As Integer
    Dim Aux As String
    
    Fichero = FreeFile()
    Open RUTA For Input As #Fichero
    
    i = 0
    Do While Not EOF(Fichero)
    ReDim Preserve Valores(i)
    Line Input #Fichero, Aux
    
    
    Valores(i) = CInt(Aux)
    i = i + 1
    
    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
    Text(i) = Valores(i)
    Next i
    End Sub
    
    de antemano gracias por sus valiosos aportes














    domingo, 18 de octubre de 2009 0:40