Discussion :

[Arsene12]

Bonjour,
J'ai crée une fenetre avec un champ de table relié à un fichier et j'essaye de programmer pour intercaler une nouvelle ligne entre chaque ligne de ma table.

J'ai résolu le problème pour un nombre déterminé de ligne (ex.:10) en rentrant le code suivant dans la rubrique "Fin d'initialisation de Table" du code du champs de table :

Code :

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

1
2
3
4
5
Indice est un entier  
POUR Indice = 10 A 1 PAS -1  
TableInsèreLigne(TABLE_EXPRESS_REQ_Requête1,Indice)  
TableEnregistre(TABLE_EXPRESS_REQ_Requête1)  
FIN

Je souhaiterai maintenant pouvoir programmer la même chose pour x lignes. J'aimerai savoir comment faire pour récupérer l'indice de la dernière ligne qui me servirait à déterminer ma boucle.

Merci de votre aide.

PS: J'ai une 2ème solution avec un pas positif :

Code :

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

1
2
3
4
5
Indice est un entier  
HLitPremier(EXPRESS_REQ_Requête1)  
POUR Indice = 1 A 20 PAS + 2 TableInsèreLigne(TABLE_EXPRESS_REQ_Requête1,Indice)  
TableEnregistre(TABLE_EXPRESS_REQ_Requête1)  
FIN

[Arsene12]

Bonjour,
J'ai trouvé la solution, la voici :

Code :

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

1
2
3
4
5
6
Indice est un entier
ResNombreLigne est un entier
ResNombreLigne = TableOccurrence(TABLE_EXPRESS_REQ_Requête1)
POUR Indice = ResNombreLigne A 1 PAS - 1
TableInsèreLigne(TABLE_EXPRESS_REQ_Requête1,Indice)
TableEnregistre(TABLE_EXPRESS_REQ_Requête1)

Je cherche maintenant à insérer ma ligne uniquement dans le cas ou il y a rupture. Je parviens à le faire pour la 1ère rupture mais je n'arrive pas à réinitialiser pour passer à la rupture suivante :

Code :

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

1
2
3
POUR Indice = DébutRupture A FinRupture PAS + ?
TableInsèreLigne(TABLE_EXPRESS_REQ_Requête1,FinRupture + 1)
TableEnregistre(TABLE_EXPRESS_REQ_Requête1)

Merci de votre aide.

[Arsene12]

Bonsoir,
J'ai presque solutionné mon problème.
J'ai crée d'abord une table mémoire et ensuite je l'ai initialisé avec le code suivant :

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
FichierVersTableMémoire(TABLE_Table1, "EXPRESS_REQ_Requête1") 
clc_SauveChaine est une chaîne 
clc_chaine est une chaîne 
chrubrik2 est une chaîne 
chrubrik3 est une chaîne 
TableSupprimeTout(TABLE_Table1) 
HLitPremier(EXPRESS_REQ_Requête1,Rubrik1) 
TANTQUE PAS HEnDehors(Rubrik1) 
	clc_SauveChaine=EXPRESS_REQ_Requête1.Rubrik1 
	clc_chaine=EXPRESS_REQ_Requête1.Rubrik1 
	chrubrik2=EXPRESS_REQ_Requête1.Rubrik2 
   chrubrik3=EXPRESS_REQ_Requête1.Rubrik3 
TANTQUE clc_SauveChaine = clc_chaine ET PAS                                                                                                                    HEnDehors(EXPRESS_REQ_Requête1) 
	TableAjouteLigne(TABLE_Table1,clc_chaine,chrubrik2,chrubrik3) 
		HLitSuivant(EXPRESS_REQ_Requête1,Rubrik1) 
		clc_chaine=EXPRESS_REQ_Requête1.Rubrik1 
	FIN 
	TableAjoute(TABLE_Table1,"rupture") 
	clc_SauveChaine=EXPRESS_REQ_Requête1.Rubrik1 
FIN

Quand je fais un test, ça fonctionne mais windev me dit qu'à l'exécution certains codes ne fonctionneront pas. Il doit manquer quelque chose. Je vais y réfléchir
Si vous savez comment on gère la fin de fichier, je vous saurai gré de votre aide. Merci.
Arsène

