Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: vivachapas en 27 Abril 2008, 03:17 am



Título: Leer primera linea de un archivo
Publicado por: vivachapas 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


Título: Re: Leer primera linea de un archivo
Publicado por: Sin Nick xD en 27 Abril 2008, 03:23 am
un .txt?


Título: Re: Leer primera linea de un archivo
Publicado por: krackwar en 27 Abril 2008, 03:41 am
lo de leer la primera linea se puede hacer con un split
s4lu2!


Título: Re: Leer primera linea de un archivo
Publicado por: seba123neo 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.





Título: Re: Leer primera linea de un archivo
Publicado por: vivachapas 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