Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: extreme69 en 20 Junio 2011, 15:18 PM

Título: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
Publicado por: extreme69 en 20 Junio 2011, 15:18 PM
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.
Título: Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
Publicado por: raul338 en 20 Junio 2011, 15:49 PM
Hay formas de leer el archivo y obtener linea por linea. Creo que era

Código (vb) [Seleccionar]

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 :)
Título: Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
Publicado por: Elemental Code en 20 Junio 2011, 16:06 PM
Código (vb) [Seleccionar]
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)
Título: Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
Publicado por: extreme69 en 20 Junio 2011, 16:17 PM
Gracias a ambos por la respuesta tan rápida :D

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]

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 :P
Título: Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
Publicado por: BlackZeroX en 20 Junio 2011, 18:08 PM
.
while lineas<3 and Not EOF(1)

Dulces Lunas!¡.
Título: Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
Publicado por: extreme69 en 20 Junio 2011, 19:49 PM
Cita de: BlackZeroX▓▓▒▒░░ en 20 Junio 2011, 18:08 PM
.
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.
Título: Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
Publicado por: Hasseds en 20 Junio 2011, 20:37 PM

Dim Cadenas(2) As String

ReDim Preserve Cadenas(lineas)
Título: Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
Publicado por: BlackZeroX en 20 Junio 2011, 22:44 PM
Con las dos lineas que te acabamos de corregir Hasseds y un servidor, SIEMPRE tendrás 3 lineas.

Dulces Lunas!¡.
Título: Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
Publicado por: Elemental Code en 21 Junio 2011, 04:34 AM
claro, el archivo que yo abria era de longitud variable.
Si sabes cuanto vas a necesitar declaras directamente las cosas.
Título: Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
Publicado por: extreme69 en 22 Junio 2011, 02:13 AM
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?
Título: Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
Publicado por: raul338 en 22 Junio 2011, 04:34 AM
Cita de: extreme69 en 22 Junio 2011, 02:13 AM
Hay algún subforo de javascript?
Supongo que iria en la parte de Desarrollo Web (http://foro.elhacker.net/desarrollo_web-b7.0/) o en su defecto en la sección de Scripting (http://foro.elhacker.net/scripting-b64.0/)