Recherche termeRésolu

Question

Bonjour &#224; tous,



Je souhaite en stage dans une boite de d&#233;veloppement informatique et
mon maitre de stage me demande d'&#233;crire un programme qui permet de
trier le contenu du rapport d'erreur du logiciel Arcserve.



Ce rapport est un fichier texte, mon maitre de stage souhaite que
toutes les lignes d'erreurs contenant les  termes : "temp",
".tmp", ".ldf" et "tacheres.dat" soient plac&#233;s dans un fichier
exception.txt. Toutes les autres erreurs seront dans plac&#233;s dans le
fichier erreur.txt.



Ce que je souhaite donc savoir c'est si il existe une  

fonction qui me permettrai de rechercher ces termes dans le fichier texte?



Je vous remercie d'avance. @+

Cirec · Accepted Answer

Salut,
essaye la Fonction pos :
elle renvoie 0 si la chaine n'est pas trouv&#233;e 
et si la chaine est trouv&#233;e elle renvoie la position sa position 
tu charges le fichier texte dans un TStringList et tu Testes les lignes une &#224; une.
Ex:
Var
FichierSource, FichierDestination : TStringList;
I : Integer;
Begin
  FichierSource :=  TStringList.Create.
  FichierDestination := TStringList.Create.
 Try 
  FichierSource.LoadFromFile('Le_Nom_Du_Fichier.txt');
  For I : = 0 to FichierSource.count - 1 Do
Begin
    If Pos('.tmp', FichierSource[I]) > 0 Then // reproduire la partie en rouge pour tous les types &#224; trouver
Begin
FichierDestination.Add(FichierSource[I]) ;  // Ajout dans le nouveau Fichier
FichierSource.Delete(I); // supprimer si trouv&#233;
End;
End;
Finally
  FichierSource.SaveToFile('Erreur.txt');
  FichierSource.Free; 
  If FichierDestination.Count > 0 Then
  FichierDestination.SaveToFile('Exception.Txt');
  FichierDestination.Free;
End; 
End; 

Bien s&#251;r il faut encore le completer ce n'est qu'une &#233;bauche mais je pense que c'est la marche &#224; suivre


@+
Cirec

jlen100 · Answer

salut tu ouvres ton fichier dans une listbox ou une Tstringlist listbox1.items.loadfromfile('nomdufichier'); puis tu teste ligne par ligne si elle contient un des termes que tu ranges dans 2 autres listes: for i:=0 to listbox1.items.count-1 do begin if (pos('temp',listbox1.items[i])<>-1)or (pos('.ldf',listbox1.items[i])<>-1)or (pos('temp',listbox1.items[i])<>-1)or (pos('tacheres.dat',listbox1.items[i])<>-1) then listbox2.items.Appends(listbox1.items[i])else listbox3.items.Appends(listbox1.items[i]) end; il ne te reste plus qu'à enregistrer la seconde liste: listbox2.items.SavetoFile('exception.txt'); listbox3.items.SavetoFile('erreur.txt'); je pense que cela devarit faire l'affaire @+ jlen

xt3 · Answer

Salut, je  vous  remercie pour votre aide, je teste 
&#231;a  et  je  vous  dis  ce  que  &#231;a
donne.

@+

xt3 · Answer

Une petite question quand m&#234;me. J'ai commenc&#233; mon programme en
chargeant le fichier texte dans un memo:
Memo2.Lines.LoadFromFile(Fichier.txt). Est ce que votre m&#233;thode marche
aussi avec un m&#233;mo?

jlen100 · Answer

salut, je viens de voir une erreur dans ce que t'ai donné cirec à raison pos renvoie 0 et non -1 donc if (pos('temp',listbox1.items[i])<>-1)or (pos('.ldf',listbox1.items[i])<>-1)or (pos('temp',listbox1.items[i])<>-1)or (pos('tacheres.dat',listbox1.items[i])<>-1) then devient if (pos('temp',listbox1.items[i])<> 0 )or (pos('.ldf',listbox1.items[i])<>0)or (pos('temp',listbox1.items[i])<>0)or (pos('tacheres.dat',listbox1.items[i])<>0) then je ne sais pas ou j'avais la tete!! @+ jlen

jlen100 · Answer

oui la methode fonctionne avec un memo il faut remplacer

listbox1.items[i] par Memo2.lines[i]

@+

jlen

jlen100 · Answer

precisions

les methodes loadfromfile(), SavetoFile() ,Appends(),
Add() sont celles des Tstrings et donc utilisables pour toutes les
propri&#233;t&#233;s des composants poss&#233;dant une telle propri&#233;t&#233;s
(items,lines...) de m&#234;me count est une propri&#233;t&#233;s des Tstrings (plus
exactement une propri&#233;t&#233; plus g&#233;n&#233;rale des Tlist)



@+

jlen

xt3 · Answer

Merci beaucoup jlen100 t'es trop fort @+

jlen100 · Answer

pas tant que &#231;&#224;!!

@+

jlen

Cirec · Answer