[Jannus]

HEndehors()

[Arsene12]

Merci pour votre aide. Finalement ça fonctionne. Je suis arrivé au résultat espéré à travers 2 méthodes. Les voici :

La 1ère :

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
// Insertion d’une ligne de rupture entre chaque //rupture d’une table mémoire :
//(1ère Méthode) :
 
//(Code à insérer dans la partie « Initialisation » du code de la table)
 
FichierVersTableMémoire(TABLE_Table1, "EXPRESS_REQ_Requête1")
clc_SauveChaine est une chaîne
clc_chaine est une chaîne
chrubrik2 est une chaîne
chrubrik3 est une chaîne
TableSupprimeTout(TABLE_Table1)
HLitPremier(EXPRESS_REQ_Requête1,Rubrik1)
TANTQUE PAS HEnDehors(Rubrik1)
	clc_SauveChaine=EXPRESS_REQ_Requête1.Rubrik1
	clc_chaine=EXPRESS_REQ_Requête1.Rubrik1
	chrubrik2=EXPRESS_REQ_Requête1.Rubrik2
   chrubrik3=EXPRESS_REQ_Requête1.Rubrik3
TANTQUE clc_SauveChaine = clc_chaine ET PAS                                                                                                                    HEnDehors(EXPRESS_REQ_Requête1)
	TableAjouteLigne(TABLE_Table1,clc_chaine,chrubrik2,chrubrik3)
		HLitSuivant(EXPRESS_REQ_Requête1,Rubrik1)
		clc_chaine=EXPRESS_REQ_Requête1.Rubrik1
  		chrubrik2=EXPRESS_REQ_Requête1.Rubrik2
  		chrubrik3=EXPRESS_REQ_Requête1.Rubrik3
 
	FIN
	TableAjoute(TABLE_Table1,clc_SauveChaine)
	clc_SauveChaine=EXPRESS_REQ_Requête1.Rubrik1
FIN

La 2ème :

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
//Insertion d’une ligne de rupture entre... chaque rupture d’une table mémoire :
//(1ère Méthode) :
//(Code à insérer dans la partie « Initialisation » du code de la table)
 
FichierVersTableMémoire(TABLE_Table1, "EXPRESS_REQ_Requête1")
// Initialisation des variables
Chrubrik1 est une chaîne
Chrubrik2 est une chaîne
Chrubrik3 est une chaîne
nLgn est un entier
TableSupprimeTout(TABLE_Table1)
HLitPremier(EXPRESS_REQ_Requête1,RUBRIK1)
Chrubrik1 = EXPRESS_REQ_Requête1.RUBRIK1
Chrubrik2 = EXPRESS_REQ_Requête1.RUBRIK2
Chrubrik3 = EXPRESS_REQ_Requête1.RUBRIK3
// Parcours du fichier
TANTQUE PAS HEnDehors(EXPRESS_REQ_Requête1)
HLitRecherchePremier(EXPRESS_REQ_Requête1,RUBRIK1,Chrubrik1,hGénérique)
	TANTQUE HTrouve(EXPRESS_REQ_Requête1)	
		// Ajout dans la table de l'enregistrement trouvé
		TableAjouteLigne(TABLE_Table1,Chrubrik1,Chrubrik2,Chrubrik3)
		HLitSuivant(EXPRESS_REQ_Requête1,Chrubrik1)
		Chrubrik2 = EXPRESS_REQ_Requête1.RUBRIK2
Chrubrik3 = EXPRESS_REQ_Requête1.RUBRIK3
	FIN	
	// Ajout d'une ligne vierge < Rupture >
	nLgn = TableAjouteLigne(TABLE_Table1,Chrubrik1,Chrubrik2,Chrubrik3)	
	// Propriétés de le ligne < Couleur/Hauteur >
	TABLE_Table1[nLgn]..CouleurFond = RVB(205, 230, 255)
	TABLE_Table1[nLgn]..Hauteur = 20	
	// Condition suivante
	Chrubrik1 = EXPRESS_REQ_Requête1.RUBRIK1
FIN