Programación General > Visual Basic 6.0 e inferiores

 traer 5 datos de un archivo

(1/1)

Metodos Numericos:
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:
De esta forma puedes leer secuenciamente un Archivo de Principio a Fin Linea por Linea


--- Código: Visual Basic ---Dim Dato,Archivo as Long Archivo =FreeFile Open "C:Archivo.txt" For Input As #Archivo Do While Not EOF(Archivo)     Line Input #Archivo , Dato    'MsgBox Dato    debug.print DatoLoopClose #Archivo  
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

korsakof:

--- Código: Text ---   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) or cont >5   7.     Line Input #Archivo , Dato   8.     'MsgBox Dato   9.     debug.print Dato           ' Cojo el valor string, lo transformo y compruebo k esta comprendido entre los numeros 1 y 15                      if val(dato) >= 1 and val(dato)<=15 then                 ' Haces la operacion que desees con los numeros comprendidos entre el uno al 15           end if          'Puedes hacer un contador con el numero de veces que lees y compruebas          cont=cont+1  10. Loop  11. Close #Archivo  

Navegación

[0] Índice de Mensajes