Leer primera linea de un archivo

[vivachapas]

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

[Sin Nick xD]

un .txt?

[krackwar]

lo de leer la primera linea se puede hacer con un split
s4lu2!

[seba123neo]

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 [Seleccionar] Expandir

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.

[vivachapas]

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

muchas gracias a estos post!

SALUDOS