Gravar arquivo txt sem duplicidade
Pessoal, estou tentando gravar uma linha em um arquivo txt existente, o problema é que eu preciso verificar se existe uma linha igual e se não existir gravar no arquivo, se essa linha já existir ele não grava, segue o código que estou usando:
'O parâmetro forReading é utilizado somente para leitura.
Const forReading = 1, forWriting = 2, forAppending = 8
'Instancia o objeto FSO.
Set Fso = CreateObject("Scripting.FileSystemObject")
'Retorna o arquivo que será usado.
Set ObjFile = Fso.GetFile(caminho)
'Abre o arquivo novamente, agora para a leitura !
Set ObjStream = ObjFile.OpenAsTextStream(forReading,false)
'Looping para varrer todas as linhas do arquivo.
While Not ObjStream.AtEndOfStream
'O método Readline lê uma linha de um arquivo.
Texto = Texto & ObjStream.Readline & "<br>"
Wend
'Mostra o conteúdo.
response.write Texto
'Abre o arquivo com o método OpenTextFile.
Set ArqTxt = Fso.OpenTextFile(caminho,8,True)
'Arquivo aberto, escreve no arquivo
If Texto = linha Then
response.write "linha é igual"
Else
ArqTxt.WriteLine conteudo
response.write "linha gravada!"
End If
'Fecha o arquivo com o método Close.
ArqTxt.Close
'Destrói o objeto.
Set ArqTxt = nothing
'Destruíndo objetos
Set Fso = nothing
Set objStream = nothing
Discussão (2)
Carregando comentários...