Problème Arnaud <> récursivité

**Kanter** · 19/02/2007, 10h38

Bonjour,
je viens de parcourir le forum et la FAQ ainsi que google mais sans succès pour resoudre mon probleme.

Je tente de faire un procedure qui va lister tous les fichiers appelés dans des scripts de tests.
je m'explique :
1-les scripts sont des fichiers texte contenant des lignes de commande
2-ils contiennent aussi des appels à d'autres scripts
3-je souhaite lister tous les fichiers impliqués dans l'appel d'un script.

ce que j'ai fait :
1-j'ouvre le fichier texte et parcourir les lignes une à une
a-si je trouve un appel (.CALL) à un autre script :
i-j'ouvre le fichier texte et parcourir les lignes une à une...

et ainsi de suite...

j'ai essayé de faire cela en ecrivant une procedure qui s'appelle elle meme pour effectuer le traitement de maniere la plus élégante possible. Mais il s'avère que la récursivité cela ne fonctionne pas...(ou du moins je l'utilise mal) une fois appelée la procédure ne revient pas pour effectuer le reste du traitement...
je ne sais pas si je suis très clair mais je suis malade comme un chien... alors excusez moi...

Kanter,
malade...

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
procedure TForm1.SearchFile(Fichier : String);
var
  Index : Integer;
  WorkFile : TStrings;
  Buffer,
  Dest : String;
 
begin
  WorkFile := TStringList.Create;
  WorkFile.LoadFromFile(Fichier);
 
  for Index := 0 to WorkFile.Count - 1 do
  begin
    if Pos('.CALL',WorkFile.Strings[Index]) <> 0 then
    begin
        Dest := Traitement(WorkFile.Strings[Index]);   //Retire .CALL
        RichEdit.Lines.Add(Dest);
        SearchFile(Dest);
     end;
  end;
end;

**care** · 19/02/2007, 10h44

bonjour je propose un truc mais je suis pas sûr du tout

il faudrais qu'une fois a la fin de ton fichier ouver tu retourne dans la premier a la ligne ou tu t'ai arrété
tu recupérre la ligne dans une variable
et aprés si ton nouveau fichier est arriver a la fin (avec un truc du genre if EOF ... then) tu réouvre ton premier fichier en te placent a la ligne +1 que tu a récupérer dans ta variable avant.

dit moi si c'est une idée potable ?

**Kanter** · 19/02/2007, 10h55

Je croyais que la récursivité s'en chargeait toute seule ?!

**Rayek** · 19/02/2007, 11h01

il te manque plein de chose dans ton code, c'est normal que cela ne fonctione pas

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
29
30
 
procedure TForm1.SearchFile(Fichier : String);
var
  Index : Integer;
  WorkFile : TStrings;
  Buffer,
  Dest : String;
   iPos : integer;
begin
  WorkFile := TStringList.Create;
  try
    WorkFile.LoadFromFile(Fichier);
 
    for Index := 0 to WorkFile.Count - 1 do
    begin
      iPos := Pos('.CALL',WorkFile.Strings[Index]);
      if  iPos > 0 then
      begin
         // faut peut être récupérer le nom du fichier si tu veux passer à la suite
          Dest := Copy(WorkFile.Strings[Index],iPos + 5,Length(WorkFile.Strings[Index]) - iPos - 5);
          RichEdit.Lines.Add(Dest);
          SearchFile(Dest);
       end;
    end;
  finally
    // Il faut toujours penser à libérer les objets créer dynamiquement surtout 
    // dans une fonction récursive
    WorkFile.free;
  end;
end;

Sinon, il faudrait que tu fasses un pas à pas pour voir comment réagit ta procedure.

**Kanter** · 19/02/2007, 11h04

Désolé mais c'etait un copier coller ou il manquait des choses...
je m'en excuse, c'est corrigé...
C'est sur que je ne viendrais pas pleurer sur le forum si je n'avais pas relu mon code avant... j'avais juste retirer le traitement de la chaine de caracteres...

c'est que je me ferai rouspéter ?!

**Rayek** · 19/02/2007, 11h16

Envoyé par Kanter

c'est que je me ferai rouspéter ?!

Non, non

Sinon, Est ce que tu es sûr :
- Que le fichier test que tu utilises , a cette fonction [.CALL + Chemin+NomFichier] ?
- Que ton découpage est bon ?

**Kanter** · 19/02/2007, 11h38

J'ai bien l'impression que le try...Finally et destruction de ma TList ai résolu mon problème.

Mais vous connaissant, je pense que vous aller me dire :
"attention Petit ?! et si jamais un script A appelait un script B qui a son tour appelle le script A... tu pars en boucle infini avec tout ce que cela engendre"

et bien je vous répondrais : "J'y pense et j'y travaille"...

Merci,
Je teste tout ca et je tag mon post en [RESOLU]... promis !

Kanter,
qui a vomis sur lui ce matin... (véridique)

**Rayek** · 19/02/2007, 12h01

Envoyé par Kanter

Mais vous connaissant, je pense que vous aller me dire :
"attention Petit ?! et si jamais un script A appelait un script B qui a son tour appelle le script A... tu pars en boucle infini avec tout ce que cela engendre"

et bien je vous répondrais : "J'y pense et j'y travaille"...

