ARQUIVO TEXTO

 Tópico anterior Próximo tópico Novo tópico

ARQUIVO TEXTO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#416757 - 04/01/2013 15:40:02

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


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?



________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



#417118 - 10/01/2013 14:30:07

LEAO10
BRASILIA
Cadast. em:Agosto/2009


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

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



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.

Todos respiramos o mesmo ar, portanto devemos ter todos a mesma chance (Ayrton Senna)

#417132 - 10/01/2013 16:55:58



Cadast. em:


Sugestão:

Coloque um campo do tipo "boolean" no seu bd, e deixe-o como false.

À medida que vc for gerando o seu arquivo, marque este campo como true.

Desta forma, a princípio, vc não conseguirá gerar os registros em duplicidade.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por GUIGOR em 05/02/2013 15:42:35