Lecture d'un fichier à accés direct...

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Lecture d'un fichier à accés direct...

jiojio

Bonjour,
j'ai créé un fichier "hotel.dat" avec Delphi en mettant les informations du type hotel. Je voudrais fair la moyenne des prix des hotels mais je n'arrive pas à acceder aux données de mon fichier hotel.dat. J'avais essayé également avec une boucle while eof...(je pense que àa doit être mieux que le repeat mais bon...) donc je fais la moyenne et je l'affiche sous format HTML.

type
THotel = record
code, prix, cp : integer;
designation : string[30];
numero_rue : string[10];
rue : string[50];
ville : string[20];
end;

var
rec : file of THotel;
MonHotel : THotel;

moy, i, total : integer;

begin
total := 0;
moy := 0;
i := 1;

assignfile(rec,'hotel.dat');

if fileexists('hotel.dat') then
begin

Repeat
read(rec,MonHotel);
total := total + MonHotel.prix;
i:= i + 1;

moy := (total DIV i);

//ecriture à l'écran
writeln('Content-type: text/html');
writeln;
writeln('<html>');
writeln('<head><title>Moyenne des prix des hôtels</title></head>');
writeln('<body>');
writeln('<h1>Moyenne des prix des hôtels<hr></h1>');
writeln('La moyenne des prix des hôtels : ' + IntToStr(moy));
writeln(' ');
Until SeekEof (rec);
end;

close(rec);

end.

Publicité

antp

Super Administrateur
Champion des excuses bidons

Tu mettrais pas plutôt le calcul de moyenne et l'affichage hors de la boucle ?

Et comment ça tu "n'arrives pas à accéder aux données" ?

Message édité par antp le 23-10-2005 à 18:55:13

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

jiojio

oula oui...on a ça alors? Le truc c'est que je n'ai pas d'erreur de compilation mais quand je veux pour executer le programme bah la page html s'affiche avec message ne peut pas afficher le contenu de la page blabla alors je me demande j'utilise bien le fichier en accés direct dans ce cas...merci d'avance

type
THotel = record
code, prix, cp : integer;
designation : string[30];
numero_rue : string[10];
rue : string[50];
ville : string[20];
end;

var
rec : file of THotel;
MonHotel : THotel;

moy, i, total : integer;

begin
total := 0;
moy := 0;
i := 1;

Repeat
read(rec,MonHotel);
total := total + MonHotel.prix;
i:= i + 1;
Until SeekEof (rec);

moy := (total DIV i);

//ecriture à l'écran
writeln('Content-type: text/html');
writeln;
writeln('<html>');
writeln('<head><title>Moyenne des prix des hôtels</title></head>');
writeln('<body>');
writeln('<h1>Moyenne des prix des hôtels<hr></h1>');
writeln('La moyenne des prix des hôtels : ' + IntToStr(moy));
writeln(' ');

close(rec);

end.

antp

Super Administrateur
Champion des excuses bidons

Essaie déjà avec un vrai browser (Firefox, Opera, etc.) qui te donnera un vrai message d'erreur plutôt que de dire juste qu'il ne peut pas afficher le contenu

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

jiojio

lol oui aussi mais j'ai pas hey hey

antp

Super Administrateur
Champion des excuses bidons

T'as pas quoi ? Un vrai browser ? Ça se télécharge facilement

Il manque quand même un bout dans ton code. Après le AssignFile il faut faire un Reset pour ouvrir le fichier. Et j'utiliserais Eof plutôt que SeekEof, qui semble plutôt destiné à des fichiers textes...

Message édité par antp le 24-10-2005 à 00:08:01

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

jiojio

program moyenne;

{$APPTYPE CONSOLE}

uses
sysutils,
btsinfo;

type
THotel = record
code, prix, cp : integer;
designation : string[30];
numero_rue : string[10];
rue : string[50];
ville : string[20];
end;

var
rec : file of THotel;
MonHotel : THotel;

i : integer;
moy , total : integer;

begin
total := 0;
moy := 0;
i := 1;

assignfile(rec,'hotel.dat');
reset(rec);
WHILE NOT Eof (rec) DO
BEGIN
Read(rec,MonHotel);
total := total + MonHotel.prix;
i:= i + 1;
END ;

moy := (total DIV i);

