SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Metodos Numericos en Sábado 22 de Agosto de 2009, 01:24

Título: traer 5 datos de un archivo
Publicado por: Metodos Numericos en Sábado 22 de Agosto de 2009, 01:24
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
Título: Re: traer 5 datos de un archivo
Publicado por: F_Tanori en Sábado 22 de Agosto de 2009, 09:11
De esta forma puedes leer secuenciamente un Archivo de Principio a Fin Linea por Linea

Código: Visual Basic
  1. Dim Dato,Archivo as Long
  2.  
  3. Archivo =FreeFile
  4.  
  5. Open "C:Archivo.txt" For Input As #Archivo
  6. Do While Not EOF(Archivo)
  7.     Line Input #Archivo , Dato
  8.     'MsgBox Dato
  9.     debug.print Dato
  10. Loop
  11. Close #Archivo
  12.  

Ahora solo tienes que implementarle que solo lea 5 Lineas, puedes buscar informacion acerca de la Funcion Seek, la cual pudiera ser de utilidad para saltarte a un punto diferente del inicio del archivo para comenzar a leer

Mas Informacion:
http://msdn.microsoft.com/es-es/library/wz100x8w(VS.80).aspx


Saludos
Título: Re: traer 5 datos de un archivo
Publicado por: korsakof en Jueves 3 de Septiembre de 2009, 13:01
Código: Text
  1.    1. Dim Dato,Archivo as Long
  2.    2.  
  3.    3. Archivo =FreeFile
  4.    4.  
  5.    5. Open "C:Archivo.txt" For Input As #Archivo
  6.    
  7.    6. Do While Not EOF(Archivo) or cont >5
  8.    7.     Line Input #Archivo , Dato
  9.    8.     'MsgBox Dato
  10.    9.     debug.print Dato
  11.            ' Cojo el valor string, lo transformo y compruebo k esta comprendido entre los numeros 1 y 15          
  12.            if val(dato) >= 1 and val(dato)<=15 then
  13.                  ' Haces la operacion que desees con los numeros comprendidos entre el uno al 15
  14.            end if
  15.           'Puedes hacer un contador con el numero de veces que lees y compruebas
  16.           cont=cont+1
  17.   10. Loop
  18.   11. Close #Archivo
  19.