Excluir alguns dados de um arquivo de texto
Preciso fazer uma varredura em um arquivo de texto e excluir um bloco de texto do mesmo onde ele se repita, além de remover todos os espaços em branco. se alguém puder me ajudar... Grato.
Emir Neto
Curtidas 0
Respostas
Marco Salles
06/10/2006
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
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
GOSTEI 0