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 |