Discussion :

[oliviernouhi]

Bonjour,

Je cherche à faire une fonction récursive pour parcourir un Arbre afin qu'il m'affiche combien de branches j'ai par noeud.

Pouvez vous m'aider à l'écrire en Perl et aussi d'abord à corriger mon algo qui n'est pas correct...

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
exemple d arbre:
 
B		C
|		|
----------------
        |
	A
 
Mon Algo :
 
fonction taille_arbre (racine){
	si(!=racine){ // on sort si c est la fin de la branche
		@liste += racine;
	}
	sinon{ // on compte le total de noeud et on stocke les résultats dans une liste
		pour i de 1 a totalnoeud{
			@liste(j) += racine;
			return(@liste + taille_arbre(racine position i))
		}
		j=j+1;
		cpt=cpt+1;
	}
	pour j de 1 à cpt{
		afficher @liste(j);
	}
}

Mon résultat devrait être A B C, quand je le fais sur papier, ça me donne plutôt A + A + B + A + B + C

Merci d'avance

[Dimitry.e]

J'aurai préféré voir le code Perl que tu as écrit.
Ne serait-ce que pour voir la manière dont tu as représenté ton arbre.

[oliviernouhi]

bah justement je ne sais pas le faire en Perl.

J'ai fais une ébauche d'un algo qui doit avoir des erreurs.
Je voudrais si possible qu'on les resoudent et après le coder en Perl !

[Philou67430]

Il faudrait aussi que tu précises ce que tu entends par "nombre de branches par nœud"... Pour chaque nœud, il faut donner le nombre de sous-nœud ?

Code :

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

1
2
3
4
affiche_branche (arbre):
  afficher le nombre de sous-noeud
  pour tous les sous-noeud
    affiche_branche( sous-noeud )

