Auf der Suche nach Favoriten

Auf der Suche nach Favoriten

Auf der Suche nach Favoriten : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Verwendet TSearchRec eine Schleife über die Explorer-Favoriten, die wirklich Inifiles sind. Ergebnis wird im HTML- und Text-Dateien abgelegt.
Hinweis: Dieser Artikel ist ein paar Jahre alt. Und während der Code noch arbeiten fein als Beispiel für die Verwendung von Inifiles und rekursive sucht - Internet Explorer Exportmöglichkeiten in das Programm integriert hatte.
**
Explorer-Favoriten sammeln
Johan Lindgren
Vor kurzem wurde eine Person am Arbeitsplatz für eine andere Firma verlassen. Gerade ein Journalist, war sie sehr daran interessiert, bringt die lange Liste der Lieblings-Internet-Links, die sie während ihrer Zeit bei uns gesammelt hatte. Dies ist wirklich ein Fernstraßen journalistischen Werkzeug in diesen Tagen. Nun, wenn sie an ein Unternehmen würden könnte auch ausgestattet mit Windows und Explorer Sie einfach den Ordner mit den Favoriten kopieren. Aber da sie zu einem MAC-basierten Unternehmen, die mit Netscape ging, war es eine andere Situation. Im Explorer, dies zu tun, könnte eine Möglichkeit sein. Und es können Programme gibt dies zu tun. Aber ich fand nichts, so habe ich ein Programm dafür. Was das Programm macht ist einfach rekursiv Suche den Ordner mit den Explorer-Favoriten und das alle zu einer Textdatei und eine HTML-Datei hinzufügen. Der große Vorteil mit das Ergebnis in das HTML-Format zu speichern ist, die Links aktiv und damit die Datei in einem beliebigen Browser nützlich vornehmen zu können.
Zunächst einmal gibt es eine Ini-Datei mit Einstellungen für die Searchpath Favoriten Searchpath und Namen der Dateien, wo das Ergebnis gespeichert werden soll. Die Datei heißt 'favoriter.ini' und befindet sich in demselben Ordner wie die Exe-Datei. (Einige Wörter, die Sie antreffen sind auf Schwedisch!)
Die INI-Datei:
[Favoriten]
WindowsFavoriter = C:\windows\favoriter\
HTMLsave=c:\favoriter.html
TEXTsave=c:\favoriter.txt
Es ist wichtig, um den Suchpfad für das Programm zur Arbeit richtig zu machen.
Das Programm besteht aus einer Richedit Text-Ergebnis, eine Schaltfläche zum Starten, eine Schaltfläche zum Schließen und eine Statusleiste zu halten. (Die nicht überhaupt notwendig ist.)

Die Bedienung ist ziemlich geradlinig. Der Code, der diese Schaltfläche wird ausgeführt, wenn Sie auf die Schaltfläche 'Start' klicken. Die Suche beginnt und wenn ein Unterordner ist stieß eine Separate Prozedur wird aufgerufen. Dieses Verfahren wird für jeden Unterordner gefunden erinnert. Also wird das Programm heraus jeden Unterordner suchen.
Dies ist Suche-Block aus dem Click-Ereignis. Die Routine in das Verfahren ist sehr ähnlich. (Siehe das komplette Programm-Listing).
Test: FindFirst = (Sokmapp +'*. *', FaAnyFile, SearchRec); Sehen Sie, ob wir unsere erste Suche kein Ergebnis erhalten
Wenn testen = 0, dann //if wir ein Ergebnis haben. Gekennzeichnet durch eine 0 in die FindFirst-Funktion!!
beim Test = 0 fangen //As, solange wir 0 aus unseren Recherchen zu gibt es weitere Dateien oder Ordner erhalten verarbeiten
RS Searchrec. Attr von //Check zu sehen, was die Searchresult Attribut hatte
16: //If es war ein 16 es ist einen Unterordner zu beginnen
Wenn (searchrec.name <> '.') und (searchrec.name <> '..') dann //Check zu sehen, dass es kein. oder a... Welches sind die Symbole für die Ordner oben und die gleichen
SokIEnMapp (sender,sokmapp+'\'+searchrec.name,searchrec.name); Wenn sie einen anderen Ordner war, rufen Sie eine Unterroutine, um diesen Ordner zu untersuchen
Ende;
32: begin //If war es eine Datei ist 32
Wenn ansilowercase(extractfileext(searchrec.name)) = 'URL' dann beginnen //if der Dateiname mit .url endet ist eine Explorer-Favoriten
Inifil: = tinifile.create (sokmapp+searchrec.name); Erstellen Sie eine INI-Datei-Objekt für diese Datei
versuchen Sie
Temptext: =inifil.readstring ('InternetShortcut', 'URL',''); Den eigentlichen Link aus der Datei gelesen
richedit1. Lines.Add (stringreplace(searchrec.name,extractfileext(searchrec.name), cm) + '=' + Temptext); //Show den Dateinamen und den Link in das Richedit
statusBar1. SimpleText: = searchrec.name; Der Dateiname in der Statusleiste anzeigen
statusBar1. Update; Update der Statusleiste
Application.ProcessMessages; Und Windows eine Chance aufzuholen
Grunder. Hinzufügen ('< li >< a Href =''+ Temptext +'' >'+ stringreplace(searchrec.name,extractfileext(searchrec.name), cm) + im/von ' < a >< / li >'); Unsere temporäre Stringlist Favorit hinzufügen
Schließlich
Inifil. Frei; Das ini-Datei-Objekt frei
Ende;
Ende;
Ende;
Ende;
Test: = findnext(searchrec); Rufen Sie Findnext um festzustellen, ob weitere Dateien oder Ordner
Ende;
FindClose(searchrec); Lassen Sie das Search-Objekt

Die resultierende HTML-Datei enthält den Namen der Verbindung und der eigentliche Link in einem < A Href = Tag, wodurch die Datei nützlich.

...
Johan Lindgren ist einem ehemaligen Journalisten, arbeitet jetzt mit der technischen Entwicklung für die schwedische Nachrichtenagentur (Tidningarnas Telegrambyrå). Es geht um Arbeit mit SGML, XML und XSL. Er verwendet Delphi, um die verschiedenen Teile der Software zu produzieren, die benötigt wird.