Hallo, werte DPler,
ich habe das Problem, welches die Kommentare im angehangen Quellcode schon andeuten:
Ich benötige eine Routine, die in einem RichEdit, welche den Quellcode einer HTM-Datei geladen hat, nach allen Textstrings absucht, welche zwischen
Code:
<a href="names.php?action=post&name=
und
Code:
&"><img src="images/pn.gif
liegen. Pro Datei werden genau 100 Namen enthalten sein. Die gefundenen Namen sollen dann in einem Array, eine TSringList oder etwas ähnlichem gespeichert werden, so das ich anschließend auf diese zugreifen kann. Allerdings, habe ich noch nie eine Suchroutine erstellt und per Suche bin ich zwar auf Routinen gestoßen, dessen Verlauf ich aber nicht nachvollziehen und damit nicht anpassen konnte. ;(
Delphi-Quellcode:
var a2, ausw, get, s: Integer;
// [...]
// a2 ist die Anzahl der Dateien, welche zuvor heruntergeladen wurden
for ausw := 1
to a2
do
begin
// rGetNames (TRichEdit) lädt nacheinander alle Dateien
// Die Dateien befinden sich im Unterordner /query/ und heißen get*00.htm
rGetNames.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + '
query\get'
+ FloatToStr(s) + '
00.htm');
// Schleife zum Auslesen der Namen
for get := 1
to 100
do
begin
// Hier müsste die Suchschleife stehen, die alle 100 Namen pro .htm
// ausliest und sie in einem Array oder einer TStringlist etc.
// speichert, um sie anschließend in einer Ini (oder Textdokument)
// zu verwahren:
// Gesucht wird der Inhalt, der zwischen
// "<a href="names.php?action=post&name=" und "&"><img src="images/pn.gif"
// zu finden ist (100 Namen pro Datei)
end;
end;
Wo die Namen anschließend gespeichert werden, ist unwichtig, wichtig ist nur, dass ich auch nach einem Neustart der Applikation sie wieder benutzen kann.
MfG