Salut , encore une fois 7 messages se sont ajoutés sans que j'en soit informé n'y a t'il pas un soucis avec le bon fonctionnement du site Avis aux Admins si je dois surveiller moi même tous les threads ou j'ai poster ça vas être très long et contraignant mais sur tout je ne devrais pas avoir à faire cela non Alors ma question est très simple : POURQUOI petite precision ce n'est pas ma boite j'en ai 3 et de 3 opérateur j'ai donc pu faire les testes. Les mails arrivesen mois de 30 secondes alors que là ça fait plus de 2 heures et j'ai toujours rien. @jlen salut, il me semble qu'il y a encore un petit soucis dans ton code rien de bien grave juste une ligne en trop : if (pos('temp',listbox1.items[i])<> 0 )or (pos('.ldf',listbox1.items[i])<>0)or (pos('temp',listbox1.items[i])<>0)or (pos('tacheres.dat',listbox1.items[i])<>0) then @+ Cirec

jlen100 · Answer

salut cirec,

encore un copier coller qui fait des siennes en fait il ya une fois 'temp' et une fois 'tmp'

et comme j'ai copi&#233; les lignes (ouh le vilain petit flemmard!!) j'ai, comme qui dirait, oubli&#233; de modifier le second!!

mea culpa



@+

jlen

Cirec · Answer

Comme je le disais rien de bien grave, mais c'est toujours plus facile de relever les erreurs chez les autres que dans ses propres codes 

jlen dit moi es-tu pr&#233;venu des nouveaux messages 



@+
Cirec

jlen100 · Answer

oui en g&#233;n&#233;ral &#231;&#224; va pas mal

la preuve!!

@+

jlen

Cirec · Answer

oui c'est ce que je me suis dis une fois que j'avais fait ma demande (si il r&#233;pond aussi rapidement c'est qu'il en est inform&#233;) moi au contraire je surveille constament mais comme j'ai post&#233; pas mal ces dernier temps je n'arrive pas &#224; suivre 
je vais doc reformuler : tu n'as jamais remarqu&#233; ce genre de probl&#232;me sur tes messages 



@+
Cirec

xt3 · Answer

Merci 1000 fois pour votre aide les gars, &#231;a marche niquel maintenant !

xt3 · Answer

J'ai un autre petit probl&#232;me, si vous pouvez m'aidez la dessus &#231;a serait super.

Je souhaite envoy&#233; le contenu de memo5 par e-mail. 

Memo5 contient toutes les erreurs que Arcserve a eu lors de sa sauvegarde.

J'utilise indy pour envoy&#233; l'e-mail.

Je re&#231;ois bien l'e-mail sur ma boite de r&#233;ception mais le contenu de l'e-mail est vide.

Est-ce que vous auriez une id&#233;e?

Cirec · Answer

Oui effectivement c'est bizarre comme dit ce n'est que la deuxi&#232;me fois que &#231;a m'arrive si non c'est vrai que c'est relativement rapide mais la c'est plus que bouch&#233; &#231;a devrait d&#233;border de tous cot&#233;s 
as-tu d&#233;j&#224; demand&#233; aux Admins pourquoi, parce que la c'est claire il y a une r&#233;ponse qui a disparue, plut&#244;t surprenant. ah les myst&#232;res de l'informatique

@ xt3 comme la dit jlen n'oublie pas de cliquer sur r&#233;ponse accep&#233;e je pense que la recherche de terme est r&#233;solue. 
En suite tu auras plus de chance d'avoir une r&#233;ponse sur le probl&#232;me de mail si tu poste une nouvelle question dans un nouveau thread avec plus de precision en donnant par exemple le code utilis&#233; pour envoyer le mail.



@+
Cirec

Cirec · Answer

oup il faut lire r&#233;ponse accept&#233;e et non r&#233;ponse accep&#233;e



@+
Cirec

jlen100 · Answer

--> cirec je pense que tu as la reponse au ratard sur le blog de nix ( disque dur HS):

http://blogs.developpeur.org/nix/archive/2006/01/25/16803.aspx

apparement il devait deja avoir des rat&#233;es quand j'ai post&#233;!!

--> xt3 pour ton probl&#232;me de mail tu devrais poster une nouvelle
question sur le forum ( personnellement je ne connais pas indy)

@+


jlen

Cirec · Answer

oui absolument je fait parti des @Aol donc tant que Nix n'aura pas chang&#233; de disque dur  ben pas de mail 

Merci pour l'information ca ne r&#233;soud pas mon probl&#232;me mais je sais au moins pourquoi 


@+
Cirec

xt3 · Answer

D&#233;sol&#233; les gars j'avais pas compris qu'il falait cliqu&#233; sur "R&#233;ponse accept&#233;e" quand on acceptait une r&#233;ponse. Mille excuse. @+

jlen100 · Answer

il n'y a pas de mal pour une premiere fois. cela facilite la recherche
dans la forum quand la m&#234;me question est pos&#233;e on peu rep&#233;rer celles
qui ont re&#231;ues une solution.



@+

jlen

Recherche terme

22 réponses

Votre réponse

Discussions similaires