Como manipular Arquivo Texto (*.txt) ???
11/12/2003
0
E como adicionar linhas dentro do arquivo?
Neoramza
Posts
11/12/2003
Deus
AssignFile(varTextFile, varString);
Por exemplo, suponha que a sua variável [i:0a3d4f6258]varString[/i:0a3d4f6258] contenha o valor [i:0a3d4f6258]´C:\Teste.txt´[/i:0a3d4f6258]. Então, ao usar esse comando, você vai associar [i:0a3d4f6258]varTextFile[/i:0a3d4f6258] a [i:0a3d4f6258]´C:\Teste.txt´[/i:0a3d4f6258]. Agora, para usar o arquivo, você deve proceder da seguinte forma:
* Se você quiser apenas ler o arquivo, dê um comand [i:0a3d4f6258]Reset[/i:0a3d4f6258], para que o arquivo volte ao início, e então leia o arquivo usando [i:0a3d4f6258]ReadLn[/i:0a3d4f6258]. Cada vez que você usar esse comando, ele vai ler uma nova linha. Para ler o arquivo todo, você faria assim:
Reset(varTextFile); while not Eof(varTextFile) do begin ReadLn(varTextFile, varOutraString); if (varOutraString = ´teste´) then ShowMessage(´No texto, existe a linha "teste" ´); end;
Note que a variável [i:0a3d4f6258]varOutraString[/i:0a3d4f6258] vai guardar o valor lido na linha. Cada vez que ele lê, apaga o valor anterior. Esse exemplo apenas mostra o uso de [i:0a3d4f6258]Eof[/i:0a3d4f6258] (fim-de-arquivo) e [i:0a3d4f6258]ReadLn[/i:0a3d4f6258].
* Se você quiser escrever no arquivo, dê um comando [i:0a3d4f6258]ReWrite[/i:0a3d4f6258] e, em seguida, insira uma linha por vez com o comando [i:0a3d4f6258]WriteLn[/i:0a3d4f6258], da seguinte forma:
ReWrite(varTextFile); for i := 1 to 10 do WriteLn(varTextFile, ´Essa é a linha número ´ + IntToStr(i));
Esse exemplo irá escrever 10 linhas no texto.
* Finalmente, se você quer escrever no texto, mas não quer resetá-lo, ou seja, quer continuar de onde parou, use [i:0a3d4f6258]Append[/i:0a3d4f6258] para adicionar ao fim do arquivo. Por exemplo:
Append(varTextFile); for i := 1 to 10 do WriteLn(varTextFile, ´Adicionei mais ´ + IntToStr(i) + ´ linhas.´);
Depois que você terminar de usar o arquivo, então dê um
CloseFile(varTextFile);
E tá tudo novo. :) Espero que tenha ajudado!! Abraços, dEUS.
12/12/2003
Neoramza
1. Como fazer para saber se um arquivo já existe?
2. Como fazer para criar um arquivo texto vazio?
Valeu Pessoal...!!! :wink:
12/12/2003
Deus
if FileExistes(varNomeArquivo) then ShowMessage(´O arquivo ´ + varNomeArquivo + ´ já existe!´);
2) A função [i:36ea6e8112]ReWrite[/i:36ea6e8112] serve tanto para arquivos que já existiam serem reescritos quanto para arquivos novos serem criados. :)
Espero que tenha tirado todas as suas dúvidas! Abraços, dEUS.
Clique aqui para fazer login e interagir na Comunidade :)