Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia,
Olá pessoal, gostaria de saber como posso excluir a primeira e ultima linha de um arquivo TXT.
Obs: Consigo abrir e ler o arquivo TXT.
Muito obrigado!
outro exemplo:
If oFS.FileExists("C:\Arquivos\Texto001.txt") = True Then
Set oTS = oFS.OpenTextFile(Arquivo, ForReading)
Set oTSB = oFS.OpenTextFile(sTemp, ForWriting, True)
While Not oTS.AtEndOfStream = True
sLinha = Empty
sLinha = oTS.ReadLine
If InStr(1, sLinha, Texto, vbTextCompare) = 0 Then
oTSB.WriteLine sLinha
End If
Wend
lembrando que tem vários exemplos de como manipular texto aqui no fórum.
Muito Obrigado pessoal, consegui resolver!
de um split com o separador VbCrLf exemplo:
dtxt = dados do arquivo TXT
vet = split(txt,VbCrLf)
for i = 1 to Ubound(vet)-1
if novotxt = "" then
novotxt = vet(i)
else
novotxt = novotxt & vbcrlf & vet(i)
end if
next
salve em arquivo a variável novotxt