Fórum Excluir tags de um arquivo html #156754

Colega,

Acho que você está no caminho.
Pos(´<´,Linha) para pegar a posição inicial;
Pos(´>´,Linha) para pegar a posição final;
QtdeCaracteres := Diferença entre as posições.
Delete(NomeString,PosicaoInicial,QtdeCaracteres)

Ve se consegue avançar um pouco mais. Na dúvida, entre em contato.

Olha só... fiz a seguinte função com o que me disseste:

procedure ApagaTags(Arquivo: String);
var
Texto: TStringList;
Linha,LinhaFinal,QuantidadeDeCaracteres,PosicaoInicial,PosicaoFinal:Integer;
s:String;
c1,c2:char;
begin
Texto:= TStringList.Create;
try
Texto.LoadFromFile(Arquivo);
Linha:=Texto.IndexOf(´<´);
LinhaFinal:=Texto.IndexOf(´>´);
ShowMessage(IntToStr(Linha));
PosicaoInicial:=Pos(´<´,Texto[Linha]);
PosicaoFinal:=Pos(´>´,Texto[LinhaFinal]);
QuantidadeDeCaracteres:= PosicaoFinal - PosicaoInicial+1 ;
s:=Texto[Linha];
Delete(s,PosicaoInicial,QuantidadeDeCaracteres);
Texto[Linha]:=s;
Texto.SaveToFile(Arquivo);
finally
FreeAndNil(Texto);
end;
end;

só que está acontecendo um probleminha... Pra variar o locate não está funcionando... Ele retorna sempre -1, não importando onde esteja o ´<´...
O locate serve para descobrir o numero da linha onde está alguma string, não? Ok... soh que ela não acha... Deve ser pq o ´<´ é só um caractere da string, então ele não encontra... Só que não consigo resolver...

O que pode estar acontecendo?

E ahhh... antes que me esqueça...

Valeu Mesmo pela ajuda!!!

Tiago Farinon