(on considère que "pour tous les sous-noeud" ne tournera pas si l'on se trouve sur une feuille ; si l'on ne fait pas cette supposition, il convient d'ajouter un test de feuille)

Mais à lire ton premier algorithme, je pense que ce n'est pas ce que tu cherches à faire.

[Dimitry.e]

Tu as un problème dans ton algo au niveau de la boucle "pour i [1,totalnoeud]" : tu ajoutes ta racine dans @liste à chaque itération.
Or, d'après le résultat que tu attends, elle ne devrait être ajoutée qu'une fois.

Cela réglera le problème des ajouts en trop (et du cas d'un arbre à un seul noeud).

Tu ne dois pas faire un "return" dans ta boucle mais ajouter toutes les branches avant.
Donc le return doit se faire obligatoirement après la boucle.

Je ne sais pas ce que tu as prévu pour @liste mais elle doit être locale.

Je n'ai pas beaucoup de temps libre aujourd'hui (boulot, sport, picon...) mais je vais essayer de remanier ton algo.

[oliviernouhi]

Merci pour vos réponses,

j'ai repensé à l'algo le voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
fonction Arbre(element, parent){
 
	tant que element à des fils{
 
		recuperer_propriete(element);
		parent = id parent;
		Arbre(fils, element)		
	}
	recuperer_propriete(element)
	parent = id parent;		
}

Pour un arbre comme ceci :

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
Premier exemple Arbre :
 
		D		E
		|		|
		----------------
	B		C
	|		|
	----------------
		|
		A
 
Réponse : A C D E
 
Premier exemple Arbre :
 
B		C
|		|
----------------
	|
	A
 
Réponse : A B C

Qu'est ce que vous en pensez ? j'ai essayé de le faire en perl, je vous demanderai conseil une fois que j'aurai écrit quelques trucs

[oliviernouhi]

id parent, pour A pour peut imaginer 1, B = 2, etc, des ID propres à chaque noeuds.

et les propriétés par exemple le noeud A, proprietename = A.

Des trucs basiques pour commencer

[oliviernouhi]

Voici ce que j'ai programmé mais la fonction recursive que j'appel ne fonctionne pas ! Merci de m'aider svp j'ai du faire une bétise !

Code :

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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
# !usr/bin/perl -w
use strict;
use warnings;
require 'fonctions.pl' ;
require 'fonction_recursive.pl';
 
my $gene = 0; # compteur pour connaitre le nombre de lignes avant Application Actions
my $nIndentForm = 0; #  nombres de tabulations de mes Forms
my $nIndentChild = 0; # nombres de tabulations de mes Childs
my $nIndentActuel = 0; # indentation de la ligne en cours
 
my $j = 0; # compteur pour ecriture dans le fichier
my $y = 0; # compteur pour ecriture dans le fichier
my $cpt = 0; # compteur pour le nombre de lignes
 
my $NomForm ; # NOM
my @tab_Form =([0]); # Tableau des Forms
my $nTabForm = 0; # Tabulation des Forms
my $tab_form_ligne = 0; # CPT
 
my $NomChild ; # NOM
my @tab_Child =([0]); # Tableau des Childs
my $nTabChild = 0; # Tabulation de la Child
my $nTabChildLast = 0; # TABPRC
my $tab_child_ligne = 0; # CPT
 
#######################################################################################################
#                         Début du traitement et ouverture fichiers                                   #
#######################################################################################################
 
    print "\n-------------------------------------------------------\n";
    print "|---------------  Debut du traitement  ---------------|\n";
    print "-------------------------------------------------------\n";
 
open FICHIER, '<', "X7_sans_com.apt" or die("E/S : $!\n");
open ECRIRE_FORM,  '>', "parserFormtest.txt" or die("Erreur de création de parserFormtest.txt");
open ECRIRE_CHILD,  '>', "parserChildtest.txt" or die("Erreur de création de parserChildtest.txt");
 
#######################################################################################################
#                         				Tableau des fenetres :                                        #
#               Initialisation en dur des noms des colonnes dans la première ligne                    #
#######################################################################################################	
 
$tab_Form[0][0]="IDT";
$tab_Form[0][1]="LGN"; 
$tab_Form[0][2]="NOM"; 
$tab_Form[0][3]="TAB";
 
#######################################################################################################
#                                     Tableau des Child Tables :                                      #
#               Initialisation en dur des noms des colonnes dans la première ligne                    #
#######################################################################################################	
 
$tab_Child[0][0]="IDT";
$tab_Child[0][1]="LGN"; 
$tab_Child[0][2]="NOM"; 
$tab_Child[0][3]="TAB";
$tab_Child[0][4]="TABPRC";
$tab_Child[0][5]="IDTHRT";
 
#tant qu'il y a des lignes dans mon fichier
 
while ( my $ligne = <FICHIER>) {
	$gene++;
	if ($ligne =~ m/^\t{2}Application Actions/ .. defined $ligne) { # commencer la lecture du fichier quand on rencontre le motif Application Action
		while ($ligne = <FICHIER>) {
			$cpt++;	# incrémentation du compteur pour compter le nombre de lignes dans le fichier
			$nIndentActuel = CompteEspaces($ligne); # on stocker dans IndentActuel le nombre de tabulation sur la ligne en question
 
#######################################################################################################
#                                         Nom de la fenetre                                           #
#######################################################################################################
 
			if ( ( $ligne =~ m/\t*Form Window:\s*(.+)/ ) ||
				( $ligne =~ m/\t*Dialog Box:\s*(.+)/ ) ||
				( $ligne =~ m/\t*MDI Window:\s*(.+)/ )) {
					$tab_form_ligne++; # CPT
					$NomForm = $1; # NOM
					$nTabForm  = CompteEspaces($ligne); # TAB
					# TABLEAU	
					$tab_Form[$tab_form_ligne][0]=$tab_form_ligne; # IDT
					$tab_Form[$tab_form_ligne][1]=$cpt+$gene; # LGN
					$tab_Form[$tab_form_ligne][2]=$NomForm; # NOM
					$tab_Form[$tab_form_ligne][3]=$nTabForm; # TAB
					$nIndentForm = $nTabForm; # enregistrement du nombres de tabulations des Form
				}
 
#######################################################################################################
#                                       Nom des Childs Table                                          #
#######################################################################################################
 
			if ( ($ligne =~ m/\t*Background Text:\s*(.+)/) ||
				($ligne =~ m/\t*Data Field:\s*(.+)/) ||
				($ligne =~ m/\t*Pushbutton:\s*(.+)/) ||
				($ligne =~ m/\t*Check Box:\s*(.+)/) ||
				($ligne =~ m/\t*Group Box:\s*(.+)/) ||
				($ligne =~ m/\t*Column:\s*(.+)/) ||
				($ligne =~ m/\t*Option Button:\s*(.+)/) ||
				($ligne =~ m/\t*Child Table:\s*(.+)/)||
				($ligne =~ m/\t*Multiline Field:\s*(.+)/)||
				($ligne =~ m/\t*Radio Button:\s*(.+)/)||
				($ligne =~ m/\t*List Box:\s*(.+)/)||
				($ligne =~ m/\t*Combo Box:\s*(.+)/)||
				($ligne =~ m/\t*Custom Control:\s*(.+)/)||
				($ligne =~ m/\t*General Window Class:\s*(.+)/)||
				($ligne =~ m/\t*Picture:\s*(.+)/)) {
					$tab_child_ligne++; # CPT
					$NomChild = $1; # NOM
					$nTabChildLast = $nTabChild; # TABPRC
					$nTabChild  = CompteEspaces($ligne); # TAB
					# TABLEAU	
					$tab_Child[$tab_child_ligne][0]=$tab_child_ligne; # IDT
					$tab_Child[$tab_child_ligne][1]=$cpt+$gene; # LGN
					$tab_Child[$tab_child_ligne][2]=$NomChild; # NOM
					$tab_Child[$tab_child_ligne][3]=$nTabChild; #TAB
					$tab_Child[$tab_child_ligne][4]=$nTabChildLast; #TABPRC
					$tab_Child[$tab_child_ligne][5]="NULL";#IDTHRT
					$nIndentChild = $nTabChild; # TAB
 
					# Propriété de la child:  IDTHRT
					Heritage($nIndentForm, $nIndentChild, $tab_Form[$tab_form_ligne][0], $tab_Child[$tab_child_ligne][5]);
				}	
 
#######################################################################################################
#                  End Of File, verifie que toutes les lignes du fichier sont traités                 #
#######################################################################################################	
 
			if (eof) {
				print "-------------------------------------------------------\n";
				print "|--------------- Fin du fichier courant --------------|\n";
				print "-------------------------------------------------------\n";
			}
		}
	}
}
 
#######################################################################################################
#                                Nombre de lignes non traités                                         #
#######################################################################################################
 
    print "-------------------------------------------------------\n";
    print "|------ Le traitement commence a la ligne ",$gene,"-------|\n";
    print "-------------------------------------------------------\n";
 
#######################################################################################################
#                                          Ecriture des Forms                                         #
####################################################################################################### 
 
	for ($y=0; $y<=$tab_form_ligne; $y++){
		for ($j=0; $j<=3; $j++){
				print ECRIRE_FORM $tab_Form[$y][$j];
				print ECRIRE_FORM "				";
			}
		print ECRIRE_FORM "\n";
	}
 
#######################################################################################################
#                                      Ecriture des Childs                                            #
####################################################################################################### 
 
	for ($y=0; $y<=$tab_child_ligne; $y++){
		for ($j=0; $j<=5; $j++){
				print ECRIRE_CHILD $tab_Child[$y][$j];
				print ECRIRE_CHILD "				";
		}
		print ECRIRE_CHILD "\n";
	}
 
#######################################################################################################
#                                         Compteur                                                    #
#######################################################################################################
 
    print "-------------------------------------------------------\n";
    print "|---- test.pl a parcouru ", $cpt, " lignes ----|\n";
    print "-------------------------------------------------------\n";
 
#######################################################################################################
#                            Fin du traitement et Fermeture Fichiers                                  #
#######################################################################################################
 
    print "-------------------------------------------------------\n";
    print "|----------------  Fin du traitement  ----------------|\n";
    print "-------------------------------------------------------\n";
 
close FICHIER;
close ECRIRE_FORM;
close ECRIRE_CHILD;

fonction_recursive.pl

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
#######################################################################################################
#                      Fonction recursive pour géré les ID Herited complexes                          #
####################################################################################################### 
 
sub Heritage($nIndentFormP, $nIndentChildP, $tab_FormP[$tab_form_ligne][0], $tab_ChildP[$tab_child_ligne][5]){
		my ($ligneloc ) = @_;
 
		if ( $nIndentFormP < $nIndentChildP){
			$tab_ChildP[$tab_child_ligne][5]=$tab_FormP[$tab_form_ligne][0];
		}
		else{
			$tab_ChildP[$tab_child_ligne][5]="NULL";
		}
}
 
1; 
 
#######################################################################################################
#                                                                                                     #
#######################################################################################################

Extrait du fichier en entrée :

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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
		Default Classes
			MDI Window: cgMDI
			Form Window:
			Dialog Box: cgDialog1B
			Table Window:
			Quest Window:
			Data Field: cgDataFieldStr
			Spin Field:
			Multiline Field:
			Pushbutton: cgPushButton
			Radio Button:
			Option Button:
			ActiveX:
			Check Box:
			Child Table: cQuickTable
			Quest Child Window: cQuickDatabase
			List Box:
			Combo Box:
			Picture: cQuickPicture
			Vertical Scroll Bar:
			Horizontal Scroll Bar:
			Column: cgColumnDataFieldStr
			Background Text:
			Group Box:
			Line:
			Frame:
			Custom Control: cQuickGraph
		Application Actions
			On SAM_AppStartup
				Set nGPourcent = NUMBER_Null
				Call GHtmlHelp.cmInitializeHelp(  )
				Set bGCreateMDI = TRUE
				Call GSqlError.CmSetApplicationName( "X7" )
				Call MNC_InitContextMenu( GContextMenuJoinList )
				Call InitVarEnv()
				Call GetX7Home()
				Set sGPathTemp = VisDosGetEnvString ('TEMP')
				If sGBase = STRING_Null
					Set sGBase = 'EDEVALG'
				Set sGPathInteract = sGX7Home || '\\' || sGBase || '\\PRODEXE\\INTERACT'
				Set sGPathBat = sGX7Home || '\\' || sGBase || '\\PRODEXE\\batch\\BAT'
				Set sGCurrentPath = sGPathInteract || "\\X7.exe"
				If GetWIZTOM()='1'
					Call WIZTERMINATE()
					Call WizInit()
					Call InitLanguage()
					Set bGWiztom = TRUE
				Else
					Call WIZTERMINATE()
					Set bGWiztom = FALSE
				If SalModalDialog( dlgOUTCNX01, hWndNULL )
					Set nGStartWeekDay = 2
					Set bGShowSpecial = TRUE
					Set bGGridlines = FALSE
					Set bGShowExtra = FALSE
					Set bGShowExtra = TRUE
					Set bGSelectSpecial = TRUE
					Set bGEtchedLook = TRUE
					Set nGStnIntRff = 15
					If GdbX7.GetRBWVER( ) != X7_REG1
						Call EndCrypkey( )
						Set nGNumberTmp1 = -1
						Set nGNumberTmp1 = InitCrypkey( 
								sGCurrentPath ,
								'C6B3 55C4 5919 F881 3B12 735C 061C 7E41 061C 7E41 9B80', 
								'D454 815C D114 67DC BB60 E0', 
								0, 
								3*nGStnIntRff*60)
						If nGNumberTmp1 != 0
							Call Crypkey.CmExplainErr(1,nGNumberTmp1)
							Call EndCrypkey( )
							Call SalQuit(  )
						Set nGNumberTmp1 = GetAuthorization2( 0 )
						If nGNumberTmp1 < 0
							Call Crypkey.CmExplainErr(2,nGNumberTmp1)
							Call EndCrypkey( )
							Call SalQuit(  )
					If NOT SalFileSetCurrentDirectory( sGX7Home || '\\' || SqlDatabase || '\\PRODEXE\\BATCH\\BAT' )
						Set sGParam[ 0 ] = sGX7Home || '\\' || SqlDatabase || '\\PRODEXE\\BATCH\\BAT'
						Call Message.CmMsgBoxErrorParam( E372, sGParam )
					Set bGShow = TRUE
					Set hWndMyMDI = SalCreateWindow( MDIGRL, hWndNULL )
					Set bGCreateMDI = FALSE
					Set bGShow = TRUE
					Call hWndMyMDI.cgPJTMDITechnique.CmRefreshMenu( TRUE )
					If strArgArray[4] != ''
						Call CreateOrShowWindow( strArgArray[4] )
					Call ChargerColUser()
			On SAM_AppExit
				Call GHtmlHelp.cmUninitializeHelp(  )
				Call GdbX7.CloseTraceFile( )
				If GdbX7.GetRBWVER( ) != X7_REG1
					Call EndCrypkey( )
					Call SalTimerKill ( hWndMyMDI, 1 )
				Call WIZTERMINATE()
			On SAM_SqlError
				Call GSqlError.CmSqlError( SalNumberToWindowHandle( wParam ), GSqlError.CmGetLastRequete( ), sGForm, sGItem, FALSE )
				Return FALSE
	Dialog Box: dlgDropDownCalendar
		Class: cgPJTDialogTypo
		Property Template:
		Class DLL Name:
		Title: Calendrier
		Accessories Enabled? Class Default
		Visible? Yes
		Display Settings
			Display Style? Class Default
			Visible at Design time? Yes
			Type of Dialog: Class Default
			Allow Dock to Parent? No
			Docking Orientation: All
			Window Location and Size
				Left: 9.063"
				Top: 1.958"
				Width:  3.233"
				Width Editable? Yes
				Height: 1.917"
				Height Editable? Yes
			Absolute Screen Location? Class Default
			Font Name: Default
			Font Size: Default
			Font Enhancement: Default
			Text Color: Default
			Background Color: Default
			Resizable? No
			Vertical Scroll? Yes
			Horizontal Scroll? Yes
		Description:
		Tool Bar
			Display Settings
				Display Style? Default
				Location? Top
				Visible? Yes
				Size: Default
				Size Editable? Yes
				Docking Toolbar? Class Default
				Toolbar Docking Orientation: Class Default
				Font Name: Default
				Font Size: Default
				Font Enhancement: Default
				Text Color: Default
				Background Color: Default
				Resizable? Class Default
			Contents
		Contents
			Child Table: tblTableTypoC
				Class Child Ref Key: 1
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Property Template:
				Class DLL Name:
				Display Settings
					Window Location and Size
						Left: 3.483"
						Top: 0.238"
						Width:  Class Default
						Width Editable? Class Default
						Height: Class Default
						Height Editable? Class Default
					Visible? No
					Font Name: Class Default
					Font Size: Class Default
					Font Enhancement: Class Default
					Text Color: Class Default
					Background Color: Class Default
					View: Class Default
					Allow Row Sizing? Class Default
					Lines Per Row: Class Default
				Memory Settings
					Maximum Rows in Memory: Class Default
					Discardable? Class Default
				Contents
					Column: colCode
						Class Child Ref Key: 2
						Class ChildKey: 0
						Class: cgPJTDialogTypo
						Property Template:
						Class DLL Name:
						Title:
						Visible? Class Default
						Editable? Class Default
						Maximum Data Length: Class Default
						Data Type: Class Default
						Justify: Class Default
						Width:  Class Default
						Width Editable? Class Default
						Format: Class Default
						Country: Class Default
						Input Mask: Class Default
						Cell Options
							Cell Type? Class Default
							Multiline Cell? Class Default
							Cell DropDownList
								Sorted? Class Default
								Vertical Scroll? Class Default
								Auto Drop Down? Class Default
								Allow Text Editing? Class Default
							Cell CheckBox
								Check Value:
								Uncheck Value:
								Ignore Case? Class Default
						List Values
						Message Actions
					Column: colLib
						Class Child Ref Key: 3
						Class ChildKey: 0
						Class: cgPJTDialogTypo
						Property Template:
						Class DLL Name:
						Title:
						Visible? Class Default
						Editable? Class Default
						Maximum Data Length: Class Default
						Data Type: Class Default
						Justify: Class Default
						Width:  Class Default
						Width Editable? Class Default
						Format: Class Default
						Country: Class Default
						Input Mask: Class Default
						Cell Options
							Cell Type? Class Default
							Multiline Cell? Class Default
							Cell DropDownList
								Sorted? Class Default
								Vertical Scroll? Class Default
								Auto Drop Down? Class Default
								Allow Text Editing? Class Default
							Cell CheckBox
								Check Value:
								Uncheck Value:
								Ignore Case? Class Default
						List Values
						Message Actions
					Column: colLibAbr
						Class Child Ref Key: 4
						Class ChildKey: 0
						Class: cgPJTDialogTypo
						Property Template:
						Class DLL Name:
						Title:
						Visible? Class Default
						Editable? Class Default
						Maximum Data Length: Class Default
						Data Type: Class Default
						Justify: Class Default
						Width:  Class Default
						Width Editable? Class Default
						Format: Class Default
						Country: Class Default
						Input Mask: Class Default
						Cell Options
							Cell Type? Class Default
							Multiline Cell? Class Default
							Cell DropDownList
								Sorted? Class Default
								Vertical Scroll? Class Default
								Auto Drop Down? Class Default
								Allow Text Editing? Class Default
							Cell CheckBox
								Check Value:
								Uncheck Value:
								Ignore Case? Class Default
						List Values
						Message Actions
					Column: colCachée
						Class Child Ref Key: 22
						Class ChildKey: 0
						Class: cgPJTDialogTypo
						Property Template:
						Class DLL Name:
						Title:
						Visible? Class Default
						Editable? Class Default
						Maximum Data Length: Class Default
						Data Type: Class Default
						Justify: Class Default
						Width:  Class Default
						Width Editable? Class Default
						Format: Class Default
						Country: Class Default
						Input Mask: Class Default
						Cell Options
							Cell Type? Class Default
							Multiline Cell? Class Default
							Cell DropDownList
								Sorted? Class Default
								Vertical Scroll? Class Default
								Auto Drop Down? Class Default
								Allow Text Editing? Class Default
							Cell CheckBox
								Check Value:
								Uncheck Value:
								Ignore Case? Class Default
						List Values
						Message Actions
					Column: colDefault
						Class Child Ref Key: 5
						Class ChildKey: 0
						Class: cgPJTDialogTypo
						Property Template:
						Class DLL Name:
						Title:
						Visible? Class Default
						Editable? Class Default
						Maximum Data Length: Class Default
						Data Type: Class Default
						Justify: Class Default
						Width:  Class Default
						Width Editable? Class Default
						Format: Class Default
						Country: Class Default
						Input Mask: Class Default
						Cell Options
							Cell Type? Class Default
							Multiline Cell? Class Default
							Cell DropDownList
								Sorted? Class Default
								Vertical Scroll? Class Default
								Auto Drop Down? Class Default
								Allow Text Editing? Class Default
							Cell CheckBox
								Check Value:
								Uncheck Value:
								Ignore Case? Class Default
						List Values
						Message Actions
				Functions
				Window Variables
				Message Actions
			Pushbutton: pbNew
				Class Child Ref Key: 6
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Property Template:
				Class DLL Name:
				Title:
				Window Location and Size
					Left: 11.283"
					Top: 0.238"
					Width:  Class Default
					Width Editable? Class Default
					Height: Class Default
					Height Editable? Class Default
				Visible? No
				Keyboard Accelerator: Class Default
				Font Name: Class Default
				Font Size: Class Default
				Font Enhancement: Class Default
				Picture File Name:
				Picture Transparent Color: Class Default
				Image Style: Class Default
				Text Color: Class Default
				Background Color: Class Default
				Button Appearance: Standard
				Message Actions
			Pushbutton: pbDelete
				Class Child Ref Key: 7
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Property Template:
				Class DLL Name:
				Title:
				Window Location and Size
					Left: 11.283"
					Top: 0.571"
					Width:  Class Default
					Width Editable? Class Default
					Height: Class Default
					Height Editable? Class Default
				Visible? No
				Keyboard Accelerator: Class Default
				Font Name: Class Default
				Font Size: Class Default
				Font Enhancement: Class Default
				Picture File Name:
				Picture Transparent Color: Class Default
				Image Style: Class Default
				Text Color: Class Default
				Background Color: Class Default
				Button Appearance: Standard
				Message Actions
			Pushbutton: pbOk
				Class Child Ref Key: 16
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Property Template:
				Class DLL Name:
				Title:
				Window Location and Size
					Left: 0.083"
					Top: 1.988"
					Width:  Class Default
					Width Editable? Class Default
					Height: Class Default
					Height Editable? Class Default
				Visible? Class Default
				Keyboard Accelerator: Class Default
				Font Name: Class Default
				Font Size: Class Default
				Font Enhancement: Class Default
				Picture File Name:
				Picture Transparent Color: Class Default
				Image Style: Class Default
				Text Color: Class Default
				Background Color: Class Default
				Button Appearance: Standard
				Message Actions
			Pushbutton: pbCancel
				Class Child Ref Key: 17
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Property Template:
				Class DLL Name:
				Title:
				Window Location and Size
					Left: 1.383"
					Top: 1.988"
					Width:  Class Default
					Width Editable? Class Default
					Height: Class Default
					Height Editable? Class Default
				Visible? Class Default
				Keyboard Accelerator: Class Default
				Font Name: Class Default
				Font Size: Class Default
				Font Enhancement: Class Default
				Picture File Name:
				Picture Transparent Color: Class Default
				Image Style: Class Default
				Text Color: Class Default
				Background Color: Class Default
				Button Appearance: Standard
				Message Actions
			Pushbutton: pbRecord
				Class Child Ref Key: 18
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Property Template:
				Class DLL Name:
				Title:
				Window Location and Size
					Left: 2.683"
					Top: 1.988"
					Width:  Class Default
					Width Editable? Class Default
					Height: Class Default
					Height Editable? Class Default
				Visible? Class Default
				Keyboard Accelerator: Class Default
				Font Name: Class Default
				Font Size: Class Default
				Font Enhancement: Class Default
				Picture File Name:
				Picture Transparent Color: Class Default
				Image Style: Class Default
				Text Color: Class Default
				Background Color: Class Default
				Button Appearance: Standard
				Message Actions
			Pushbutton: pbRestore
				Class Child Ref Key: 19
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Property Template:
				Class DLL Name:
				Title:
				Window Location and Size
					Left: 3.983"
					Top: 1.988"
					Width:  Class Default
					Width Editable? Class Default
					Height: Class Default
					Height Editable? Class Default
				Visible? Class Default
				Keyboard Accelerator: Class Default
				Font Name: Class Default
				Font Size: Class Default
				Font Enhancement: Class Default
				Picture File Name:
				Picture Transparent Color: Class Default
				Image Style: Class Default
				Text Color: Class Default
				Background Color: Class Default
				Button Appearance: Standard
				Message Actions
			Pushbutton: pbClose
				Class Child Ref Key: 20
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Property Template:
				Class DLL Name:
				Title:
				Window Location and Size
					Left: 5.283"
					Top: 1.988"
					Width:  Class Default
					Width Editable? Class Default
					Height: Class Default
					Height Editable? Class Default
				Visible? Class Default
				Keyboard Accelerator: Class Default
				Font Name: Class Default
				Font Size: Class Default
				Font Enhancement: Class Default
				Picture File Name:
				Picture Transparent Color: Class Default
				Image Style: Class Default
				Text Color: Class Default
				Background Color: Class Default
				Button Appearance: Standard
				Message Actions
			Frame
				Resource Id: 27017
				Class Child Ref Key: 23
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Window Location and Size
					Left: 3.283"
					Top: 0.071"
					Width:  Class Default
					Width Editable? Class Default
					Height: Class Default
					Height Editable? Class Default
				Visible? No
				Corners: Class Default
				Border Style: Class Default
				Border Thickness: Class Default
				Border Color: Class Default
				Background Color: Class Default
			Pushbutton: pb1
				Class Child Ref Key: 24
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Property Template:
				Class DLL Name:
				Title:
				Window Location and Size
					Left: Class Default
					Top: Class Default
					Width:  Class Default
					Width Editable? Class Default
					Height: Class Default
					Height Editable? Class Default
				Visible? No
				Keyboard Accelerator: Class Default
				Font Name: Class Default
				Font Size: Class Default
				Font Enhancement: Class Default
				Picture File Name:
				Picture Transparent Color: Class Default
				Image Style: Class Default
				Text Color: Class Default
				Background Color: Class Default
				Button Appearance: Standard
				Message Actions
					On PAM_Create
						Call CmSetEnableOnWindowMode(FALSE,FALSE,FALSE,FALSE)
			Custom Control: ccCalendar
				Class Child Ref Key: 0
				Class ChildKey: 0
				Class: cCalendarX7
				Property Template:
				Class DLL Name:
				Display Settings
					DLL Name:
					MS Windows Class Name:
					Style:  Class Default
					ExStyle:  Class Default
					Title:
					Window Location and Size
						Left: -0.017"
						Top: -0.012"
						Width:  3.2"
						Width Editable? Class Default
						Height: 1.833"
						Height Editable? Class Default
					Visible? Class Default
					Border? Class Default
					Etched Border? Class Default
					Hollow? Class Default
					Vertical Scroll? Class Default
					Horizontal Scroll? Class Default
					Tab Stop? Class Default
					Tile To Parent? Class Default
					Font Name: Class Default
					Font Size: Class Default
					Font Enhancement: Class Default
					Text Color: Class Default
					Background Color: Class Default
					DLL Settings
				Message Actions
					On SAM_Create
						Call SalGetWindowLoc( hWndDate, nXPos, nYPos )
						Call SalSetWindowLoc( dlgDropDownCalendar, nXPos, nYPos )
						Call ccCalendar.SetFocusDate( hWndDate.cgDataFieldDt.CmGetValue( ) )
					On SAM_Click
						Call SélectionnerDate( )
			Option Button: pbTraces
				Class Child Ref Key: 27
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Property Template:
				Class DLL Name:
				Title:
				Window Location and Size
					Left: Class Default
					Top: Class Default
					Width:  Class Default
					Width Editable? Class Default
					Height: Class Default
					Height Editable? Class Default
				Visible? Class Default
				Font Name: Class Default
				Font Size: Class Default
				Font Enhancement: Class Default
				Picture File Name:
				Picture Transparent Color: Class Default
				Button Style: Class Default
				Image Style: Class Default
				Text Color: Class Default
				Background Color: Class Default
				Button Appearance: Class Default
				Message Actions
			Option Button: obLanguage
				Class Child Ref Key: 28
				Class ChildKey: 0
				Class: cgPJTDialogTypo
				Property Template:
				Class DLL Name:
				Title:
				Window Location and Size
					Left: Class Default
					Top: Class Default
					Width:  Class Default
					Width Editable? Class Default
					Height: Class Default
					Height Editable? Class Default
				Visible? Class Default
				Font Name: Class Default
				Font Size: Class Default
				Font Enhancement: Class Default
				Picture File Name:
				Picture Transparent Color: Class Default
				Button Style: Class Default
				Image Style: Class Default
				Text Color: Class Default
				Background Color: Class Default
				Button Appearance: Class Default
				Message Actions
		Functions
			Function: SélectionnerDate
				Description:
				Returns
				Parameters
				Static Variables
				Local variables
					Date/Time: dtDateHeure
				Actions
					If SalParentWindow( hWndForm ).cgwWindow..CmGetAccess( ) = ACCESS_CONSULTATION
						Call SalSendMsg ( pbCancel , SAM_Click, wParam, lParam )
					Else
						Call ccCalendar.GetFocusDate( ccCalendar.dtDateChoisie )
						If SalFmtGetFormat( hWndDate ) = 3 
							Set dtDateHeure = SalDateConstruct(
									SalDateYear( ccCalendar.dtDateChoisie ),
									SalDateMonth( ccCalendar.dtDateChoisie ),
									SalDateDay( ccCalendar.dtDateChoisie ),
									SalDateHour( SalDateCurrent ( ) ),
									SalDateMinute( SalDateCurrent ( ) ),
									SalDateSecond( SalDateCurrent ( ) ) )
							Call hWndDate.cgDataFieldDt.CmSetValue( dtDateHeure )
						Else
							Call hWndDate.cgDataFieldDt.CmSetValue( ccCalendar.dtDateChoisie )
						Call SalSendMsg ( pbOk, SAM_Click, wParam, lParam )
		Window Parameters
			Window Handle: hWndDate
		Window Variables
			Number: nStyle
			Number: nXPixel
			Number: nYPixel
			Number: nXPos
			Number: nYPos
		Message Actions
			On PAM_SetInstanceVariable
				Call CmSetObjectType( OBJ_Calendar )
				Call CmSetHelpIndex( HLP_DropDownCalendar )
			On PAM_CreateComplete
				Call SalCenterWindow ( dlgDropDownCalendar )
	Form Window: dlgOUTERR01
		Class: cgForm
		Property Template:
		Class DLL Name:
		Title: Liste de contrôle
		Icon File:
		Accessories Enabled? Class Default
		Visible? Class Default
		Display Settings
			Display Style? Class Default
			Visible at Design time? Yes
			Automatically Created at Runtime? Class Default
			Initial State: Class Default
			Maximizable? No
			Minimizable? No
			Allow Child Docking? No
			Docking Orientation: All
			System Menu? Class Default
			Resizable? Class Default
			Window Location and Size
				Left: 1.663"
				Top: 0.427"
				Width:  8.0"
				Width Editable? Class Default
				Height: 2.274"
				Height Editable? Class Default
			Form Size
				Width:  Class Default
				Height: Class Default
				Number of Pages: Class Default
			Font Name: Class Default
			Font Size: Class Default
			Font Enhancement: Class Default
			Text Color: Class Default
			Background Color: 3D Face Color
		Description:
		Named Menus
		Menu
		Tool Bar
			Display Settings
				Display Style? Class Default
				Location? Class Default
				Visible? Class Default
				Size: Class Default
				Size Editable? Class Default
				Docking Toolbar? Class Default
				Toolbar Docking Orientation: Class Default
				Font Name: Class Default
				Font Size: Class Default
				Font Enhancement: Class Default
				Text Color: Class Default
				Background Color: Class Default
				Resizable? Class Default
			Contents
		Contents
			Custom Control: ccMainSplitter
				Class Child Ref Key: 0
				Class ChildKey: 0
				Class: cXSalHSplitter
				Property Template:
				Class DLL Name:
				Display Settings
					DLL Name:
					MS Windows Class Name:
					Style:  Class Default
					ExStyle:  Class Default
					Title:
					Window Location and Size
						Left: Default
						Top: Default
						Width:  Class Default
						Width Editable? Class Default
						Height: Class Default
						Height Editable? Class Default
					Visible? No
					Border? Class Default
					Etched Border? Class Default
					Hollow? Class Default
					Vertical Scroll? Class Default
					Horizontal Scroll? Class Default
					Tab Stop? Class Default
					Tile To Parent? Yes
					Font Name: Class Default
					Font Size: Class Default
					Font Enhancement: Class Default
					Text Color: Class Default
					Background Color: Default
					DLL Settings
				Message Actions
			Child Table: tblErreurs
				Class Child Ref Key: 0
				Class ChildKey: 0
				Class: cgTable
				Property Template:
				Class DLL Name:
				Display Settings
					Window Location and Size
						Left: 0.0"
						Top: 0.0"
						Width:  7.483"
						Width Editable? Class Default
						Height: 1.988"
						Height Editable? Class Default
					Visible? Class Default
					Font Name: Class Default
					Font Size: Class Default
					Font Enhancement: Class Default
					Text Color: Class Default
					Background Color: 3D Face Color
					View: Class Default
					Allow Row Sizing? Class Default
					Lines Per Row: Class Default
				Memory Settings
					Maximum Rows in Memory: Class Default
					Discardable? Class Default
				Contents
					Column: colLine
						Class Child Ref Key: 0
						Class ChildKey: 0
						Class: cgColumnDataFieldNb
						Property Template:
						Class DLL Name:
						Title: Ligne
						Visible? Class Default
						Editable? Class Default
						Maximum Data Length: Class Default
						Data Type: Class Default
						Justify: Class Default
						Width:  0.6"
						Width Editable? Class Default
						Format: Class Default
						Country: Class Default
						Input Mask: Class Default
						Cell Options
							Cell Type? Class Default
							Multiline Cell? Class Default
							Cell DropDownList
								Sorted? Class Default
								Vertical Scroll? Class Default
								Auto Drop Down? Class Default
								Allow Text Editing? Class Default
							Cell CheckBox
								Check Value:
								Uncheck Value:
								Ignore Case? Class Default
						List Values
						Message Actions
							On PAM_Create
								Call CmSetEnableOnWindowMode( FALSE, FALSE, FALSE, FALSE )
					Column: colCol
						Class Child Ref Key: 0
						Class ChildKey: 0
						Class: cgColumnDataFieldStr
						Property Template:
						Class DLL Name:
						Title: Objet
						Visible? Class Default
						Editable? Class Default
						Maximum Data Length: Class Default
						Data Type: Class Default
						Justify: Class Default
						Width:  0.9"
						Width Editable? Class Default
						Format: Class Default
						Country: Class Default
						Input Mask: Class Default
						Cell Options
							Cell Type? Class Default
							Multiline Cell? Class Default
							Cell DropDownList
								Sorted? Class Default
								Vertical Scroll? Class Default
								Auto Drop Down? Class Default
								Allow Text Editing? Class Default
							Cell CheckBox
								Check Value:
								Uncheck Value:
								Ignore Case? Class Default
						List Values
						Message Actions
							On PAM_Create
								Call CmSetEnableOnWindowMode( FALSE, FALSE, FALSE, FALSE )
					Column: colType
						Class Child Ref Key: 0
						Class ChildKey: 0
						Class: cgColumnDataFieldStr
						Property Template:
						Class DLL Name:
						Title: Type
						Visible? Class Default
						Editable? Class Default
						Maximum Data Length: Class Default
						Data Type: Class Default
						Justify: Class Default
						Width:  1.383"
						Width Editable? Class Default
						Format: Class Default
						Country: Class Default
						Input Mask: Class Default
						Cell Options
							Cell Type? Class Default
							Multiline Cell? Class Default
							Cell DropDownList
								Sorted? Class Default
								Vertical Scroll? Class Default
								Auto Drop Down? Class Default
								Allow Text Editing? Class Default
							Cell CheckBox
								Check Value:
								Uncheck Value:
								Ignore Case? Class Default
						List Values
						Message Actions
							On PAM_Create
								Call CmSetEnableOnWindowMode( FALSE, FALSE, FALSE, FALSE )
					Column: colTypeCache
						Class Child Ref Key: 0
						Class ChildKey: 0
						Class: cgColumnDataFieldNb
						Property Template:
						Class DLL Name:
						Title:
						Visible? No
						Editable? Class Default
						Maximum Data Length: Class Default
						Data Type: Class Default
						Justify: Class Default
						Width:  5.0"
						Width Editable? Class Default
						Format: Class Default
						Country: Class Default
						Input Mask: Class Default
						Cell Options
							Cell Type? Class Default
							Multiline Cell? Class Default
							Cell DropDownList
								Sorted? Class Default
								Vertical Scroll? Class Default
								Auto Drop Down? Class Default
								Allow Text Editing? Class Default
							Cell CheckBox
								Check Value:
								Uncheck Value:
								Ignore Case? Class Default
						List Values
						Message Actions
							On PAM_Create
								Call CmSetEnableOnWindowMode( FALSE, FALSE, FALSE, FALSE )
					Column: colLib
						Class Child Ref Key: 0
						Class ChildKey: 0
						Class: cgColumnDataFieldLgStr
						Property Template:
						Class DLL Name:
						Title: Message
						Visible? Class Default
						Editable? Class Default
						Maximum Data Length: 2000
						Data Type: Class Default
						Justify: Class Default
						Width:  5.983"
						Width Editable? Class Default
						Format: Class Default
						Country: Class Default
						Input Mask: Class Default
						Cell Options
							Cell Type? Class Default
							Multiline Cell? Class Default
							Cell DropDownList
								Sorted? Class Default
								Vertical Scroll? Class Default
								Auto Drop Down? Class Default
								Allow Text Editing? Class Default
							Cell CheckBox
								Check Value:
								Uncheck Value:
								Ignore Case? Class Default
						List Values
						Message Actions
							On PAM_Create
								Call CmSetEnableOnWindowMode( FALSE, FALSE, FALSE, FALSE )
					Column: colErreurItem
						Class Child Ref Key: 0
						Class ChildKey: 0
						Class: cgColumnDataFieldNb
						Property Template:
						Class DLL Name:
						Title:
						Visible? No
						Editable? Class Default
						Maximum Data Length: Class Default
						Data Type: Class Default
						Justify: Class Default
						Width:  5.0"
						Width Editable? Class Default
						Format: Class Default
						Country: Class Default
						Input Mask: Class Default
						Cell Options
							Cell Type? Class Default
							Multiline Cell? Class Default
							Cell DropDownList
								Sorted? Class Default
								Vertical Scroll? Class Default
								Auto Drop Down? Class Default
								Allow Text Editing? Class Default
							Cell CheckBox
								Check Value:
								Uncheck Value:
								Ignore Case? Class Default

Problème car soit j'ai mal appelé ma fonction recursive :

Heritage($nIndentForm, $nIndentChild, $tab_Form[$tab_form_ligne][0], $tab_Child[$tab_child_ligne][5]);

Sinon elle ne marche pas, car elle ne rentre ni dans le IF ni dans le ELSE car mon tableau ne change pas de valeur.

Ou bien peut être y a un problème avec le parcours de mon fichier ligne a ligne et les variable de la fonction ??

Merci de m'aider je suis vraiment embêté la ... ;s

[Dimitry.e]

Je n'ai pas tout saisi, là...
Où est le rapport avec ton parcours récursif d'un arbre ?

[Philou67430]

J'avais bien senti que, depuis le début, le besoin était mal exprimé

[oliviernouhi]

J'ai associé le parcours de mon arbre au parcours de mon fichier étant donné que ;

mon fichier comporte des tabulations à chaque début de ligne, c'est avec ça que je me repère, d'où les nIndentFormP qui commence tjs par X tabulations (le père : la racine) nIndentChildP qui commence tjs par Y tabulations ( le fils : la feuille ou l'élément suivant)

et le but c'est dire remonter dans mon tableau que cette élément (la child) à pour père (la form) et de façon récursive pour gérer une profondeur de père, sous père, enfant, sous enfants, etc inconnu...

Voici un petit schéma :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
		Form (ID = 5)		'=> Na pas de père (NULL)'
				Child (ID = 3)		'=> A pour père l élément ID 5'
						Sous Child (ID = 12)		'=> A pour père l élément ID 3'
								Sous sous Child			'=> A pour père l élément ID 12'
										etc...
						Sous Child (ID = 13)		'=> A pour père ID 3'
				Child (ID = 4)		'=> A pour père ID 5'
						etc...
								etc...
						etc..
				etc..
		Form (ID = 6)		'=> Na pas de père (NULL'

En gros,

SI mon indentation de ma Form (père) est plus petit que celle de ma Child (enfant), alors je suis dans le cas du père et de l'enfant, donc j'écris dans le tableau des enfants l'identifiant du père ($tab_ChildP[$tab_child_ligne][5]=$tab_FormP[$tab_form_ligne][0]

SINON ( donc : si mon indentation de ma Form est plus grande),
alors ça veut dire que je lui même est un père alors je n'écris rien car se n'est pas un enfant.

voici ce que fait ma fonction_recursive.pl

Est plus claire ?

[Philou67430]

Ca n'a rien à voir avec le parcours d'un arbre, mais plutôt avec l'analyse d'un d'un texte tabulé pour en construire un arbre...

Et dans ce contexte, j'ai du mal à imaginer un algorithme introduisant la récursivité (il sera notamment difficile de trouver une condition de fin lorsque lors de l'analyse des tabulations, le fichier fera passer d'un enfant à son grand-père directement).

J'aurais plutôt vu un algorithme qui gère une pile de nœud. Malheureusement, je n'aurais pas le temps de m'investir rapidement dans cet algorithme.

[Philou67430]

Une idée : essaye d'utiliser le module Tree::Parser avec la méthode useTabIndentedFilters

[oliviernouhi]

merci pour votre aide j'ai compris le principe mais c'est un peu dur cette fonction récursive, j'ai fais sans fonction récursive ^^

[Philou67430]

Avec le module Tree, voici une petite implémentation qui charge le fichier donné en exemple sous forme d'un arbre, et le traverse pour le ré-afficher. La seule différence obtenue lors de la reconstruction est l'introduction des noeuds manquants (qui sont identifiables par [undef]).
Le noeud racine est appelé du nom du fichier d'entrée.
Pour lancer le script :

Code :

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

perl tab2tree.pl in.txt >out.txt

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
use Tree;
 
my $current_indent = 0;
my $root = Tree->new($ARGV[0]);
my $current_node = $root;
while (<>) {
  chomp;
 
  s/^(\t*)//;
  my ($indent) = $1;
 
  $indent = length ($indent);
  my $indent_diff = $indent - $current_indent;
 
  # Add missing sub-node levels
  if ($indent_diff > 0) {
    foreach (2 .. $indent_diff) {
      $current_node = $current_node->children(-1) // $root;
      $current_node->add_child(Tree->new());
    }
 
    # Select last child of current node to go down for one level
    $current_node = $current_node->children(-1);
  }
  # Go up
  elsif ($indent_diff < 0) {
    foreach (1 .. (-$indent_diff)) {
      $current_node = $current_node->parent();
    }
  }
 
  # Add current line in children of current node
  $current_node->add_child(Tree->new($_));
  $current_indent = $indent;
}
 
print map { "\t" x $_->depth() . ($_->value() // "[undef]") . "\n" } $root->traverse();

Je n'ai pas essayé ce que cela donnait avec Tree::Parser