AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Kleine Unit zum Extrahieren von Links aus einer Textdatei

Kleine Unit zum Extrahieren von Links aus einer Textdatei

Ein Thema von Luckie · begonnen am 22. Feb 2011
Antwort Antwort
Benutzerbild von Luckie
Luckie
Registriert seit: 29. Mai 2002
Im Anhang eine kleine Unit zum Extrahieren von Links aus einer Textdatei:
Delphi-Quellcode:
type
  TLinkObj = class(TObject)
  public
    RawLink: AnsiString;
    HREF: AnsiString;
    Caption: AnsiString;
  end;


type
  TOnRawLinkFound = procedure(Sender: TObject; Link: AnsiString) of object;
  TOnCaptionFound = procedure(Sender: TObject; Caption: AnsiString) of object;
  TOnHREFFound = procedure(Sender: TObject; HREF: AnsiString) of object;
  TExtractLinksFromTextFile = class(TObject)
  private
    FFilename: AnsiString;
    FLinkList: TObjectList;
    FOnRawLinkFound: TOnRawLinkFound;
    FOnCaptionFound: TOnCaptionFound;
    FOnHREFFound: TOnHREFFound;
    procedure GetRawLinks;
    procedure GetHREF;
    procedure GetCaption;
  public
    property Filename: AnsiString read FFilename write FFilename;
    property LinkList: TObjectList read FLinkList;
    property OnRawLinkFound: TOnRawLinkFound read FOnRawLinkFound write FOnRawLinkFound;
    property OnCaptionFound: TOnCaptionFound read FOnCaptionFound write FOnCaptionFound;
    property OnHREFFound: TOnHREFFound read FOnHREFFound write FOnHREFFound;
    constructor Create;
    destructor Destroy; override;
    procedure ExtractLinks;
  end;
Beispielcode:
Delphi-Quellcode:
procedure TForm14.Button1Click(Sender: TObject);
var
  Links: TExtractLinksFromTextFile;
  Link: TLinkObj;
  i: Integer;
begin
  Memo1.Clear;
  Links := TExtractLinksFromTextFile.Create;
  try
    Links.OnRawLinkFound := OnRawLink;
    Links.Filename := 'D:\Homepage\Admin\Bookmarks.shtml';
    Links.ExtractLinks;
    for i := 0 to Links.LinkList.Count - 1 do
    begin
      Link := TLinkObj(Links.LinkList.Items[i]);
      Memo1.Lines.Add(Link.Caption+': '+ Link.HREF);
    end;
  finally
    Links.Free;
  end;
end;

procedure TForm14.OnRawLink(Sender: TObject; RawLink: AnsiString);
begin
  ShowMessage(RawLink);
end;
Angehängte Dateien
Dateityp: pas MpuExtractLinksFromTextFileCls.pas (3,8 KB, 34x aufgerufen)
Ein Teil meines Codes würde euch verunsichern.
 
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz