Überschrift aus Textdatei finden.

[Chris1896]

Hallo Leute,

habe folgende Aufgabe bekommen und weiß nicht wie ich Anfangen soll (Bin noch frischling im Programmieren mit Delphi)

- Quelltext von FAZ.net als text datei speichern. Okay das bekomme ich auch noch hin
- Dieser Inhalt soll nun auf seine Titelzeilen untersucht werden. Die Titelzeilen sind per Knopfdruck in einem Memofeld auszugeben. Dazu lesen Sie die Datei Zeile für Zeile und werten diese dann aus.
- Zum Finden einer Überschrift suchen Sie den Unterstring ' “H1“>'. Daraufhin suchen Sie das folgende 'größer'-Zeichen. Hier fängt der Titel an. Er endet vor dem folgenden 'kleiner'-Zeichen. Ggf. enthält eine Zeile mehrere Titel. Wenn Sie die Zeile durchgearbeitet haben,lesen Sie die nächste und so fort, bis zum Ende der Datei. Die Anzahl der Überschriften ist in einem Label auszugeben.

Ich hoffe ihr könnt mir helfen.

Gruß Chris

[DeddyH]

Such einmal hier im Forum nach PosEx.

[Deep-Sea]

Kommt mir irgendwie bekannt vor >>> Mit readln nur bestimmte Textstelle auslesen
Und wie dort gilt auch hier: Ein HTML-Parser (bzw. bei XHTML geht auch ein XML-Parser) ist die bessere Wahl.

[p80286]

Irgendwie habne ich das unbestimmte Gefühl, daß die Suche nach H1 nicht so richtig zielführend ist:

Zitat:

<div class="H2"><a href="/s/Rub0E9EEF84AC1E4A389A8DC6C23161FE44/Doc~EA0D974B76CAA416CA0AE2CBC81D14397~ATpl~Ecommon ~Scontent.html">Hunderte Schweine werden geschlachtet</a></div>
<div class="H1"><a href="/s/Rub0E9EEF84AC1E4A389A8DC6C23161FE44/Doc~EA0D974B76CAA416CA0AE2CBC81D14397~ATpl~Ecommon ~Scontent.html">Erstmals erhöhter Dioxinwert in Schweinefleisch</a></div>
<p><span style="cursor:pointer;" onclick="location='/s/Rub0E9EEF84AC1E4A389A8DC6C23161FE44/Doc~EA0D974B76CAA416CA0AE2CBC81D14397~ATpl~Ecommon ~Scontent.html';">Der Dioxin-Skandal weitet sich aus: In Niedersachsen müssen nun mehrere hundert Schweine getötet werden, weil überhöhte Dioxinwerte erstmals auch in Schweinefleisch nachgewiesen werden konnten. Am Nachmittag tagt im Bundestag der Verbraucherausschuss zum Thema <nobr>Dioxin.<a rel="nofollow" href="/s/Rub0E9EEF84AC1E4A389A8DC6C23161FE44/Doc~EA0D974B76CAA416CA0AE2CBC81D14397~ATpl~Ecommon ~Scontent.html"><img src="/f30/Images/LinkIcons/linkwinkel.gif" class="LinkWinkel" alt="" /></a></nobr></span></p><div class="LinkAbstand">&nbsp;</div>
<a href="/s/Rub0E9EEF84AC1E4A389A8DC6C23161FE44/Doc~EB567D664DE2843D09A6D26C22C8D5C08~ATpl~Ecommon ~Scontent.html" class="ArrowLinkRight">Dioxin-Skandal: Aigner will härtere Regeln für Futtermittelindustrie</a><div class="clear"></div>
</div>
</div>

da kommt man mit einem Parser doch etwas einfacher ans Ziel.

Gruß
K-H

[Chris1896]

Danke schonmal für die Hilfe, komme aber irgendwie trotzdem nicht weiter habe folgenden Quellcode hier im Forum gefunden und wenn ich das Testen will kommen Fehler

Code:

s := 'Hallo; Guten Tag; Guten Morgen; Guten Abend;';
Pos1 := Pos(';', s);
if Pos1 <> 0 then // erstes Semikolon gefunden
begin
  // Position des zweiten Semikolons ermitteln;
  // dazu fangen wir gleich nach dem ersten Semikolon an zu suchen:
  Pos2 := PosEx(';', s, Pos1 + 1);
  if Pos2 <> 0 then
    ShowMessage('gefunden an Position: '  + IntToStr(Pos2))
  else
    ShowMessage('nur ein Semikolon im String vorhanden');
  end
  else
  begin
    ShowMessage('kein Semikolon im String vorhanden');
  end;

[DeddyH]

Es wäre zuckersüß von Dir, wenn Du
-statt Code-Tags Delphi-Tags verwenden würdest
-uns sagst, welche Fehler auftreten

[p80286]

Wollen wir wetten, daß
uses StrUtils; fehlt?

Gruß
K-H

[Chris1896]

unit1.pas(77,1) Error: Illegal expression

und in dieser zeile steht initialization

[p80286]

Jetzt wäre es hilfreich die ganze Unit zu sehen, oder zumindestens die letzten 10..20 Zeilen, den initialization als soches ist fehlerfrei. Die Ursache der Fehlermeldung müßte also davor liegen.

Gruß
K-H

[Chris1896]

Button1Klick war nur ne probe die funktioniert hat...
Benutze Lazarus aber ist doch eigentlich wie delphi oder kommt das dadurch?
Danke dir für deine Hilfe

Delphi-Quellcode:

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, StrUtils;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
    S: string;
   begin
   if OpenDialog1.Execute then { Dialog zum Dateiöffnen anzeigen }
begin
   AssignFile(F, OpenDialog1.FileName); { Datei ausgewählt }
   Reset(F);
   Readln(F, S); { Erste Zeile der Datei lesen }
   Edit1.Text := S; { String in ein TEdit schreiben }
   CloseFile(F);
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Pos1, Pos2, Pos3: byte;
 s : string; f : textfile;
 begin
s := 'Hallo; Guten Tag; Guten Morgen; Guten Abend;';
Pos1 := Pos(';', s);
if Pos1 <> 0 then // erstes Semikolon gefunden
begin
  // Position des zweiten Semikolons ermitteln;
  // dazu fangen wir gleich nach dem ersten Semikolon an zu suchen:
  Pos2 := PosEx(';', s, Pos1 + 1);
  if Pos2 <> 0 then
    edit1.Text:='gefunden an Position: ' + IntToStr(Pos2)
  else
    ShowMessage('nur ein Semikolon im String vorhanden');
  end
  else
  begin
    ShowMessage('kein Semikolon im String vorhanden');
  end;





initialization
  {$I unit1.lrs}

end.