Visual Basic - Guardar datos de un fichero txt en 2 vectores.

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 12
Ha aumentado su posición en 5 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Guardar datos de un fichero txt en 2 vectores.

Publicado por vbsix (8 intervenciones) el 22/05/2017 16:31:02
Hola a todos,
Tengo una interface con un botón desde el que puedo seleccionar un archivo (Openfiledialog) y quiero guardar los datos del fichero en 2 vectores X e Y.

El formato del fichero .txt sería este (con un espacio separando cada par de coordenadas).
1 2
3 4
5 6

De forma que quiero recorrer este archivo con un bucle y guardar los datos de forma que X=[1 3 5], Y=[2 4 6]

Gracias!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 4.008
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Guardar datos de un fichero txt en 2 vectores.

Publicado por Andres Leonardo (1666 intervenciones) el 22/05/2017 18:40:49
Espero te ayude ahi estan los arreglod

Ahor que vas a hacer con los arreglos ni idea...

**Si quieres puedes poner dos listas para que vayas viendo los valores.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Command1_Click()
Dim contentfile As String
Dim ruta_archivo As String
Dim Arreglo1() As String ' Arreglo 1
Dim Arreglo2() As String ' Arreglo 2
Dim C As Long
ruta_archivo = Me.CommonDialog1.FileName
On Error GoTo fin
'Form1.CommonDialog1.ShowOpen
'No se usar vectores pero seria algo ais
Dim L As Integer
Open Form1.CommonDialog1.FileName For Input As #1
C = 0
    Do Until EOF(1)  ' Cuento las lineas
     Line Input #1, contentfile         'Lee la cadena
        C = C + 1
    Loop
    Close #1
ReDim Arreglo1(1 To C) As String
ReDim Arreglo2(1 To C) As String
C = 1
Open ruta_archivo For Input As #1
    Do Until EOF(1)  ' Cuento las lineas
     Line Input #1, contentfile         'Lee la cadena
     x = InStr(1, contentfile, " ")
     Arreglo1(C) = Mid(contentfile, 1, x - 1)
     Arreglo2(C) = Mid(contentfile, x + 1, Len(contentfile) - x + 1)
 
     C = C + 1
    Loop
    Close #1
 
 
fin:
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 12
Ha aumentado su posición en 5 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Guardar datos de un fichero txt en 2 vectores.

Publicado por Adrián (8 intervenciones) el 22/05/2017 18:52:01
Muchas gracias!! Tiene buena pinta!
Lo que quiero hacer ahora es una representación 2D de esos puntos.
Para ello quiero utilizar una MSchart.
¿sabrías como programar esa representación de puntos (X,Y) en este caso (arreglo1, arreglo2) ?

Un saludo y gracias!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.008
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Guardar datos de un fichero txt en 2 vectores.

Publicado por Andres Leonardo (1666 intervenciones) el 22/05/2017 20:14:14
Hola.. eso si no lo sabria hacer _:s

ajajaj pero sabes no necesariamente lo debias poner en arreglos podrias hacer creado listas invisibles y con eso veias las posiciones....

si te dieron alguin codigo o como hacer .. pero lo por pronto ya tienes las coordenadas requeridas....

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar