Fórum Arquivo de Texto #346345
21/09/2007
0
Bom Dia ,
tenho um arquivo de texto o qual tem vários códigos ( um em cada linha ) EX :
0000000001
0000000002
0000000003
0000000004
e preciso fazer uma varredura neste arquivo selecionando um código e ao fim dessa linha onde esta o codigo adicionar outra string ja ´ré definica em um edit
Ex :
0000000001 string
0000000002 outra string
0000000003 string
0000000004 string
tenho um arquivo de texto o qual tem vários códigos ( um em cada linha ) EX :
0000000001
0000000002
0000000003
0000000004
e preciso fazer uma varredura neste arquivo selecionando um código e ao fim dessa linha onde esta o codigo adicionar outra string ja ´ré definica em um edit
Ex :
0000000001 string
0000000002 outra string
0000000003 string
0000000004 string
Orc
Curtir tópico
+ 0
Responder
Posts
21/09/2007
Marcosrocha
var
I: Integer;
Arquivo: TStringList;
begin
Arquivo := TStringList.Create;
Arquivo.LoadFromFile(´C:\Temp\Codigos.txt´);
for I := 0 to Arquivo.Count - 1 do
Arquivo[I] := Arquivo[I] + ´ Meu Texto no Fim da Linha´;
Arquivo.SaveToFile(´C:\Temp\Codigos.txt´);
Arquivo.Free;
end;
I: Integer;
Arquivo: TStringList;
begin
Arquivo := TStringList.Create;
Arquivo.LoadFromFile(´C:\Temp\Codigos.txt´);
for I := 0 to Arquivo.Count - 1 do
Arquivo[I] := Arquivo[I] + ´ Meu Texto no Fim da Linha´;
Arquivo.SaveToFile(´C:\Temp\Codigos.txt´);
Arquivo.Free;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)