Quellcode einer HP Filtern

[RuSsAk]

hi leute 8)
hab mal wieder ein kleines problem :oops:
und zwar könnte mir einer vllt sagen wie ich ein quellcod einer HP filtern tue? ich schaff das einfahc nich:wall:

also ich will diese wörter aus dem quelltext in einem memo haben: Start,bla,blubb,das und sdsad und der rest soll gelöscht werden(natürlich is da noch viel mehr quellcode war aber zuviel hab nur das wichtigste rauskopiert) hätte da einer für mich ein beispiel code? wäre euch sehr dankbar

Code:

                                                                  [url="/"]Start[/url]
                           [url="/com"]<span class="blubb2"></span> bla[/url]
                           [url="/event"]<span class="blubb"></span> blubb[/url]
                           [url="/flog"]<span class="ds"></span> das[/url]
                           [url="/start/feed"]<span class="sdsad"></span> sdsad[/url]

mfg,

[Matze]

In deinem Fall müssen lediglich die HTML-Tags gelöscht werden. Wie das geht, steht beispielsweise hier: HTML Tags entfernen.

[RuSsAk]

Zitat:

Zitat von Matze

In deinem Fall müssen lediglich die HTML-Tags gelöscht werden. Wie das geht, steht beispielsweise hier: HTML Tags entfernen.

hi matze danke für deine antwort erstmal :)


geht das nich ein bisschen kürzer will nich soviel code haben


[edit]achso hab was vergessen ich lade den quellcode in ein memo[/edit]

[Matze]

Die 46 Zeilen aus Beitrag 14 sollten es dir Wert sein. Sonst schreibe dir selbst was.

Du kannst auch HTML2Txt aus dem Thread nutzen:

Delphi-Quellcode:

function Html2Txt(html: string): string;
var
  istag                       : boolean;
  i                           : Integer;
  ch                          : Char;
  temp                        : string;
  slRes                       : TStrings;
begin
  result := '';
      temp := '';
      istag := false;

      for i := 1 to length(html) do
        begin
          ch := html[i];
          if (ch = '<') and (istag = false) then
            begin
              istag := true;
              continue;
            end;
          if (ch = '>') and (istag = true) then
            begin
              istag := false;
              continue;
            end;
          if istag = false then
            temp := temp + ch;
        end;
      slRes := TStringList.Create;
      try
        slRes.Text := temp;
        for i := 0 to slRes.Count - 1 do
          slRes[i] := Trim(slRes[i]);
        while slRes.IndexOf('') <> -1 do
          slRes.delete(slRes.IndexOf(''));
      finally
        Result := slRes.Text;
        slRes.Free;
      end;
end;

Aufruf:

Delphi-Quellcode:

Memo1.Text := Html2Txt(Memo1.Text);

[RuSsAk]

Zitat:

Zitat von Matze

Die 46 Zeilen aus Beitrag 14 sollten es dir Wert sein. Sonst schreibe dir selbst was.

Du kannst auch HTML2Txt aus dem Thread nutzen:

Delphi-Quellcode:

function Html2Txt(html: string): string;
var
  istag                       : boolean;
  i                           : Integer;
  ch                          : Char;
  temp                        : string;
  slRes                       : TStrings;
begin
  result := '';
      temp := '';
      istag := false;

      for i := 1 to length(html) do
        begin
          ch := html[i];
          if (ch = '<') and (istag = false) then
            begin
              istag := true;
              continue;
            end;
          if (ch = '>') and (istag = true) then
            begin
              istag := false;
              continue;
            end;
          if istag = false then
            temp := temp + ch;
        end;
      slRes := TStringList.Create;
      try
        slRes.Text := temp;
        for i := 0 to slRes.Count - 1 do
          slRes[i] := Trim(slRes[i]);
        while slRes.IndexOf('') <> -1 do
          slRes.delete(slRes.IndexOf(''));
      finally
        Result := slRes.Text;
        slRes.Free;
      end;
end;

Aufruf:

Delphi-Quellcode:

Memo1.Text := Html2Txt(Memo1.Text);

ok der is gut :) thx

aber wie benutzt ich ihn also wo soll ich denn html code hin machen damit das prog. ihn "filtert"?

sry für die dummen fragen :oops:

mfg,

[Matze]

Lerne mal die Grundlagen von Funktionen und wie man sie aufruft. Dein HTML-Code wird als Parameter der Funktion übergeben (hier "Memo1.Text"). Zuruckgegeben wird der gefilterte Code.
Funktioniert mein Beispielaufruf nicht?. Der ist auf deine Problemstellung ausgelegt. Also der HTML-Code befindet sich im Memo.

[RuSsAk]

Zitat:

Zitat von Matze

Lerne mal die Grundlagen von Funktionen und wie man sie aufruft. Dein HTML-Code wird als Parameter der Funktion übergeben (hier "Memo1.Text"). Zuruckgegeben wird der gefilterte Code.
Funktioniert mein Beispielaufruf nicht?. Der ist auf deine Problemstellung ausgelegt. Also der HTML-Code befindet sich im Memo.

ok klappt alles super musste erstmal wieder ein bisschen überlegen:-D


sry für die dummheit hatte kaum schlaf

und danke dir :)

mfg,