Oi Leandro ...
Eu tb já tive um problema parecido com o seu ... eu resolvi lendo o
conteúdo do arquivo e jogando
para uma TStringList ...
Dá uma olhada:
procedure ProcessaArquivo( Arquivo : string );
var
txt : TextFile;
linha : string;
lista : TStringList;
x : integer;
begin
lista := TStringList.Create;
AssignFile(txt, Arquivo); // seta o arquivo
Reset(txt); // abre o arquivo
while not Eoln(txt) do // enquando não chegar ao final do arquivo
faça ...
begin
ReadLn(txt, linha); // lê a linha ...
end;
CloseFile(txt) // fecha o arquivo
// agora todo o conteúdo do arquivo foi jogado pra dentro da "lista"
// agora eu posso manipular as strings (linhas do arquivo) na lista
dessa forma:
lista.Strings[x] := lista.Strings[x] + ' /comando';
// você tb pode percorrer a lista de linhas até localizar a que você
quer dessa maneira:
for x := 0 to lista.Count -1 do
begin
if lista.strings[x] := 'teste' then
begin
lista.strings[x] := 'linha alterada';
end;
// depois é só salvar o conteúdo da lista alterada por cima daquele
arquivo original
lista.savetofile(Arquivo); // salva o conteúdo para o arquivo
novamente ...
lista.free;
end;
end;
É mais ou menos assim ... se quiser mais explicações detalhadas pode
entrar em contato comigo via pvt.
Qualquer dúvida pode perguntar ...
Att.
Hélder
---------------------
Leandro Ferreira escreveu:
>Paulo e Amigos da Lista,
>
> Meu problema é que tenho que ler um arquivo que já existe de uma
>outra aplicação aqui da empresa, só que antes estas configurações eram
>feitas abrindo o bloco de notas e alterando o arquivo. Além disso tem o
>fato que a aplicação desenvolvida para ler este arquivo foi criado em C
>e o arquivo de texto que me refiro é o arquivo de parâmetros utilizado
>por este programa, por isso preciso trabalhar com TextFile ou algo do
>gênero que permita que eu localize uma string no arquivo e escreva a
>direita da string localizada.
>
>É um tanto confuso, mas racional.
>
>Leandro Ferreira
>Desenvolvedor - Tecnologia
>NEXXERA Tecnologia e Serviços S.A.
>
>
>drummondfilho escreveu:
>
>
>
>>Leandro já pensou em utilizar o TInifiles nativo do próprio Delphi?
>>Só uma idéia vai ver você precisa de alguma coisa mais específica mas
>>estou utilizando TInifile para criar meus aquivos de configuração sem
>>maiores problemas e ainda criptografo tudo.
>>Qualquer coisa pode mandar um e-mail
>>
>>Paulo Drummond Filho
>>[EMAIL PROTECTED]
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
