Borrar ultima linea de un archivo txt
Buen día Experto
Tengo un archivo txt, al final este archivo tiene 2 lineas en blanco y no se como hacerle para borrar una de ellas
F96226961091106870390707 01012013 000013019
F48226961095707640094307 01012013 000013144
<-----linea en blanco
<----- linea en blanco
He intentado con este código pero no me funciona
Dim tbtexto As String Dim VarTexto As String Open App.Path + "\movi.txt" For Input As #1 Do Until EOF(1) Line Input #1, VarTexto If VarTexto = "" Or VarTexto = Empty Then Else tbtexto = tbtexto & VarTexto & vbCrLf End If Loop Close #1 Open App.Path + "\movi2.txt" For Output As #2 Print #2, tbtexto Close #2
estoy utilizando VB6.0
Agradezco de antemano tus comentarios
Saludos
1 Respuesta
Respuesta de hakuario
1
Reciclando tu código anterior, intenta esto.
Dim tbtexto As String Dim VarTexto As String 'Para leer Open App.Path + "\movi.txt" For Input As #1 'Para Escribir Open App.Path + "\movi2.txt" For Output As #2 Do Until EOF(1) Line Input #1, VarTexto if len(trim(VarTexto)) > 0 then Print #2, VarTexto Loop Close #1 Close #2
A la espera de tus comentarios.
También podrías intentar esto:
Dim tbtexto As String Dim VarTexto As String tbtexto = "" 'Para leer Open App.Path + "\movi.txt" For Input As #1 Do Until EOF(1) Line Input #1, VarTexto if len(trim(VarTexto)) > 0 then tbtexto = tbtexto & VarTexto & vbCrLf Loop Close #1 'Para Escribir Open App.Path + "\movi2.txt" For Output As #2 Print #2, VarTexto Close #2
Muchas gracias, me ha funcionado el primer código, el segundo no me copia nada, pero con el primer código soluciona mi problema.
Saludos