//ecriture à l'écran
writeln('Content-type: text/html');
writeln;
writeln('<html>');
writeln('<head><title>Moyenne des prix des hôtels</title></head>');
writeln('<body>');
writeln('<h1>Moyenne des prix des hôtels<hr></h1>');
writeln('La moyenne des prix des hôtels : ' + IntToStr(moy));
writeln(' ');

close(rec);

end.

jiojio

regarde j'ai fait ça c'est déjà mieux que la premiere version sauf que ça ne marche toujours pas hey hey (je pense qu'il serait mieux de gérer la moyenne avec un REAL mais c'est quoi la fonction IntToStr(moy) mais pour le réel ?

Message cité 1 fois

antp

Super Administrateur
Champion des excuses bidons

FloatToStr, ou Format avec %f ou %g, selon ce que tu veux comme type d'affichage.
T'as essayé d'envoyer du texte à l'écran sans lire le fichier, juste afficher un 'bonjour', pour être sûr que c'est la lecture du fichier qui bloque ?
À l'inverse, t'as essayé de lancer le soft directement depuis la console plutôt qu'en CGI, pour voir le résultat à l'écran de la console plutôt que via le browser ?s

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

macgawel

jiojio a écrit :

regarde j'ai fait ça c'est déjà mieux que la premiere version sauf que ça ne marche toujours pas hey hey

Déjà, en html, quand on ouvre des balises il faut les fermer :fou: ...
Ensuite, je te conseillerais de tester en premier lieu si ton programme calcule bien la moyenne, et après de tester la fonction d'affichage.

Citation :

(je pense qu'il serait mieux de gérer la moyenne avec un REAL mais c'est quoi la fonction IntToStr(moy) mais pour le réel ?

Effectivement, si tu veux avoir une moyenne exacte, il vaut mieux utiliser un réél (voire un Currency ?)
Et pour la fonction équivalente à InttoStr, peut-être un "as String", ou en cherchant dans l'aide

AMHA :
1. Tu écris le bout de code qui te calcule la moyenne, avec un affichage simple (un bête Write qui t'affiche juste la moyenne, pas en html) et avec un (à la limite 2) hôtel dans ton .DAT.
2. Tu le testes avec le bon fichier .DAT
3. Tu écris le bout de code qui affiche la page html,

Code :

//ecriture à l'écran
moy := <une valeur quelconque>
writeln('Content-type: text/html');
writeln;
writeln('<html>');
writeln('<head><title>Moyenne des prix des hôtels</title></head>');
writeln('<body>');
writeln('<h1>Moyenne des prix des hôtels<hr></h1>');
writeln('La moyenne des prix des hôtels : ' + IntToStr(moy));
writeln(' ');

4. Et une fois que les deux parties fonctionnent, tu fais la totale.

PS : Tu devrait mettre ton close dès que tu as fini d'utiliser le fichier .DAT, et - dans l'idéal - encadrer ton bloc "lecture du fichier .DAT" par un Try-Except...

Message cité 1 fois

Publicité

jiojio

On m'a appris à faire comme ça pour l'affichage..mais je ne comprends pas dans le programme moyenne je lis bien le fichier avant d'afficher la moyenne des prix...
Regarde c'est mon programme qui permet de mettre les informations dans le fichier (il fonctionne parfaitement) :

program hotel;

{$APPTYPE CONSOLE}

uses
sysutils,
btsinfo;

type
THotel = record
code, prix, cp : integer;
designation : string[30];
numero_rue : string[10];
rue : string[50];
ville : string[20];
end;

var
rec : file of THotel;
MonHotel : THotel;
designation, numero_rue, rue, ville : string;
code , prix, cp : integer;
position : integer;
tmp : string; // la variable tmp est intermédiare et servira à stocker
// une donnée du formulaire afin de la modifier

begin
//attention la procedure RequestFormInit et la fonction RequestFom ne font pas partie de DELPHI !
RequestFormInitialize(); //permet de transferer les données du formulaire dans un fichier temporaire.

tmp := requestform('code'); //recherche de la clé 'code' dans le fichier temporaire et renvoie de la valeur.
code := strtoint(tmp); // stroint transforme un integer en string

designation:=requestform('designation');

tmp := requestform('prix');
prix := strtoint(tmp); // stroint transforme un integer en string

numero_rue:=requestform('numero_rue');
rue := requestform('rue');
tmp := requestform('cp');
cp := strtoint(tmp);
ville := requestform('ville');

//ecriture à l'écran
writeln('Content-type: text/html');
writeln;
writeln('<html>');
writeln('<head><title>Enregistrement des hotels</title></head>');
writeln('<body>');
writeln('<h1>Saisir les informations concernant les élèves<hr></h1>');
writeln('Code : '+ IntToStr(code) +'<br>'); // IntToStr() permet de convertir
writeln('Désignation : '+ designation +'<br>'); // un integer en string
writeln('Prix : '+ IntToStr(prix) +' <br>');
writeln('Numéro de rue : '+ numero_rue +'<br>');
writeln('Rue : '+ rue +'<br>');
writeln('Code postal : '+ IntToStr(cp) +'<br>');
writeln('Ville : '+ ville +'<br>');
writeln('</body></html>');

//enregistrement des données sur l'hotel dans un fichier du serveur
MonHotel.code:=code;
MonHotel.designation:=designation;
MonHotel.prix:=prix;
MonHotel.numero_rue:=numero_rue;
MonHotel.rue:=rue;
MonHotel.cp:=cp;
MonHotel.ville:=ville;

assignfile(rec,'hotel.dat');
if fileexists('hotel.dat') then
begin
reset(rec);
position:=filesize(rec);
seek(rec,position);
write(rec,MonHotel);
end
else
begin
rewrite(rec);
end;
write(rec,MonHotel);
close(rec);

end.

antp

Super Administrateur
Champion des excuses bidons

macgawel a écrit :

Déjà, en html, quand on ouvre des balises il faut les fermer :fou: ...

Non, ça c'est en XML/XHTML. En HTML on peut laisser plein de trucs ouverts, cf cette page qui a une syntaxe tout à fait valide : http://antp.be/temp/html4open.html

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

jiojio

effectivement ! je n'avais pas fermé les balises (j'y avais penser ce matin dans mon lit...et oui LOL)
Enfin merci pour votre aide
Il fonctionne parfaitement maintenant
bye

jiojio

Bon j'ai encore un petit pb...ça marchait et...ça ne marche plus :| !

regardez je vois pas pourquoi là...

program moyenne;

{$APPTYPE CONSOLE}

uses
sysutils,
btsinfo;

type
THotel = record
code, prix, cp : integer;
designation : string[30];
numero_rue : string[10];
rue : string[50];
ville : string[20];
end;

// déclarations des variables
var
rec : file of THotel;
MonHotel : THotel;

total,i : integer;
moy : real;

begin
total := 0;
moy := 0;
i := 1;

assignfile(rec,'hotel.dat'); // Affectation de nom de fichier
reset(rec); // Ouverture du fichier en lecture
while not Eof (rec) do // Jusqu' à la fin du fichier
begin
read(rec,MonHotel); // Après chaque opération la pointeur est avancé vers la position de lélément suivant
total := total + MonHotel.prix; // total vaut le total des prix des hôtes se trouvant dans le fichier hoteldat
i := i + 1; // à chaque fois que l'on trouve un prix i vaut i + 1
end;

moy := (total / i); // moy vaut le total des prix / par le nombre de prix trouvés

//ecriture à l'écran
writeln('Content-type: text/html');
writeln;
writeln('<html>');
writeln('<head><title>Moyenne des prix des hôtels</title></head>');
writeln('<body>');
writeln('<h1>Moyenne des prix des hôtels<hr></h1>');
writeln('La moyenne des prix des hôtels : ' + FloatToStr(moy));
writeln(' ');
writeln('</body></html>');

close(rec); // Fermeture du fichier
end.

jiojio

le close on pourrait le mettre avant le calcul de la moyenne mais ça ne change rien...

FORUM HardWare.fr

Programmation

Delphi/Pascal

Lecture d'un fichier à accés direct...

Sujets relatifs
Mettre le contenu d'un fichier en variable	[DOS] extraire le nom d'un fichier pour renommer un autre
Double lecture avec fscanf	Include/Require en cascade et acces aux variables
Lister les fichier d'un disque dur et faire correspondre le fichier	Ouvrir un fichier ; Agrandir la fenêtre [VB6]
Vbscript - Convertir un fichier TXT du format Unicode vers ANSI	VBScript - Modification d'un fichier par script
Forcer un fichier .xls à s'ouvrir dans excel	probleme de verification de poid d'un fichier en php
Plus de sujets relatifs à : Lecture d'un fichier à accés direct...

Page générée en 0.035 secondes