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

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Leer primera linea de un archivo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Leer primera linea de un archivo  (Leído 5,196 veces)
vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Leer primera linea de un archivo
« en: 27 Abril 2008, 03:17 am »

Buena, disculpen por esta pregunta tan sencilla, es q estoy teniendo problemas (y me siento muy ***** por ello) con leer la primer linea de un archivo.
Lo que debo hacer es eso, leer solo la primera, y una vez leida borrarla, pero dejando las otras (osea q la segunda pase a primera)
se q es con lineput pero no se xq no lo logro hacer.


desde ya muchas gracias

SALUDOS


En línea

Sin Nick xD


Desconectado Desconectado

Mensajes: 443


Ö


Ver Perfil
Re: Leer primera linea de un archivo
« Respuesta #1 en: 27 Abril 2008, 03:23 am »

un .txt?


En línea

Yo solo creería en un Dios que supiese bailar.
krackwar


Desconectado Desconectado

Mensajes: 900


Ver Perfil
Re: Leer primera linea de un archivo
« Respuesta #2 en: 27 Abril 2008, 03:41 am »

lo de leer la primera linea se puede hacer con un split
s4lu2!
En línea

Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Leer primera linea de un archivo
« Respuesta #3 en: 27 Abril 2008, 04:29 am »

Hola,aca te paso,para leer la primera linea y una funcion para borrar la linea que quieras del txt,pone 2 botones,uno para leer la primera linea y el otro para borrarla:

Código:
Option Explicit

Private Sub Command1_Click()
Dim i As Long
Dim Palabra As String
i = FreeFile
Open "c:\a.txt" For Input As i
Line Input #i, Palabra
MsgBox Palabra
Close #i
End Sub

Private Sub Command2_Click()
BorrarLinea "c:\a.txt", 0
End Sub

Private Sub BorrarLinea(ByVal Archivo As String, ByVal Linea As Long)
Dim Buffer() As String, i As Long
Open Archivo For Input As #1
Buffer() = Split(Input(LOF(1), 1), vbCrLf)
Close #1
Open Archivo For Output As #1
For i = 0 To UBound(Buffer)
If Not i = Linea Then Print #1, Buffer(i)
Next
Close #1
End Sub

saludos.



En línea

vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: Leer primera linea de un archivo
« Respuesta #4 en: 27 Abril 2008, 21:36 pm »

muchas gracias!
el problema de leerla logre solucionarlo... el problema despues era borrarla...

muchas gracias a estos post!

SALUDOS
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

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