Lunes 23 de Diciembre de 2024, 11:55
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
traer 5 datos de un archivo
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: traer 5 datos de un archivo (Leído 1310 veces)
Metodos Numericos
Nuevo Miembro
Mensajes: 22
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
Tweet
F_Tanori
Moderador
Mensajes: 1919
Nacionalidad:
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
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
Dato
Loop
Close
#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
" 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:
Re: traer 5 datos de un archivo
«
Respuesta #2 en:
Jueves 3 de Septiembre de 2009, 13:01 »
0
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
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
traer 5 datos de un archivo