Tables de tri associes aux fichiers

Soyez le premier à donner votre avis sur cette source.

Vue 4 357 fois - Téléchargée 162 fois

Description

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; }

Codes Sources

A voir également

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.