| Usuario |
Leer .txt y guardarlo en una matri... |
Desconocido
|
| Enviado - 11/7/2004 |
| |
Hola Amig@s. Tengo un problema, soy nuevo en VB, pero necesito para mi proyecto manipular un fichero ascii.
Tengo un fichero en el que guardo una serie de valores numericos agrupados en filas y columnas separados por returns y espacios en blanco.
El caso es que yo quiero leer el fichero y que las 3 primeras filas, que son un numero cada una, me las guarde en 3 variables distintas pero numericas, y el resto en una matriz, pues estos valores estan dispuestos en columnas separadas por espacios.
Se que en VB se puede leeer un fichero por filas con el Line Input, pero para la matriz?
Alguna solucion? |
| |
|
The Emulator
23 Mensaje(s)
|
| Enviado - 12/7/2004 |
| |
Hola
Bueno supongo que lo que necesitas es un Vector y no matriz
'Estas son las variables que utilizaremos:
Dim Vector(),Variable1,Variable2,Variable3 as String
Dim Contador as Integer
'Ahora el codigo:
Private Sub Form_Load()
Open "C:\TuArchivo.txt" For Input As 1
'Estas variables son las tres primeras lineas que tu ya debes de tener.
Line Input #1,Variable1
Line Input #1,Variable3
Line Input #1,Variable2
'Ahora vamos a leer el resto de las lineas y colocarlas en el arreglo.
?iniciamos un cilclo para identificar cuando se termina de leer el archivo
While not eof (1)
'Leemos una linea
Line Input #1,Datos
'Aumentamos el contador
Contador=Contador+1
'Dimencionamos el Arreglo
Redim Preserve Vector(Contador)
'Asignamos la linea leida a la nueva posicion del arreglo
Vector(Contador)=Datos
Wend
Close 1
End Sub
Listo lo que este despues de las tres primeras lineas quedara el el arreglo Vector() y el numero de posciones del arreglo lo tiene la variable Contador.
Espero que esto sea lo que necesites.
Saludos
Visita www.theemulator.tk
Alguna pregunta??? [email protected] |
| |
|
Desconocido
|
| Enviado - 15/7/2004 |
| |
| Muchas gracias emulator, ya lo consegui...ahora a modificar los valores y a guardar, jejeje. |
| |
|
|
|
