Buscar

Troca string em um TXT

Código

function AlteraTexto(Caminho, ArqSub: string): string;
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;

   

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Arquivos
Adicionada dia: 16/06/09
Por: Denilson De Andrade
Visualizada: 3195 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009