Fórum Excluir alguns dados de um arquivo de texto #330803

aqui segue uma idéia.. Tô meio sem tempo

1)Carregue este texto em Um StringList...
2)Pesquise o Texto no StringList.... Procure aqui no Forum Sobre o PosEx
atraves dele voce vai fazer facilente a varredura no seu StringList

por exemplo:
mais ou menos isto

coloque o texto a ser elininado no edit1 e carregue o seu stringList com o texto Do arquivo

var
i:integer;
coluna:Integer;
linha:integer;
textoSubstitudo:String;
begin
Linha:=lista.Count;
for i:=0 To Linha-1 do
begin
textoSubstitudo:=lista.Strings[i];
Coluna:=PosEx(edit1.text,textoSubstitudo,1);
While Coluna > 0 DO
begin
delete(textoSubstitudo,coluna,length(edit1.Text));
Lista.Strings[i]:=textoSubstitudo;
Coluna:=PosEx(edit1.text,textoSubstitudo,Coluna);
end;
end;

3)Finalmente carregeu o texto do seu Lista:TstringList para o arquivo , sobrepondo-o

4)alem de remover todo o espaço em branco.. Basta no edit dar um espaço e rodar a função acima.. Junta todo o texto.

enfim voce tem condiçoes de adapta-la mais adequadamente para a sua necessidade.

Qualquer coisa grite