Moin Kristian,
hier noch ein Ansatz, der deinen
HTML-Parser verwendet:
Delphi-Quellcode:
procedure ExtractUsers(
const markup:
string; users: TStrings);
var
doc, anchors, anchor: OleVariant;
i, n: Integer;
dir,
url, user:
string;
begin
doc :=
{Mshtml.}CreateDocument(markup);
anchors := doc.all.tags('
a');
n := anchors.length;
for i := 0
to Pred(n)
do
begin
anchor := anchors.item(i, null);
url := SlashToBackSlash(anchor.href);
user :=
{SysUtils.}ExtractFileName(
url);
dir := ExtractFileName(ExtractFileDir(
url));
if SameText(dir, '
Benutzer')
then
users.Add(user);
end;
end;
Die Funktion ExtractUsers() arbeitet mit später Bindung, die Funktionen
CreateDocument() und
SlashToBackslash() findest du im Forum.
Freundliche Grüße