J'y pensais si fort que ça ????

Il te suffit juste de vérifier, que tu n'appels pas 2 fois le meme fichier

Envoyé par Kanter

Kanter,
qui a vomis sur lui ce matin... (véridique)

Et tu as fait un : brrroooo ? (Kanter Brooo

)

**Kanter** · 19/02/2007, 12h20

Merci Papa...

**LadyWasky** · 19/02/2007, 13h14

hoppopopopop !!!!

et si tu n'as aucune ligne dans ton fichier de script ????

Illustration :

Code :

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

1
2
for i:=0 to Lignes.count-1 do //count=0 
  s:=Lignes[i]; //plantage la ligne n°0 n'existe même pas !

Remèdes :
- Un bon grog

-

Code :

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

1
2
3
4
5
6
7
 
   i:=0;
  while i<Lignes.count do
  begin 
      s:=Lignes[i]; 
      inc(i);
  end;

Donc, en reprenant le code de Malatar (avec le Free indispensable) :

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
29
30
procedure TForm1.SearchFile(Fichier : String);
var
  Index : Integer;
  WorkFile : TStrings;
  Buffer,
  Dest : String;
   iPos : integer;
begin
  WorkFile := TStringList.Create;
  try
    WorkFile.LoadFromFile(Fichier);
    Index:=0;
    while Index<WorkFile.Count do
    begin
      iPos := Pos('.CALL',WorkFile.Strings[Index]);
      if  iPos > 0 then
      begin
         // faut peut être récupérer le nom du fichier si tu veux passer à la suite
          Dest := Copy(WorkFile.Strings[Index],iPos + 5,Length(WorkFile.Strings[Index]) - iPos - 5);
          RichEdit.Lines.Add(Dest);
          SearchFile(Dest);
       end;
       inc(Index);
    end;
  finally
    // Il faut toujours penser à libérer les objets créer dynamiquement surtout 
    // dans une fonction récursive
    WorkFile.free;
  end;
end;

Et pour gérer les appels en boucle infinie :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
//private de la fiche
private
   PileFichiersTraites:TStringList;
   BoucleInfinie:TStringList;
 
//OnCreate de la fiche :
procedure TForm1.Form1Create(Sender:TObject);
begin
   PileFichiersTraites:=TStringList.Create;
   BoucleInfinie:=TStringList.Create;
end;
 
//OnDestroy de la fiche :
procedure TForm1.Form1Destroy(Sender:TObject);
begin
   PileFichiersTraites.Free;
   BoucleInfinie.Free;
   IndexDebutBoucle:integer;
end;
 
 
//c'est la nouvelle procédure à appeler ;)
procedure TForm1.Cherche(Fichier : String);
begin
  IndexDebutBoucle:=-1;
  PileFichiersTraites.Clear; 
  BoucleInfinie.Clear;
  if not SearchFile(Fichier) 
  then begin
           ShowMessage('Appel de Script en boucle !');
           //Afficher Le Contenu de BoucleInfinie
           ...J'ai la flemme
         end;
end;
 
function TForm1.SearchFile(Fichier : String):boolean; //maintenant, c'est une fonction
var
  Index : Integer;
  WorkFile : TStrings;
  Buffer,
  Dest : String;
   iPos : integer;
begin
  result:=false;
  if PileFichiersTraites.indexOf(fichier)>-1 
  then begin
           IndexDebutBoucle:=PileFichiersTraites.indexOf(fichier);
           exit; //On sort de la fonction on a un duplicata
         end;
 
  result:=true;
  PileFichiersTraites.Add(Fichier); //On empile
  WorkFile := TStringList.Create;
  try
    WorkFile.LoadFromFile(Fichier);
    Index:=0;
    while ((Index<WorkFile.Count) and result) do
    begin
      iPos := Pos('.CALL',WorkFile.Strings[Index]);
      if  iPos > 0 then
      begin
         // faut peut être récupérer le nom du fichier si tu veux passer à la suite
          Dest := Copy(WorkFile.Strings[Index],iPos + 5,Length(WorkFile.Strings[Index]) - iPos - 5);
          RichEdit.Lines.Add(Dest);
          result:=SearchFile(Dest);
          if not result //On a eu une boucle infinie
          then if IndexDebutBoucle<=PileFichiersTraites.Count 
                then BoucleInfinie.Insert(0,Dest);
       end;
       inc(Index);
    end;
    PileFichiersTraites.Delete(PileFichiersTraites.Count-1); //On désempile
  finally
    // Il faut toujours penser à libérer les objets créer dynamiquement surtout 
    // dans une fonction récursive
    WorkFile.free;
  end;
end;

voilà et soigne toi bien

**Kanter** · 20/02/2007, 09h33

Merci, je vais tester cela dès que possible...
mais j'ai un max de taf aujourd'hui et j'ai mal aux dents maintenant...
Bordel... Marre des chicots...

@+...
je taggue [RESOLU] si cela fonctionne...

**LadyWasky** · 20/02/2007, 11h26

Envoyé par Kanter

Merci, je vais tester cela dès que possible...
mais j'ai un max de taf aujourd'hui et j'ai mal aux dents maintenant...
Bordel... Marre des chicots...

@+...
je taggue [RESOLU] si cela fonctionne...

No problemo, et prend rendez vous chez le dentiste