Delphi ile HTML etiketlerini ayıklamak

Bir kaynak koddan HTML etiketlerini ayıklamak için bu fonksiyon kullanılabilir.

Bir kaynak koddan HTML etiketlerini ayıklamak için bu fonksiyon kullanılabilir.

function StripHTMLTags(inStr: String): String;
var
i: Integer;
inTag: Boolean;
outStr: String;
begin
i := 1;
inTag := False;
while (i <= Length(inStr)) do
begin

if (Copy(inStr, i, 1) = ‘>’) then
begin
inTag := False;
Inc(i);
end;

if (Copy(inStr, i, 1) = ‘<‘) then
inTag := True;

if (not inTag) then
outStr := outStr + Copy(inStr, i, 1);

Inc(i);
end;
result := outStr;

end;

Yazan: Tankado

Yazar: Özgür Koca

Yazar - Tankado.com

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Bu site, istenmeyenleri azaltmak için Akismet kullanıyor. Yorum verilerinizin nasıl işlendiği hakkında daha fazla bilgi edinin.