rechercher dans un fichier TXT une valeur

->>>> recherche de chaîne dans chaîne : il existe des fonctions qui le font directement comme par exemple AnsiContainsText.

j'ai trouver une solution qui marche mais
procedure TForm1.Button1Click(Sender: TObject);
var
Contents:TStringList;
find:boolean;
i:integer;
begin
  find:=false;
  Contents:=TStringList.Create;
  try
    Contents.LoadFromFile('C:\test\test.txt');
    i:=0;
    repeat
     if Pos(Edit1.Text, Contents[i]) > 0 then
       find:=true
     else
       i:=i+1;
    until ((find) or (i=Contents.Count));
 end;
end;

mais maintenant faut que j'arrive a modifier les donner dans "contents" car si je l'affiche ca me donne "0000 10.25.36.15" et en faite j'ai juste besion de "10.25.36.15" afin de le meme dans un autre fichier

Salut,

voici ce que je te propose

procedure TForm1.Button1Click(Sender: TObject);
var
  Contents:TStringList;
  sVar : string;
  i:integer;
begin
  Contents:=TStringList.Create;
  try
    Contents.LoadFromFile('C:\test\test.txt');    //Chargement du fichier
    for i := 0 to Contents.count -1 do                // Parcours de fichier
    begin
       sVar := Contents[i];                      // Recuperation de la chaine du fichier
       if AnsiContains(sVar, Edit1.text) then        
       begin       // si la chaine contient la recherche
         Edit2.text := AnsiRightStr(sVar,Length(sVar)- Pos(' ',sVar));   // recuperation de la partie a droite du caractère "espace"
         Exit;    // sortir de la boucle
      end;
  end;
end;

Voila j'ai pas testé car j'ai pas de delphi sous la main donc peut etre quelques modif de code a faire mais voila l'idée générale.

Bonne Prog

@moldov: oui mais faut pas tout donner d'un seul coup.. et si le blanc un jour disparaît ?

a non le ' ' ne disparaitera jamais je vais test ce que tu ma mis moldov avec mes remerciements

petit pb de declaration sur AnsiContains et AnsiRightStr

tu peut me dire c'est de quel type ?

j'ai rajouter dans use : StrUtils
mais c toujour pareil
je comprend pas

j'ai trouver MERCI :

procedure TForm1.Button1Click(Sender: TObject);
var
  Contents:TStringList;
  sVar : string;
  i:integer;

begin
  Contents:=TStringList.Create;
  try
    Contents.LoadFromFile('C:\install\liste.txt');    //Chargement du fichier
    for i := 0 to Contents.count -1 do                // Parcours de fichier
    begin
       sVar := Contents[i];                      // Recuperation de la chaine du fichier
       if AnsiContainsText(sVar, Edit1.text) then

       begin       // si la chaine contient la recherche
         Edit2.text := RightStr(sVar,Length(sVar)- Pos(' ',sVar));   // recuperation de la partie a droite du caractère "espace"

         Exit;   // sortir de la boucle

     end;
     end;
  finally
    Contents.free;

end;

end;
end.

en faite il fallais mettre strutils dans use
et utiliser AnsiContainsText a la place de AnsiContains  ainsi que  RightStr a la place de AnsiRightStr

et voila ca mache

par contre je voulais rajouter :

else ShowMessage('pas dans la liste');  si la valeur tape dans edit1.text n'existais pas mais je n'arrive pas a le placer

MERCI D'AVANCE

Re,

Désolé Contador d'avoir directement donné la reponse.

Sinon pour ton probleme de pas dans la liste, il faut que tu mette un flag a flase au debut et a true si i rentre dans la condition et faire un test a la fin de la boucle afin de tester son état et afficher le message si necessaire..... Je te laisse chercher.

Bonne Prog