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