Voila 3 problemes resolus dans cette source:
- Exploitation non sequentielle des fichiers, avec des tables associes
- Tri des ces tables (indirectement, des fichiers)
- Construction des listes de sortie dynamiques (avec les dimmension des colonnes variables, selon le contexte des donnees)
Utiliser le compilateur GCC sous WINDOWS.
Source / Exemple :
//08-sep-2008 16:57:32
/* La ligne de commande pour construire listocc.exe
gcc -fpack-struct -Wno-pointer-sign -olstoc.exe lstoc.c
typedef unsigned short ushort;
typedef unsigned long ulong;
typedef unsigned char uchar;
#include <stdio.h>
#include <conio.h>
#include <io.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <fcntl.h>
#include <sys\stat.h>
//-------------------------------------
uchar nom_nomenclature[]="NOMENCL.FFF";
short nf_nom;
ulong nb_art_nom;
ushort RCS_NOM; //longueur d'article
struct ART_NOM ///structure d'article
{
ulong code;
uchar nom_d_article[40];
uchar um[3];
uchar rien[29];
} art_nom;
struct TAB_NOM //table associe au fichier
{
ulong code;
uchar nom_d_article[40];
ulong position_dans_fichier_nom;
} *p_nom,*q_nom;
int fc_nom(void const *a,void const *b) //fonction pour qsort
{
struct TAB_NOM const *p1=a;
struct TAB_NOM const *p2=b;
return strnicmp(p1->nom_d_article,p2->nom_d_article,40);
}
ulong LIEU;
int cherche_nom(ulong code) //function qui cherche un certain code
{
for(LIEU=0;LIEU<nb_art_nom;LIEU++)
{
p_nom=q_nom+LIEU;
if(code==p_nom->code) return 0;
}
return 1;
}
//--------------------------------
uchar nom_du_stock[]="STOCKS.FFF";
short nf_stock;
ulong nb_art_stock;
ushort RCS_STOCK; //longueur d'article
struct ART_STOCK //structure d'article
{
ushort gestion;
ulong code;
double prix; // *1000 pour obtenir des valeurs entiers
double quantite; // *1000 idem
uchar rien[6];
} art_stock;
struct TAB_STOCK //table associe au fichier
{
ulong position_dans_table_nom;
double prix;
ushort position_dans_fichier_stock;
} *p_stock,*q_stock;
int fc_stock(void const *a,void const *b) //fonction pour qsort
{
struct TAB_STOCK const *p1=a;
struct TAB_STOCK const *p2=b;
if(p1->position_dans_table_nom<p2->position_dans_table_nom) return -1;
if(p1->position_dans_table_nom>p2->position_dans_table_nom) return 1;
if(p1->prix<p2->prix) return -1;
if(p1->prix>p2->prix) return 1;
return 0;
}
void tete_de_liste(void);
void total_code(void);
//Variables
//---------
FILE *fich;
ushort nb_lignes_sur_page,compteur_lignes;
uchar man[500]; //string pour sprintf
ulong i,entier;
ushort j;
ulong ancien_code;
ulong LIBRE;
uchar *O;
ushort mois,annee;
double quantite_code,valeur_code,valeur_courante,VALEUR_TOTALE;
uchar nb_positions_sur_code,nb_char[6];
ushort ligne_max;
int main(void)
{
RCS_NOM=sizeof(art_nom);
RCS_STOCK=sizeof(art_stock);
//Pour la date des stocks
mois=4;
annee=2008;
//Ouverture du fichier nomenclature
if((nf_nom=open(nom_nomenclature,O_BINARY|O_RDONLY))<1)
{
printf("\nFichier %s non trouve.",nom_nomenclature);
exit(0);
}
//Longueur en octets
nb_art_nom=filelength(nf_nom);
//Le fichier est valide ?
if(nb_art_nom%RCS_NOM)
{
printf("\nFichier %s corrompu.",nom_nomenclature);
exit(0);
}
//Longueur en articles
nb_art_nom/=RCS_NOM;
//Ouverture du fichier stocks
if((nf_stock=open(nom_du_stock,O_BINARY|O_RDONLY))<1)
{
printf("\nFichier %s non trouve.",nom_du_stock);
exit(0);
}
//Longueur en octets
nb_art_stock=filelength(nf_stock);
//Le fichier est valide ?
if(nb_art_stock%RCS_STOCK)
{
printf("\nFichier %s corrompu.",nom_du_stock);
exit(0);
}
//Longueur en articles
nb_art_stock/=RCS_STOCK;
//Necessaire de memoire pour stocker les tables
LIBRE=nb_art_nom*sizeof(*q_nom)+nb_art_stock*sizeof(*q_stock);
//Reservation de memoire
if((O=malloc((size_t)LIBRE))==NULL)
{
printf("\nImpossible de reserver %lu d'octets en memoire.",LIBRE);
exit(0);
}
//Construction de la table TAB_NOM
p_nom=q_nom=(struct TAB_NOM *)O;
entier=0; //nombre d-elements
for(i=0;i<nb_art_nom;i++)
{
read(nf_nom,&art_nom,RCS_NOM);
if(!art_nom.code) continue; //article efface
p_nom->code=art_nom.code;
strncpy(p_nom->nom_d_article,art_nom.nom_d_article,40);
p_nom->position_dans_fichier_nom=i;
p_nom++;entier++;
}
nb_art_nom=entier;
//Tri de la table TAB_NOM
qsort((uchar *)q_nom,nb_art_nom,sizeof(*q_nom),fc_nom);
//La fin de la table TAB_NOM
p_nom=q_nom+nb_art_nom;
//Construction de la table TAB_STOCK
p_stock=q_stock=(struct TAB_STOCK *)p_nom;
entier=0;
//et calcul des nombres des characters des colonnes de l'entet de la liste
memset(nb_char,0,6);
for(i=0;i<nb_art_stock;i++)
{
read(nf_stock,&art_stock,RCS_STOCK);
//Pour cet exemple, seulement les gestions 11 et 13
if(art_stock.gestion!=11&&art_stock.gestion!=13) continue;
if(cherche_nom(art_stock.code)) continue;
lseek(nf_nom,p_nom->position_dans_fichier_nom*RCS_NOM,SEEK_SET);
read(nf_nom,&art_nom,RCS_NOM);
//combien des chars
for(j=40;j;j--) if(art_nom.nom_d_article[j-1]!=' ') break;
if(j>nb_char[5]) nb_char[5]=j;
p_stock->position_dans_table_nom=LIEU; //pour ordre alphabetique
p_stock->prix=art_stock.prix;
p_stock->position_dans_fichier_stock=i;
p_stock++;entier++;
//combien des chars pour code
j=sprintf(man,"%lu",art_stock.code);
if(nb_char[0]<j) nb_char[0]=j;
//combien des chars pour prix
j=sprintf(man,"%.3f",1e-3*art_stock.prix);
if(j>nb_char[1]) nb_char[1]=j;
//combien des chars pour quantite
j=sprintf(man,"%.3f",1e-3*art_stock.quantite);
if(j>nb_char[3]) nb_char[3]=j;
//calcul de la valeur
valeur_courante=floor(1e-4*fabs(art_stock.quantite)*art_stock.prix+0.5);
if(art_stock.quantite<0e0) valeur_courante=-valeur_courante;
//combien des chars pour valeur
j=sprintf(man,"%.2f",1e-2*valeur_courante);
if(j>nb_char[4]) nb_char[4]=j;
}
nb_art_stock=entier;
//Tri de la table TAB_STOCK
qsort((uchar *)q_stock,nb_art_stock,sizeof(*q_stock),fc_stock);
//pour la ligne de total_code, calcul des colonnes
nb_positions_sur_code=0;
ancien_code=0xFFFFFFFF;
for(i=0;i<nb_art_stock;i++)
{
p_stock=q_stock+i;
lseek(nf_stock,p_stock->position_dans_fichier_stock*RCS_STOCK,SEEK_SET);
read(nf_stock,&art_stock,RCS_STOCK);
if(ancien_code!=art_stock.code)
{
if(ancien_code!=0xFFFFFFFF)
{
j=sprintf(man,"%.3f",1e-3*quantite_code);
if(j>nb_char[3]) nb_char[3]=j;
j=sprintf(man,"%.2f",1e-2*valeur_code);
if(j>nb_char[4]) nb_char[4]=j;
}
ancien_code=art_stock.code;
valeur_code=quantite_code=0e0;
}
valeur_courante=floor(1e-4*fabs(art_stock.quantite)*art_stock.prix+0.5);
if(art_stock.quantite<0e0) valeur_courante=-valeur_courante;
quantite_code+=art_stock.quantite;
valeur_code+=valeur_courante;
}
if(ancien_code!=0xFFFFFFFF)
{
j=sprintf(man,"%.3f",1e-3*quantite_code);
if(j>nb_char[3]) nb_char[3]=j;
j=sprintf(man,"%.2f",1e-2*valeur_code);
if(j>nb_char[4]) nb_char[4]=j;
}
//Les longueurs minimum necessaires
if(nb_char[0]<4) nb_char[0]=4; //longueur du mot "Code" = 4
if(nb_char[1]<4) nb_char[1]=4; //longueur du mot "Prix" = 4
nb_char[2]=3; //longueur du mot "U/M" = 3
if(nb_char[3]<8) nb_char[3]=8; //longueur du mot "Quantite" = 8
if(nb_char[4]<6) nb_char[4]=6; //longueur du mot "Valeur" = 6
if(nb_char[5]<7) nb_char[5]=7; //longueur du mot "Denomme" = 7
//Calcule de la longueur d'une ligne
ligne_max=1;for(j=0;j<6;j++) ligne_max+=nb_char[j]+1;
printf("Nombre des lignes sur une page:");
scanf("%u",&nb_lignes_sur_page);
compteur_lignes=nb_lignes_sur_page+1;
//Fichier image de la liste sortie
fich=stdout;
// ou
//fich=stdprn;
// ou
//fich=fopen("liste.doc","wt");
//Debut de la liste
VALEUR_TOTALE=0e0;
nb_positions_sur_code=0;
ancien_code=0xFFFFFFFF;
for(i=0;i<nb_art_stock;i++)
{
p_stock=q_stock+i;
lseek(nf_stock,p_stock->position_dans_fichier_stock*RCS_STOCK,SEEK_SET);
read(nf_stock,&art_stock,RCS_STOCK);
//Si un autre code
if(ancien_code!=art_stock.code) total_code();
//Si on depasse la capacite de la page
if(compteur_lignes+1>nb_lignes_sur_page)
{
printf("Presse Enter pour continuer ou X pour abandonner");
if(toupper(getch())=='X') return 1;
tete_de_liste();
}
compteur_lignes++;
if(nb_positions_sur_code==0) //Premiere position sur cet code
{
cherche_nom(art_stock.code);
lseek(nf_nom,p_nom->position_dans_fichier_nom*RCS_NOM,SEEK_SET);
read(nf_nom,&art_nom,RCS_NOM);
if(art_nom.nom_d_article[0]==' ') art_nom.nom_d_article[0]='?';
}
else //Un autre position
{
memset(art_nom.um,' ',3);
memset(art_nom.nom_d_article,' ',40);
}
valeur_courante=floor(1e-4*fabs(art_stock.quantite)*art_stock.prix+0.5);
if(art_stock.quantite<0e0) valeur_courante=-valeur_courante;
VALEUR_TOTALE+=valeur_courante;
if(art_nom.nom_d_article[0]!=' ') //Premiere position sur cet code
{
fprintf(fich,"|%*lu|",nb_char[0],art_stock.code);
}
else
{
fprintf(fich,"|%*s|",nb_char[0],"");
}
fprintf(fich,"%*.3f|",nb_char[1],1e-3*art_stock.prix);
fprintf(fich,"%3.3s|",art_nom.um);
fprintf(fich,"%*.3f|",nb_char[3],1e-3*art_stock.quantite);
fprintf(fich,"%*.2f|",nb_char[4],1e-2*valeur_courante);
fprintf(fich,"%*.*s|\n",nb_char[5],nb_char[5],art_nom.nom_d_article);
quantite_code+=art_stock.quantite;
valeur_code+=valeur_courante;
nb_positions_sur_code++;
}
total_code();
j=nb_char[3]+nb_char[4]+1;
fprintf(fich,"|%*sTotal general|%*.2f|%*s|\n",nb_char[0]+nb_char[1]+nb_char[2]+2-13,"",j,1e-2*VALEUR_TOTALE,nb_char[5],"");
memset(man,'=',ligne_max);man[ligne_max]='\0';
fprintf(fich,"%s\n",man);
close(nf_nom);
close(nf_stock);
free((uchar *)O);
return 1;
}
void tete_de_liste(void)
{
//title au centre
j=sprintf(man,"La liste des stocks le 01/%02u/%04u",mois,annee);
if(j>ligne_max) j=ligne_max;j=ligne_max-j;j>>=1;
fprintf(fich,"\n%*s%s\n",j,"",man);
memset(man,'=',ligne_max);man[ligne_max]='\0';
fprintf(fich,"%s\n",man);
fprintf(fich,"|%*sCode|%*sPrix|U/M|%*sQuantite|%*sValeur|Denomme%*s|\n",
nb_char[0]-4,"",nb_char[1]-4,"",nb_char[3]-8,"",nb_char[4]-6,"",nb_char[5]-7,"");
fprintf(fich,"%s\n",man);
compteur_lignes=4;
}
void total_code(void)
{
if(ancien_code!=0xFFFFFFFF&&nb_positions_sur_code>1)
{
if(compteur_lignes+1>nb_lignes_sur_page)
{
printf("Presse Enter pour continuer ou X pour abandonner");
if(toupper(getch())=='X') exit(0);
tete_de_liste();
}
compteur_lignes++;
memset(man,'-',50);
fprintf(fich,"|%*s|%*.*s|%*.*s|",nb_char[0],"",nb_char[1],nb_char[1],man,nb_char[2],nb_char[2],man);
fprintf(fich,"%*.3f|",nb_char[3],1e-3*quantite_code);
fprintf(fich,"%*.2f|",nb_char[4],1e-2*valeur_code);
fprintf(fich,"%*.*s|\n",nb_char[5],nb_char[5],man);
}
ancien_code=art_stock.code;
valeur_code=quantite_code=0e0;
nb_positions_sur_code=0;
}
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.