WDForge.org - Forums

Re: Rupture

Sujet: Re: Rupture
par arsene12 sur 20/8/2007 20:50:19

Bonjour.Je suis arrivé au résultat que je souhaitais à travers 2 méthodes. Les codes suivant servent à initialiser une table mémoire. Les voici :

La 1ère :

// 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 :

//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