Visual Basic - traer 5 datos de un archivo

Life is soft - evento anual de software empresarial
   
Vista:

traer 5 datos de un archivo

Publicado por jose sarria (3 intervenciones) el 22/08/2009 01:28:15
Hola a todos

tengo un archivo .txt de 100 numeros mostrados asi

15
14
27
45
78
41
35
69
48
.
.
.

quiero traer 5 numeros cualquiera pero que sean del 1 hasta el 15

el orden no importa el orden

agradezco sus valisas respuestas
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:traer 5 datos de un archivo

Publicado por juan carlos (518 intervenciones) el 22/08/2009 21:55:47
hola jose Sarria

Abre una Form1
Colocale un command1
colocale un list1,list2,list3
inserta el codigo de abajo
Corre el programa

Lo hice asi porque no se el nombre del txt.
solo tienes que transferir los datos del txt al list1 y listo
el list2 tiene el numero de registro de todos los menores de 16
el list3 tiene el numero de registro y su contenido de los primeros 5
registros del list2

espero te sirva de algo esto
si deseas el codigo fuente contactane a mega.juca@hotmail.es

Private Sub Command1_Click()
Dim j As Long
Dim tre As Integer
Dim t As Integer

tre = List1.ListCount
For t = 0 To tre
m = List1.List(t)
If m <= 16 Then
List2.AddItem m '& " " & m
End If
j = j + 1
Next t
ver
End Sub

Sub ver()
For t = 0 To 5
m = List2.List(t)
List3.AddItem t & " " & m
j = j + 1
Next t
End Sub

Private Sub Form_Load()
List1.AddItem "12"
List1.AddItem "15"
List1.AddItem "14"
List1.AddItem "27"
List1.AddItem "45"
List1.AddItem "78"
List1.AddItem "41"
List1.AddItem "35"
List1.AddItem "69"
List1.AddItem "13"
List1.AddItem "2"
List1.AddItem "6"
List1.AddItem "9"
List1.AddItem "11"
List1.AddItem "67"
List1.AddItem "5"
List1.AddItem "16"
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar