ARQUIVO

LUTEDIV 19/08/2009 10:49:08
#320231
Bom dia pessoal , como faço para deletar a ultima linha de um arquivo .txt.
TECLA 19/08/2009 11:41:01
#320239 Resposta escolhida
Pelo que sei, só CRIANDO um novo arquivo sem a ÚLTIMA LINHA, EXCLUINDO o arquivo antigo e RENOMEANDO o nome do NOVO.

Dim Separar() As String, i As Integer
Open [Ô]C:\Temp\Texto.txt[Ô] For Input As #1
Separar() = Split(Input(LOF(1), 1), vbCrLf)
Close #1
If UBound(Separar) > 0 Then
    For i = 0 To UBound(Separar) - 2
[txt-color=#0B615E]        [ô] Substitua o MSGBOX abaixo pela rotina de GRAVAÇÃO NO ARQUIVO[/txt-color]
        MsgBox Separar(i)
       [txt-color=#0B615E] [ô]Para excluir... Kill [Ô]C:\Temp\Texto.txt[Ô]
       [ô]Para renomear... Name [Ô]C:\Temp\Texto_Novo.txt[Ô] As [Ô]C:\Temp\Texto.txt[Ô][/txt-color]
    Next
End If
Tópico encerrado , respostas não são mais permitidas
Voltar