21/08/2009, 16:57
| |||
| |||
 traer 5 datos de un archivo 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 |
|
22/08/2009, 18:46
| ||||
| ||||
| Respuesta: traer 5 datos de un archivo no se entiende la pregunta...por favor explica bien.
__________________ " Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein |
|
30/08/2009, 09:26
| ||||
| ||||
| Respuesta: traer 5 datos de un archivo dim Linea as string Dim NumFichero as integer Dim Contador as integer numFichero=Freefile open NombreYCaminoDelFicheroTXT for input as #numFichero Contador=1 Do Until EOF(NumFichero) line input #numfichero, linea if val(linea)<=15 then numeros(contador)=val(linea) contador=contador+1 if contador>5 then exit do endif loop Close #numfichero 'Si se acaba el fichero y no hay 5 numeros puedes avisar if contador<5 then msgbox "atencion" Creo que esto sirve Numeros() debe ser un array de enteros que pueda accederse desde esta sub |
