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
un .txt?
lo de leer la primera linea se puede hacer con un split
s4lu2!
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:
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.
muchas gracias!
el problema de leerla logre solucionarlo... el problema despues era borrarla...
muchas gracias a estos post!
SALUDOS