Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Ayuda en el proceso de este fichero

Estas en el tema de Ayuda en el proceso de este fichero en el foro de Visual Basic clásico en Foros del Web. Buenas. Antes de nada, me presento. He leido unas cuantas veces estos foros y me parecen bastante útiles para resolver determinadas dudas de gente o, ...
  #1 (permalink)  
Antiguo 19/11/2006, 18:20
 
Fecha de Ingreso: noviembre-2006
Mensajes: 2
Antigüedad: 17 años, 5 meses
Puntos: 0
Ayuda en el proceso de este fichero

Buenas. Antes de nada, me presento. He leido unas cuantas veces estos foros y me parecen bastante útiles para resolver determinadas dudas de gente o, simplemente, aprender de los problemas de los demás.
Mi duda es que tengo un fichero de texto con el siguiente formato:





39.96 0.81 -0.15 38.00 0. 0. 0.30 15.0 0.573
40.96 0.81 -0.15 39.00 0. 0. 0.30 15.0 0.571
41.96 0.81 -0.15 40.00 0. 0. 0.30 15.0 0.569
42.96 0.81 -0.15 41.00 0. 0. 0.30 15.0 0.567
43.96 0.81 -0.15 42.00 0. 0. 0.30 15.0 0.565
44.42 0.81 -0.15 42.46 0. 0. 0.30 15.0 0.564


FIN

Mi intención es quedarme con los datos separado por espacios y pasarlos a una estructura de datos
Ya he abierto el fichero y sé cómo leer una línea, pero no sé como separar la información de la línea, como coger una fila de números separados entre espacios y pasar cada número al vector... nada.

¿Podéis ayudarme? En verdad estoy desesperado porque me mandaron el trabajo el Viernes para mañana por latarde y no soy capaz de tratar las cadenas.
La ayuda del visual no me resuelve con suficiente claridad estas cuestiones y no sé que hacer.
Gracias de antemano.

Última edición por nicklaus; 20/11/2006 a las 09:58 Razón: Para hacerlo más legible y menos denso
  #2 (permalink)  
Antiguo 20/11/2006, 09:54
 
Fecha de Ingreso: noviembre-2006
Mensajes: 2
Antigüedad: 17 años, 5 meses
Puntos: 0
Ya está aislada en el fichero la parte de negrita.
Ahora la pregunta es más sencilla:
¿Cómo puedo pasar una cadena de números separados por espacios a un vector?
En C++ lo hacía con la función strtok, pero en visual basic ni idea. No sé como coger palabras en un string diciéndole que están separadas por algún caracter determinado.
  #3 (permalink)  
Antiguo 20/11/2006, 11:36
Avatar de tazzito  
Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 17 años, 9 meses
Puntos: 2
prueba con split

arreglo = split (linea, " ")
  #4 (permalink)  
Antiguo 21/11/2006, 20:18
 
Fecha de Ingreso: noviembre-2006
Mensajes: 17
Antigüedad: 17 años, 5 meses
Puntos: 0
Open NombreArchivoTXT For Input As 1
Line Input #1, Registro
While Not EOF(1)
Numero1= Mid(Registro, 1, 5) --(39.96)
Numero2= Mid(Registro, 7, 4) --(0.81)
----así todos los campos----
Line Input #1, Registro
Wend
Ojo ¡¡¡ el último registro no entra en el Loop y lo tenés que hacer solito abajo del while
suerte...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:57.