ARQUIVO TEXTO

MARCELO.TREZE 04/01/2013 15:40:02
#416757
Então vamos lá você gera um arquivo texto e envia para este sistema que não é seu, e este sistema le estes dados e os apaga em seguida.
porém se você não pode enviar um arquivo que ja tenha ido anteriormente, ou um linha no arquivo texto.

é isso?

LEAO10 10/01/2013 14:30:07
#417118
Citação:

eu preciso saber como eu posso fazer uma consulta rapida dentro do txt para saber isso e caso ele esteja eu tenho que apagar a linha inteira.



Bom, para fazer a pesquisa, use o código abaixo

[txt-color=#007100] Sub LoadRegdoFile()

On Error GoTo 20
Dim Dado As String

Open App.Path & [Ô]\Arquivo.txt[Ô] For Input As #1
Do While Not EOF(1) [ô] Procura o fim do arquivo.

Line Input #1, Dado [ô] Lê a linha de dados.

Loop

Close #1


Exit Sub
20

MsgBox [Ô]Erro [Ô] & Err.Number & Err.Description

End Sub [/txt-color]


Mas para você apagar a linha do arquivo texto, realmente não tem como, já trabalhei com arquivos texto e não é possível...

é possível você gravar novamente o arquivo, sem esta linha que você quer apagar.
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas