Foro de elhacker.net

Programación => 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
  1. Open "Archivo.txt" For Input As #1
  2. Line Input #1, miVariable1
  3. Line Input #1, miVariable2
  4. Line Input #1, miVariable3
  5. Close #1
  6.  

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
  1. Dim Cadenas() As String
  2. Dim lineas As Long
  3.        Open "C:\loquequieras.txt" For Input As #1
  4.            While Not EOF(1)
  5.                ReDim Preserve Cadenas(lineas)
  6.                Line Input #1, Cadenas(lineas)
  7.                lineas = lineas + 1
  8.            Wend
  9.        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
  1. Dim Cadenas() As String
  2. Dim lineas As Long
  3.        Open "C:\separar.txt" For Input As #1
  4.            While lineas < 3
  5.                ReDim Preserve Cadenas(lineas)
  6.                Line Input #1, Cadenas(lineas)
  7.                lineas = lineas + 1
  8.            Wend
  9.        Close #1
  10.  
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
.
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
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/)