AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Schleifen und Suchroutinen

Ein Thema von k-- · begonnen am 24. Jul 2007 · letzter Beitrag vom 24. Jul 2007
 
k--

Registriert seit: 24. Feb 2007
Ort: Berlin
9 Beiträge
 
Delphi 7 Professional
 
#1

Schleifen und Suchroutinen

  Alt 24. Jul 2007, 14:46
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
  Mit Zitat antworten Zitat
 


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 18: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