String suchen

[delphinia]

Hallo,

im folgenden Text mächte ich gerne bestimte bereiche rausnehmen:

Zitat:

Meinte text Meinte text Meinte text [e-mail] Meinte text Meinte text Meinte text Meinte text http://www.google.de Meinte text Meinte text Meinte text Meinte text Meinte text Meinte text Meinte text Meinte text Meinte text

Und zwar alles was HTML: also der Text müsste danach sein:

Zitat:

Meinte text Meinte text Meinte text [e-mail] Meinte text Meinte text Meinte text Meinte text http://www.google.de Meinte text Meinte text Meinte text Meinte text Meinte text Meinte text Meinte text Meinte text Meinte text

Nur wie?! Schaffe ich das?
hab es schon mit pos und copy versucht aber gescheiter bin ich dann daran da ich ja nciht weiss was zB.: nach dem "<A HREF="mailto:" für ein Text Kommt

[Union]

Schau Dir doch mal diesen Parser an.

[delphinia]

Zitat von Union:

Schau Dir doch mal diesen Parser an.

Danke - aber - das kostet geld. Gibt es keine andere Lösung?

[matashen]

Du kannst dir Prinzipiell selber nen html-Parser bauen, wie gut der Funktioniert liegt an der Arbeit die du hinein steckst.

Eine möglichkeit da html-Tags immer mit < beginnen und > aufhören ist mit Pos das < zu suchen, dann ermitteln wo > sich im Text befindet und dann von < bis > die Zeichen löschen.

Ist vielleicht nicht am elegantersten, aber relativ einfach zu realisieren

Gruß Matthias

[Union]

Zitat:

Danke - aber - das kostet geld

Naja, das ist natürlich ein Argument. Nur für 25 bzw. 75 EUR im Gegensatz zu tagelanger Arbeit, wenn Du das alles selbst machst? Wie lange hast Du denn bisher benötigt - ohne Ergebnis? Rechne das mal gegen Deinen Stundensatz...

[delphinia]

Zitat von Union:

Zitat:

Danke - aber - das kostet geld

Naja, das ist natürlich ein Argument. Nur für 25 bzw. 75 EUR im Gegensatz zu tagelanger Arbeit, wenn Du das alles selbst machst? Wie lange hast Du denn bisher benötigt - ohne Ergebnis? Rechne das mal gegen Deinen Stundensatz...

Ohne wenn und ohne aber - DU hast Recht. Aber dennoch benötigt man das nötige Kleingeld dazu wenn dies nicht vorhanden ist oder aber für wichtiger Dinge da sein muss wie das der Kühlschrank voll ist - dann sind schon 25 EUR (50 DM) nen halber Einkaufswagen!

Und da ich nur für mich zum Spass und vorallem zum lernen Programmiere ist das somit hinfällig!

[bitsetter]

Hallo,

ich glaube so geht es:

Delphi-Quellcode:

Function DeleteHtml(Text: string): string;
var
   pos1, pos2: integer;
begin
  pos1 := pos('<', Text);
  pos2 := pos('>', Text);
  while pos2 <> 0 do
  begin
    delete(Text, pos1 , pos2- pos1+ 1);
    pos1 := pos('<', Text);
    pos2 := pos('>', Text);
  end;
  Result := text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Beispiel: Text der bearbeitet werden soll ist in Memo1
  Memo1.Lines.Text:= DeleteHtml(Memo1.Lines.Text);
end;

EDIT: habe jetzt daraus die Funktion DeleteHtml gemacht

[Blackheart]

Eine Möglichkeit html Tags zu Entfernen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);  
var  
sl:TStringList;  
begin  
 s := WebBrowser1.OleObject.Document.DocumentElement.InnerText;  
 try  
  sl := TStringList.Create;  
  sl.Text:=s;  
  sl.SaveToFile('C:\test.txt');  
  finally  
  sl.Free;  
 end;  
end;

Vieleicht hilft Dir Das.

[delphinia]

[quote="bitsetter"]Hallo,

ich glaube so geht es:
[quote]

Ja so hatte ich es auch schon - nur bsisel aufweniger - wie dem auch sei der HTML Code ist weg stimmt! aber leider alles doppel!

Also das was im HTML Tag stand und auch zwischen "> (.*) </A>

[bitsetter]

Wie alles doppelt, habe ich da etwa was falsch verstanden?