Código
var
VarFixa, vary, sLinha: string;
iPos, iTam: byte;
k: integer;
Stl: TStringList;
begin
// Função pra alterar a variavel fixa no TXT gerado;
Stl := TStringList.Create;
VarFixa := 'JJJJJJJJJJ';
ipos := 0;
iTam := Length(VarFixa);
Stl.LoadFromFile(caminho);
for k := 0 to Stl.Count - 1 do
begin
sLinha := Stl.Strings[k];
while (Pos(VarFixa, sLinha) > 0) and (Pos(VarFixa, sLinha) iPos) do
begin
iPos := Pos(VarFixa, sLinha); // início da string original
if (ArqSub '') then
begin
Stl.Delete(k);
Delete(sLinha, iPos, iTam); // apaga a string original
Insert(ArqSub, sLinha, iPos); // insere a nova string na posição da original
Stl.Insert(k, sLinha);
end
end
end;
stl.SaveToFile(caminho);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009