La recherche de favoris

La recherche de favoris

La recherche de favoris : Plusieurs milliers de conseils pour vous faciliter la vie.

Utilise TSearchRec en boucle via l'Explorateur favoris, qui sont vraiment inifiles. Le resultat est en etant place dans les fichiers HTML et texte.
NOTE: Cet article est un couple de ans. Et meme si le code fonctionne toujours tres bien, comme un exemple de l'utilisation de inifiles et les recherches recursives - Internet Explorer a eu des possibilites d'exportation integree dans le programme.
**
la Collecte d'Explorer Favoris
Johan Lindgren
Recemment, une personne au travail a ete de partir pour une autre societe. Tant que journaliste, elle etait tres interesse a faire la longue liste de favoris internet, les liens qu'elle avait recueillis au cours de son temps avec nous. C'est vraiment un valueble journalistique de l'outil de ces jours. Eh bien, si elle allait a une entreprise aussi equipes avec l'Explorateur Windows et vous pouvez simplement copier le dossier contenant les favoris. Mais comme elle allait a un MAC a base de l'entreprise a l'aide de Netscape c'etait une situation differente. Il pourrait etre une voie a Explorer pour ce faire. Et il pourrait y avoir des programmes de cela. Mais je n'en trouve pas donc j'ai fait un programme pour le faire. Ce que fait le programme est tout simplement de recherche de maniere recursive le dossier avec l'Explorateur favoris et les ajouter a un fichier de texte et HTML-fichier. Le gros avantage avec stocker le resultat dans le format HTML est que vous pouvez faire les liens actifs et donc le fichier utile dans n'importe quel navigateur.
tout d'Abord il y a un fichier ini avec des reglages pour la searchpath pour les favoris et les searchpath et les noms de fichiers ou le resultat doit etre stocke. Le fichier est nomme 'favoriter.ini' et est place dans le meme dossier que le fichier exe. (Certains mots que vous rencontrez sont en suedois!)
Le fichier ini:
[Favoriter]
WindowsFavoriter=c:\windows\favoriter\
HTMLsave=c:\favoriter.html
TEXTsave=c:\favoriter.txt
Il est important d'obtenir le chemin de recherche a droite pour que le programme fonctionne.
Le programme se composent d'un richedit pour tenir le resultat de texte, un bouton pour commencer, un bouton et une barre d'etat. (Ce qui n'est pas du tout necessaire.)

L'operation est assez simple. Lorsque vous cliquez sur le bouton demarrer le code associe a ce bouton est executee. La recherche commence, et si un sous-dossier est rencontre d'une procedure distincte est appele. Cette procedure est rappele pour chaque sous-dossier rencontres. Ainsi, le programme va rechercher tous les sous-dossier.
Ceci est un bloc de recherche de l'evenement click. La routine dans la procedure est tres similaire. (Voir le programme complet du referencement).
& ! & ! & ! & nbsp test := FindFirst(sokmapp '*.*', faAnyFile, SearchRec) //Voir si nous obtenons un resultat de notre premiere recherche
& ! & ! & ! & nbsp si test = 0 alors //si nous avons obtenu un resultat. Indique par un 0 dans le FindFirst fonction!!!
& ! & ! & ! & ! & ! & nbsp pendant que le test = 0 do begin //tant Que nous obtenons 0 a partir de nos Recherches il y a plus de fichiers ou de dossiers a traiter
& ! & ! & ! & ! & ! & ! & ! & nbsp cas searchrec.Attr //Verifier pour voir quel attribut de la searchresult a
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp 16 : begin //Si c'etait un 16 c'est un sous-dossier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si (searchrec.nom de <> '.') et (searchrec.nom de <> '..') alors //Verifier qu'il n'est pas un . ou un .. qui sont des symboles pour le dossier ci-dessus et le meme dossier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp SokIEnMapp (expediteur,sokmapp '\' searchrec.nom,searchrec.nom) //Si c'etait un autre dossier, appeler une sous-routine pour enqueter sur ce dossier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp 32 : begin //Si c'est un 32 c'est un fichier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si ansilowercase(extractfileext(searchrec.nom)) = '.url' then begin //si le nom de fichier se termine par .l'url c'est un explorateur prefere
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp inifil := tinifile.creer (sokmapp searchrec.nom) //Creer un fichier ini l'objet de ce fichier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp temptext :=inifil.readstring ('InternetShortcut','URL',') //Lire le lien du fichier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp richedit1.Les lignes.Ajouter (stringreplace(searchrec.nom,extractfileext(searchrec.nom),') '=' temptext) //Afficher le nom de fichier et le lien dans le richedit
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp statusbar1.SimpleText := searchrec.nom //Affiche le nom de fichier dans la barre d'etat
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp statusbar1.Mise a jour //de mise a Jour de la barre d'etat
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp application.processmessages //Et donner une chance de se rattraper
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp grunder.Add ('

' stringreplace(searchrec.nom,extractfileext(searchrec.nom),') '

') //Ajouter le favori de nos temporaire stringlist
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp enfin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp inifil.Gratuit //Free le fichier ini l'objet
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& nbsp & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & nbsp test := findnext(searchrec) //Appel de findnext pour voir si il y a plusieurs fichiers ou dossiers
& ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & nbsp findclose(searchrec) //Liberation de l'objet de recherche

Le HTML resultant de fichier contient le nom du lien et le lien dans un
...
Johan Lindgren est un ex-journaliste, collabore aujourd'hui avec des techniques de developpement pour l'Agence de presse suedoise (Tidningarnas Telegrambyrå). Il s'agit de travaux avec SGML, XML et XSL. Il utilise Delphi pour produire les differents morceaux de logiciel est necessaire. Il peut etre contacte a [email protected]

code Source:
unite de favvo
interface

& nbsp & nbsp Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
& nbsp & nbsp StdCtrls, ComCtrls,inifiles, ExtCtrls
type
& nbsp & nbsp Tfavu = class(TForm)
& ! & ! & ! & nbsp RichEdit1: TRichEdit
& ! & ! & ! & nbsp Panel1: TPanel
& ! & ! & ! & nbsp startsearch: TButton
& ! & ! & ! & nbsp StatusBar1: TStatusBar
& ! & ! & ! & nbsp Button1: TButton
& ! & ! & ! & nbsp procedure startsearchClick(Sender: TObject)
& ! & ! & ! & nbsp procedure Button1Click(Sender: TObject)
& ! & ! & ! & nbsp procedure FormCreate(Sender: TObject)
& ! & ! & ! & nbsp procedure SokIEnMapp (sender : Tobject sokpath,katalog : string)
& ! & ! & ! & nbsp procedure FormDestroy(Sender: TObject)
& nbsp & nbsp prive
& ! & ! & ! & nbsp { Private declarations }
& nbsp & nbsp public
& ! & ! & ! & nbsp { declarations Publiques }
& ! & ! & ! & nbsp SearchRec: TSearchRec //l'ensemble de L'objet de recherche
& ! & ! & ! & nbsp sokmapp, htmlut, textut : chaîne //Cordes pour la tenue du dossier de recherche et les fichiers pour les resultats de la recherche
& ! & ! & ! & nbsp htmlspar : tstringlist //liste de chaînes de tenir le fichier HTML
& nbsp & nbsp fin
& nbsp & nbsp fonction KollaSlutet (rad,coquine : string) : string
& nbsp & nbsp fonction StringReplace (texte,mais,le mot : string ) :string
var
& nbsp & nbsp favu: Tfavu
application
{$R *.DFM}

//======= Lorsque le programme est lance ========//
procedure Tfavu.FormCreate(Sender: TObject)
var
& nbsp & nbsp inifil : TIniFile //Inifile-objet a lire les preferences de l'utilisateur
& nbsp & nbsp exepath : string //Searchpath pour l'application
begin
& nbsp & nbsp exepath := extractfilepath (application.exename) //Extrait de la searchpath pour l'application
& nbsp & nbsp exepath := kollaslutet(exepath,'\') //Appel d'une fonction qui verifie que la premiere chaîne se termine par la deuxieme chaîne de caracteres
& nbsp & nbsp inifil := tinifile.creer(exepath 'favoriter.ini') //Creer le fichier ini de l'objet avec le exepath combine avec le fichier ini nom.
& nbsp & nbsp essayer
& ! & ! & ! & nbsp sokmapp := inifil.readstring('Favoriter','WindowsFavoriter','c:\windows\favoriter\') //Obtenir le searchpath pour le dossier contenant les explorer favoris
& ! & ! & ! & nbsp sokmapp := kollaslutet(sokmapp,'\') //Appel de la routine 'kollaslutet' pour s'assurer que la chaîne se termine par un \
& ! & ! & ! & nbsp htmlut := inifil.readstring('Favoriter','HTMLsave','c:\favoriter.html') //Obtenir le nom et le chemin du fichier dans lequel le html, le resultat doit etre stocke
& ! & ! & ! & nbsp textut := inifil.readstring('Favoriter','TEXTsave','c:\favoriter.txt') //Obtenir le nom et le chemin du fichier ou le texte qui en resulte est d'etre stockes
& nbsp & nbsp enfin
& ! & ! & ! & nbsp inifil.gratuit //liberer les ressources pour le fichier ini l'objet
& nbsp & nbsp fin
& nbsp & nbsp htmlspar := tstringlist.creer //creation de la stringlist pour contenir le code HTML de resultat
fin
//====== en Cliquant sur le bouton demarrer la collecte de l'favoris ========//
procedure Tfavu.startsearchClick(Sender: TObject)
var
& nbsp & nbsp inifil : TIniFile //Inifile objet pour obtenir le contenu de l'favoris
& nbsp & nbsp temptext : string //chaîne Temporaire pour le stockage
& nbsp & nbsp test : entier //Entier pour verifier les resultats de la recherche
& nbsp & nbsp grunder : TStringList //liste de chaînes de tenir searchresult a partir d'un dossier
begin
& nbsp & nbsp ecran.curseur := crHourglass //Afficher le sablier pour permettre a l'utilisateur de savoir que nous sommes occupes a
& nbsp & nbsp grunder := TStringList.creer //creation de la stringlist
& nbsp & nbsp htmlspar.add ('') //Mettre en place les premiers elements HTML qui stringlist
& nbsp & nbsp essayer
& ! & ! & ! & nbsp test := FindFirst(sokmapp '*.*', faAnyFile, SearchRec) //Voir si nous obtenons un resultat de notre premiere recherche
& ! & ! & ! & nbsp si test = 0 alors //si nous avons obtenu un resultat. Indique par un 0 dans le FindFirst fonction!!!
& ! & ! & ! & ! & ! & nbsp pendant que le test = 0 do begin //tant Que nous obtenons 0 a partir de nos Recherches il y a plus de fichiers ou de dossiers a traiter
& ! & ! & ! & ! & ! & ! & ! & nbsp cas searchrec.Attr //Verifier pour voir quel attribut de la searchresult a
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp faDirectory : begin //Si c'etait un 16 c'est un sous-dossier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si (searchrec.nom de <> '.') et (searchrec.nom de <> '..') alors //Verifier qu'il n'est pas un . ou un .. qui sont les symboles pour le dossier ci-dessus et le meme dossier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp SokIEnMapp (expediteur,sokmapp '\' searchrec.nom,searchrec.nom) //Si c'etait un autre dossier, appeler une sous-routine pour enqueter sur ce dossier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp 32 : begin //Si c'est un 32 c'est un fichier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si ansilowercase(extractfileext(searchrec.nom)) = '.url' then begin //si le nom de fichier se termine par .l'url c'est un explorateur prefere
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp inifil := tinifile.creer (sokmapp searchrec.nom) //Creer un fichier ini l'objet de ce fichier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp temptext :=inifil.readstring ('InternetShortcut','URL',') //Lire le lien du fichier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp richedit1.Les lignes.Ajouter (stringreplace(searchrec.nom,extractfileext(searchrec.nom),') '=' temptext) //Afficher le nom de fichier et le lien dans le richedit
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp statusbar1.SimpleText := searchrec.nom //Affiche le nom de fichier dans la barre d'etat
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp statusbar1.Mise a jour //de mise a Jour de la barre d'etat
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp application.processmessages //Et donner une chance de se rattraper
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp grunder.Add ('

' stringreplace(searchrec.nom,extractfileext(searchrec.nom),') '

') //Ajouter le favori de nos temporaire stringlist
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp enfin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp inifil.Gratuit //Free le fichier ini l'objet
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin //essayez enfin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin //si .url
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin //32
& ! & ! & ! & ! & ! & ! & ! & nbsp fin //
& ! & ! & ! & ! & ! & ! & ! & nbsp test := findnext(searchrec) //Appel de findnext pour voir si il y a plusieurs fichiers ou dossiers
& ! & ! & ! & ! & ! & nbsp fin //while
& ! & ! & ! & ! & nbsp findclose(searchrec) //Liberation de l'objet de recherche
& ! & ! & ! & ! & nbsp htmlspar.Text := htmlspar.le texte 'Divers liens

' grunder.le texte '

' //Ajouter le code HTML stringlist une ligne d'en-tete et les resultats a partir de ce dossier
& ! & ! & ! & ! & nbsp htmlspar.add ('') //ajouter Enfin la fermeture des elements HTML
& ! & ! & ! & ! & nbsp htmlspar.SaveToFile (htmlut) //Enregistrer le code HTML stringlist pour le nom designe
& ! & ! & ! & ! & nbsp richedit1.les lignes.SaveToFile (textut) //Enregistrer les lignes de la richedit pour le fichier designe. Assurez-vous d'avoir en clair=true dans le richedit
& nbsp & nbsp enfin
& ! & ! & ! & nbsp grunder.gratuit //Free la stringlist
& ! & ! & ! & nbsp ecran.curseur := crDefault //Restaurer le curseur
& nbsp & nbsp fin
fin
//======= Procedure pour effectuer une recherche dans un dossier specifique =====//
procedure Tfavu.SokIEnMapp (sender : Tobject sokpath,katalog : string)
var
& nbsp & nbsp undermapp : tsearchrec //Searchresult pour ce dossier specifique
& nbsp & nbsp inifil : tinifile //Inifile de lire du contenu a partir de l'url-fichiers
& nbsp & nbsp temptext : string //chaîne Temporaire
& nbsp & nbsp test2 : entier //Entier pour voir ce que le resultat de la recherche nous avons obtenu
begin
& nbsp & nbsp richedit1.les lignes.ajouter (katalog) //Commencez par ajouter le nom du dossier a rechercher pour le richedit
& nbsp & nbsp statusbar1.SimpleText := katalog //Faire de meme avec la barre d'etat
& nbsp & nbsp statusbar1.Mise a jour //de mise a Jour de la barre d'etat
& nbsp & nbsp application.processmessages //assurez-vous que windows est une chance
& nbsp & nbsp htmlspar.add ('
' katalog '

') //Ajouter le nom du dossier dans le dossier HTML de chaîne de la liste
& nbsp & nbsp test2 := findfirst(sokpath '\*.*',faAnyFile,Undermapp) //lancer une recherche dans le sous-dossier
& nbsp & nbsp si test2 = 0 alors //Si on obtient un 0 nous avons marque un touche
& ! & ! & ! & nbsp tandis que test2 = 0 do begin //tant Que nous continuons a trouver de nouveaux dossiers ou des fichiers
& ! & ! & ! & ! & ! & nbsp cas undermapp.attr //Verification de l'attribut du resultat de la recherche
& ! & ! & ! & ! & ! & ! & ! & nbsp 16 : begin //Si c'etait un 16 c'est un sous-dossier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si (undermapp.nom de <> '.') et (undermapp.nom de <> '..') //tant Que le nom n'est pas . ou .. nous continuons notre recherche
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp SokIEnMapp (expediteur,sokpath '\' undermapp.nom,undermapp.nom) //Appel de la routine de garder a la recherche des sous-dossiers
& ! & ! & ! & ! & ! & ! & ! & nbsp fin //16
& ! & ! & ! & ! & ! & ! & ! & nbsp 32 : begin //32 agit d'un fichier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si ansilowercase(extractfileext(undermapp.nom)) = '.url' then begin //Si le nom de fichier se termine par .l'url c'est un explorateur prefere
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp inifil := tinifile.creer (sokpath '\' undermapp.nom) //Creer un fichier ini l'objet de ce fichier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp temptext :=inifil.readstring ('InternetShortcut','URL',') //Lire le lien dans le fichier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp richedit1.Les lignes.Ajouter (stringreplace(undermapp.nom,extractfileext(undermapp.nom),') '=' temptext) //Ajouter a cela le richedit
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp statusbar1.SimpleText := undermapp.nom //Afficher le nom du fichier dans la barre d'etat
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp statusbar1.Mise a jour //de mise a Jour de la barre d'etat
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp application.processmessages //Laisser windows faire de l'entreprise
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp htmlspar.Add ('
• ' stringreplace(undermapp.nom,extractfileext(undermapp.nom),') '
') //Ajouter le nom de fichier et le lien vers le code HTML stringlist
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp enfin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp inifil.Gratuit //free le fichier ini l'objet
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin //try
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin //si
& ! & ! & ! & ! & ! & ! & ! & nbsp fin //32
& ! & ! & nbsp & nbsp & nbsp & nbsp fin
& ! & ! & ! & ! & ! & nbsp test2 := findnext (undermapp) //appel suivant pour poursuivre la recherche
& ! & ! & ! & nbsp fin //while
& ! & ! & ! & nbsp htmlspar.add ('

') //Ajout d'une balise de fermeture de la chaîne html de la liste
& ! & ! & ! & nbsp findclose (undermapp) //Appel de trouver fermer pour fermer l'objet de la recherche
fin
//======== Lors de la fermeture du programme ==========//
procedure Tfavu.Button1Click(Sender: TObject)
begin
& nbsp & nbsp /fermer/Fermer l'application
fin
procedure Tfavu.FormDestroy(Sender: TObject)
begin
& nbsp & nbsp htmlspar.gratuit //Free le resourse pour la chaîne html de la liste
fin
//================ Fonctions ==============//
//========== Verifier qu'une chaîne de caracteres se termine avec une chaîne de caracteres =============//
fonction de KollaSlutet (rad,coquine : string) : string
begin
& nbsp & nbsp si la longueur(rad)>0 alors //assurez-vous que theres quelque chose la-bas pour verifier
& ! & ! & ! & nbsp si rad[longueur(rad)] <> salope ensuite rad := rad salope //Si elle ne se termine pas avec la bonne fin de l'ajouter
& nbsp & nbsp resultat := rad //retourne la chaîne de caracteres
fin
//========== Fonction pour passer de la premiere occurrence de byt contre mot dans le texte ===========//
fonction de StringReplace (texte,mais,le mot : string ) :string
var
& nbsp & nbsp & nbsp plats : entier
begin
& nbsp & nbsp si pos(byt,texte) > 0 then begin //si byt existe pas dans le texte
& ! & ! & ! & nbsp plats := pos(byt,texte) //Notez ou il est
& ! & ! & ! & nbsp supprimer (texte,plats,longueur(byt)) //Suppression de la partie correspondant byt
& ! & ! & ! & nbsp insert (mot,du texte,des plats) //insertion du mot au bon endroit
& nbsp & nbsp fin //si byt existait dans le texte
& nbsp & nbsp resultat := texte //dans tous les cas de retour du texte
fin
a la fin.