Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas

[extreme69]

Tengo un archivo .txt que va cambiando la información cada X cantidad de segundos.

Tengo que guardar las primeras 3 lineas de texto por separado, cada linea de texto en una variable.

Algún ejemplo sería apreciado.

[raul338]

Hay formas de leer el archivo y obtener linea por linea. Creo que era

Código (vb) [Seleccionar] Expandir


Open "Archivo.txt" For Input As #1
Line Input #1, miVariable1
Line Input #1, miVariable2
Line Input #1, miVariable3
Close #1


De todas formas puedes leer el archivo entero y separar por split

[Elemental Code]

Código (vb) [Seleccionar] Expandir

Dim Cadenas() As String
Dim lineas As Long
        Open "C:\loquequieras.txt" For Input As #1
            While Not EOF(1)
                ReDim Preserve Cadenas(lineas)
                Line Input #1, Cadenas(lineas)
                lineas = lineas + 1
            Wend
        Close #1

Eso use yo para meterlos en un array
(eso es todo el archivo, no solo 3 lineas)

[extreme69]

Gracias a ambos por la respuesta tan rápida

El código de Raúl funciona bien.

El de Elemental Code supongo que funciona también, sólo le cambié el while en vez de q sea hasta q se termine el texto que sea mientras lineas es menor a 3.

Código (vb) [Seleccionar] Expandir


Dim Cadenas() As String
Dim lineas As Long
       Open "C:\separar.txt" For Input As #1
           While lineas < 3
               ReDim Preserve Cadenas(lineas)
               Line Input #1, Cadenas(lineas)
               lineas = lineas + 1
           Wend
       Close #1

Como tomo la data de cada linea después? supongamos para hacerle un msgbox del valor de cada línea por separado, pregunto en el caso que propone elemental code.

edit: listo, funciona precioso.

MsgBox Cadenas(1)
MsgBox Cadenas(2)
MsgBox Cadenas(3)

Gracias elemental code, sin querer queriendo me quedó clarisimo el concepto de las arrays por primera vez

[BlackZeroX]

.
while lineas<3 and Not EOF(1)

Dulces Lunas!¡.

[extreme69]

.
while lineas<3 and Not EOF(1)

Dulces Lunas!¡.

Hola black, gracias pero el texto va a tener siempre al menos 3 lineas, no sería innecesario poner el and Not EOF(1) ?

Ya lo tengo funcionando, pregunto de curioso nomás.

[Hasseds]

Dim Cadenas(2) As String

ReDim Preserve Cadenas(lineas)

[BlackZeroX]

Con las dos lineas que te acabamos de corregir Hasseds y un servidor, SIEMPRE tendrás 3 lineas.

Dulces Lunas!¡.

[Elemental Code]

claro, el archivo que yo abria era de longitud variable.
Si sabes cuanto vas a necesitar declaras directamente las cosas.

[extreme69]

Los adoro! ^^

Pensar que hace unos meses no sabía setear una variable en vb, y ahora no sabía sacar las líneas de un .txt ajajaj pero por lo menos hice cosas bastante/muy copadas, y siempre que me tranco con algo ustedes son mi última parada, pero es seguro obtener una respuesta acertada con gente como ustedes.

Gracias por existir y compartir conocimientos, realmente es apreciado.

Ni se imaginan lo que está programando este script kiddie ^^

Hay algún subforo de javascript?