elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas  (Leído 9,376 veces)
extreme69

Desconectado Desconectado

Mensajes: 178


Be BlackHat but don't forget your principles.


Ver Perfil
Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
« 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.


En línea

raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
« Respuesta #1 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 :)


En línea

Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
« Respuesta #2 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)
En línea

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
extreme69

Desconectado Desconectado

Mensajes: 178


Be BlackHat but don't forget your principles.


Ver Perfil
Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
« Respuesta #3 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
« Última modificación: 20 Junio 2011, 17:59 pm por extreme69 » En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.156


I'Love...!¡.


Ver Perfil WWW
Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
« Respuesta #4 en: 20 Junio 2011, 18:08 pm »

.
while lineas<3 and Not EOF(1)

Dulces Lunas!¡.
En línea

The Dark Shadow is my passion.
extreme69

Desconectado Desconectado

Mensajes: 178


Be BlackHat but don't forget your principles.


Ver Perfil
Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
« Respuesta #5 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.
« Última modificación: 20 Junio 2011, 19:55 pm por extreme69 » En línea

Hasseds

Desconectado Desconectado

Mensajes: 145



Ver Perfil
Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
« Respuesta #6 en: 20 Junio 2011, 20:37 pm »


Dim Cadenas(2) As String

ReDim Preserve Cadenas(lineas)
En línea

Sergio Desanti
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.156


I'Love...!¡.


Ver Perfil WWW
Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
« Respuesta #7 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!¡.
En línea

The Dark Shadow is my passion.
Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
« Respuesta #8 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.
En línea

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
extreme69

Desconectado Desconectado

Mensajes: 178


Be BlackHat but don't forget your principles.


Ver Perfil
Re: Leer un archivo .txt y separar las primeras 3 lineas en 3 variables distintas
« Respuesta #9 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?
« Última modificación: 22 Junio 2011, 02:30 am por extreme69 » En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines