• Domingo 22 de Diciembre de 2024, 13:06
« anterior próximo »
Páginas: [1]

Autor Tema:  traer 5 datos de un archivo  (Leído 1308 veces)

Metodos Numericos

  • Nuevo Miembro
  • *
  • Mensajes: 22
    • Ver Perfil
traer 5 datos de un archivo
« en: Sábado 22 de Agosto de 2009, 01:24 »
0
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

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: traer 5 datos de un archivo
« Respuesta #1 en: Sábado 22 de Agosto de 2009, 09:11 »
0
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
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

korsakof

  • Miembro activo
  • **
  • Mensajes: 36
  • Nacionalidad: es
    • Ver Perfil
Re: traer 5 datos de un archivo
« Respuesta #2 en: Jueves 3 de Septiembre de 2009, 13:01 »
0
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.  
Páginas: [1]
« anterior próximo »