Discussion :

[AlexTaz]

Bonjour, je voudrais savoir si après avoir saisi dans un TEdit et sur le "Onclick" d'un bouton, il est possible de parcourir un fichier texte et de voir si le contenu du TEdit existe dans le fichier texte.
Sachant que si ce contenu existe, il faudrait pouvoir extraire la ligne qui va avec dans un memo ou un autre TEdit. Est-ce possible ?
J'ai parcouru certains tuto sans résultats ...
Merci d’avance.

[BuzzLeclaire]

Bonjour,

Biensur que tu peux le faire.

1) tu ajoute l'ensemble de ton fichier text dans un StringList genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  with TStringList.Create do
  Begin
    Try
      LoadFromFile(FichierAtraiter);
//...

2) Tu parcourw chacune des lignes du StringList

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
      i := 0;
      While (Strings[i] <> FinDeFichier) do
      Begin
 
// ...

3) a toi de rechercher dans la ligne en question si tu trouve ton text du tedit genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if pos(Strings[i],Edit.text) <> 0 then ...

Voilà en gros.

A plus

[NABIL74]

salut,

je voudrais savoir si après avoir saisi dans un TEdit et sur le "Onclick" d'un bouton, il est possible de parcourir un fichier texte et de voir si le contenu du TEdit existe dans le fichier texte.
Sachant que si ce contenu existe, il faudrait pouvoir extraire la ligne qui va avec dans un memo ou un autre TEdit. Est-ce possible ?

Oui. Mets sur ta fiche :
1- un "Edit": "Edit1"sert pour la recherche.
2- un memo.
3 -un Edit: "Edit2" sert pour afficher le numéro de la ligne du Memo.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.Button1Click(Sender: TObject);
var posM,posL,i,j:integer;
    trouve:boolean;
    NumeroLigne:integer;
begin
for i:=0 to Memo1.Lines.Count do
begin
posL:=pos(Edit1.Text,Memo1.Lines[i]);
if posL <>0 then begin
posM:=0;
for j:=0 to i-1 do
posM:=posM+length(Memo1.Lines[j]);
posM:=posM+(i*2);
posM:=posM+posL-1;
Memo1.SetFocus;
Memo1.SelStart:=posM;
Memo1.SelLength:=length(Edit1.Text);
trouve:=true;
///////////// ici on recherche le le numéro de ligne /////////
 NumeroLigne := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,-1,0);
  edit2.Text:=(inttostr(NumeroLigne)); //Edit2: affiche le numéro de la ligne
/////////////////////
break;
end;
if trouve=false then
Edit2.Clear;
end;
end;

A+

NABIL74

[ShaiLeTroll]

Avant de poster, effectuer une recherche, ce sujet vient d'être débatu la semaine dernière

Recherche d'un string dans fichier

comment on fait une recherche dans un fichier ASCII

[AlexTaz]

merci à vous trois pour vos réponses, je vais regarder cela

[AlexTaz]

Alors je me suis aidé de ce que vous m'avez dit Buzz et Nabil , désolé ShaileTroll mais je suis (très ) vite dépasser dans ta fonction ... ( quand j'aurais un peu plus d'expérience je me repencherais surement dessus) .

cela marche j'arrive bien à trouver ce que je cherche , mais admettons que je cherche dans le fichier texte toutes les lignes en rapport avec ce qui aura été saisie dans Edit1, avec le code actuel, la recherche s'arrête dès qu'elle a trouvé le mots cherché .
Je pense qu'il faut utiliser un while , mais pour ce qui est de la condition booléenne , je ne vois pas trop ,
j'ai essayé avec

while Memo1.text < > '' do
begin ...

mais sans resultat...