Lecture FichierRésolu

Question

Bonjour tout le monde,

   Voil&#224; je suis en stage au CETE de l'est et j'ai pour mission de convertir un programme assez ancien &#233;crit en TurboPascal en Delphi(version7). Je pr&#233;pare un DUT GEII.Ce programme fonctionne actuellement mais pas sur Xp et est tr&#233;s limit&#233; en fl&#233;xibilit&#233; et ergonomie. Pour pr&#233;ciser je n'ai jamais utiliser TurboPascal ni Delphi. J'ai appris pas mal de choses sur le tas et j'ai un probl&#232;me en ce qui concerne la lecture d'un fichier. 

   En effet il y a un appareil de mesure de vibrations sismiques qui rel&#232;ve les enregistrements sur un fichier avec l'extension .sg2. Or ce fichier est inutilisable sauf &#224; part passer par un programme car on ne peut pas l'ouvrir, m&#234;me si on arrive en text on comprend rien. 
Donc il faut que je convertisse ce fichier avec les valeurs comprises dedans en un fichier text.

J'ai fait environ 20 % du programme en delphi mais &#224; un moment il y a un probl&#232;me. Pour rappeler j 'ai les codes sources du programme &#233;crit en TurboPascal qui m'aident beaucoup.
au d&#233;but je me suis beaucoup inspir&#233; du programme initiale tant que mon nouveau programme fonctionne.

Ma question auquel je voudrais une r&#233;ponse si possible: ->j'assigne mon fichier que je veux convertir &#224; un File. Ensuite je fais un Reset soit : Reset(fichier,2) mais avec un 2?. Ensuite je fais une lecture blockread(fichier,recup,4,nc). Puis je recupere une valeur nbtrace:=recup[4] et l&#224; j'obtiens n'importe quoi. Dans le programme initiale on a nbtrace= 9 et ici nbtrace= 1510184. Ainsi je ne sais pas comment lire correctement le fichier pour obtenir la bonne valeur car je pense que les instructions entre le TurboPascal et le Delphi sont quelques peu diff&#233;rentes. Pourtant j'ai initialis&#233; recup et nbtrace mais rien ne change.

Pour conclure je demande &#224; ceux qui sachent de bien vouloir m'aider ou bien de me donner des conseils car depuis 3 jours je suis bloqu&#233;. Merci de votre attention.

ertu7 · Accepted Answer

rebonjour j'ai trouv&#233; le probl&#233;me, cela provient du blockread.En effet on ne peut pas mettre la valeur lue avec un blockread dans un integer mais plutot dans un word.Ainsi ca marche mieux.Encore merci pour vos conseils.

cs_Kenavo · Answer

De quel type est Recup ? Un Array ? Quelle taille ?



Quad tu fais Reset(Fichier,2) , cela veux dire que tu vas lire le fichier 2 octets par 2 octets. Ensuite quand tu fais blockread(fichier,recup,4,nc)tu
copies 4 "donn&#233;es" dans recup et nc te renseigne sur le nombre r&#233;el de
"donn&#233;es" copi&#233;es. Tes "donn&#233;es" sont des "choses" (des
enregistrements) de 2 octets (le 2 de reset). Si tu veux lire Recup[4]
et qu'il soit significatif, il faut que recup soit du type Array[1..x] of word, s'il est du type Array[0..x] of word, Recup[4] n'est pas "rempli" (les 4 z'enregistrements sont rang&#233;s dans recup[0], recup[1] recup[2] et recup[3]). Le fait que tu arrives &#224; lire 1510184 m'&#233;tonne : un word (2 octets ne peut d&#233;passer 65536).



Autre chose : ne recopie pas un
type Record qui d&#233;fini un enregistrement fichier sans le transformer en
Packed Record. Les alignements de donn&#233;es utilis&#233;s depuis le 16 bits
(Bon anniversaire Delphi 1) modifient la r&#233;alit&#233; de ces type Record
(leur empreinte m&#233;moire).



J'esp&#232;re avoir n'avoir pas &#233;t&#233; trop confus dans mes propos et que tu y trouveras une piste.



Bon courage (moi je pars en vacances)



Ken@vo


<hr size="2" width="100%">
Code, Code, Codec !

http://www.pourflorenceethussein.org/

vincentstryckmans · Answer

Deux, trois rermarques comme cela en passant .

Connais tu le format du fichier .sg2 ?

Si tu télécharges ce bon viuex Turbo Pascal 5.5 (gratuit chez Borland), tu peux peut-être ouvrir ce foutu fichier et le réécrire en un format pur texte que tu seras relire avec Delphi.

Oui, je sais, je raconte peut-être des conneries, mais il est 22h00 et je n'ai plus dormi depuis 01h00. Call me back pour que le forum t'aide un peu plus Et comme disait ma grand-mère : il y a toujours du soleil derrière les nuages. Vincent Stryckmans.

ertu7 · Answer

Bonjour merci d'avoir repondu,

En effet recup est un array[1..4] of integer et j'obtiens toujours des valeurs tres superieurs.
J'ai relev&#233; les valeurs de recup at j'ai:
recup[1]=80469
recup[2]=393240
recup[3]=4536909
recup[4]=4526917  ici il n y a que recup 3 et 4 qui m'interesse. Tout ce que je peux dire est que je dois obtenir normalement la valeur 9 en recup[4].
De plus j'a essay&#233; de l'ouvrir avec TB 5.5 et j'ai remarqu&#233; que l'enregistrement est sur une ligne ce qui veux donc dire qu'il faut que je me 'promene' sur la ligne pour trouver les bonnes infos.

Pour ceux qui int&#233;resse voici la procedure du prog initiale permettant de lire des donnees:

PROCEDURE LIRE_BLOC_FICHIER(numfi: integer; repert: string;
                                         var nomfi:string;
                                         var existPas: boolean);


var
   i, k, nc, decal,dep: integer;
   recup        :array[1..4]of integer;
   tabc:array[1..60] of char;
Begin
    nomfi:=nom_fichier(numfi);
if fich_existe(nomfi) then
     begin
     assign(fich,nomfi);
     reset(fich,2); {lecture par 2 octets}
     blockread(fich,recup,4,nc);
     lgblocPT := recup[3];  {longueur du sous-bloc pointeur de trace}
     nbtrace := recup[4];
     nbCap := nbtrace div 3;
     reset(fich,1); {lecture par 1 octets}
     seek(fich,32);
     for i := 1 to nbtrace do         {lecture des pointeurs de blocs traces}
        blockread(fich,Pt_Tr[i],4,nc);



{ lecture des commentaires du bloc fichier}
     reset(fich,1);
     decal:= 32+lgblocPT;
     seek(fich,decal);
(*writeln('decal: ',decal);*)
     blockread(fich,dep,2,nc);


     repeat
        for k:=1 to 60 do tabc[k]:=chr(0);
        for i:= 1 to dep-2 do blockread(fich,tabc[i],1,nc);


        ligne:=tabc;
        Traduire_Code_Fichier(ligne,dep);
        decal:=decal+dep;
        seek(fich,decal);
        blockread(fich,dep,2,nc);
     until dep=0;
end
else existPas := true;


End; {lire bloc_fichier}

Comme vous pouvez le voir je suis bloqu&#233; d&#233;s le d&#233;but.Ainsi pour ceux qui aurait une id&#233;e il serait sympa de m'aider.Merci

ertu7 · Answer

Bonjour merci d'avoir repondu,

En effet recup est un array[1..4] of integer et j'obtiens toujours des valeurs tres superieurs.
J'ai relev&#233; les valeurs de recup at j'ai:
recup[1]=80469
recup[2]=393240
recup[3]=4536909
recup[4]=4526917  ici il n y a que recup 3 et 4 qui m'interesse. Tout ce que je peux dire est que je dois obtenir normalement la valeur 9 en recup[4].
De plus j'a essay&#233; de l'ouvrir avec TB 5.5 et j'ai remarqu&#233; que l'enregistrement est sur une ligne ce qui veux donc dire qu'il faut que je me 'promene' sur la ligne pour trouver les bonnes infos.

Pour ceux qui int&#233;resse voici la procedure du prog initiale permettant de lire des donnees:

PROCEDURE LIRE_BLOC_FICHIER(numfi: integer; repert: string;
                                         var nomfi:string;
                                         var existPas: boolean);


var
   i, k, nc, decal,dep: integer;
   recup        :array[1..4]of integer;
   tabc:array[1..60] of char;
Begin
    nomfi:=nom_fichier(numfi);
if fich_existe(nomfi) then
     begin
     assign(fich,nomfi);
     reset(fich,2); {lecture par 2 octets}
     blockread(fich,recup,4,nc);
     lgblocPT := recup[3];  {longueur du sous-bloc pointeur de trace}
     nbtrace := recup[4];
     nbCap := nbtrace div 3;
     reset(fich,1); {lecture par 1 octets}
     seek(fich,32);
     for i := 1 to nbtrace do         {lecture des pointeurs de blocs traces}
        blockread(fich,Pt_Tr[i],4,nc);



{ lecture des commentaires du bloc fichier}
     reset(fich,1);
     decal:= 32+lgblocPT;
     seek(fich,decal);
(*writeln('decal: ',decal);*)
     blockread(fich,dep,2,nc);


     repeat
        for k:=1 to 60 do tabc[k]:=chr(0);
        for i:= 1 to dep-2 do blockread(fich,tabc[i],1,nc);


        ligne:=tabc;
        Traduire_Code_Fichier(ligne,dep);
        decal:=decal+dep;
        seek(fich,decal);
        blockread(fich,dep,2,nc);
     until dep=0;
end
else existPas := true;


End; {lire bloc_fichier}

Comme vous pouvez le voir je suis bloqu&#233; d&#233;s le d&#233;but.Ainsi pour ceux qui aurait une id&#233;e il serait sympa de m'aider.Merci

ertu7 · Answer

Bonjour merci d'avoir repondu,

En effet recup est un array[1..4] of integer et j'obtiens toujours des valeurs tres superieurs.
J'ai relev&#233; les valeurs de recup at j'ai:
recup[1]=80469
recup[2]=393240
recup[3]=4536909
recup[4]=4526917  ici il n y a que recup 3 et 4 qui m'interesse. Tout ce que je peux dire est que je dois obtenir normalement la valeur 9 en recup[4].
De plus j'a essay&#233; de l'ouvrir avec TB 5.5 et j'ai remarqu&#233; que l'enregistrement est sur une ligne ce qui veux donc dire qu'il faut que je me 'promene' sur la ligne pour trouver les bonnes infos.

Pour ceux qui int&#233;resse voici la procedure du prog initiale permettant de lire des donnees:

PROCEDURE LIRE_BLOC_FICHIER(numfi: integer; repert: string;
                                         var nomfi:string;
                                         var existPas: boolean);


var
   i, k, nc, decal,dep: integer;
   recup        :array[1..4]of integer;
   tabc:array[1..60] of char;
Begin
    nomfi:=nom_fichier(numfi);
if fich_existe(nomfi) then
     begin
     assign(fich,nomfi);
     reset(fich,2); {lecture par 2 octets}
     blockread(fich,recup,4,nc);
     lgblocPT := recup[3];  {longueur du sous-bloc pointeur de trace}
     nbtrace := recup[4];
     nbCap := nbtrace div 3;
     reset(fich,1); {lecture par 1 octets}
     seek(fich,32);
     for i := 1 to nbtrace do         {lecture des pointeurs de blocs traces}
        blockread(fich,Pt_Tr[i],4,nc);



{ lecture des commentaires du bloc fichier}
     reset(fich,1);
     decal:= 32+lgblocPT;
     seek(fich,decal);
(*writeln('decal: ',decal);*)
     blockread(fich,dep,2,nc);


     repeat
        for k:=1 to 60 do tabc[k]:=chr(0);
        for i:= 1 to dep-2 do blockread(fich,tabc[i],1,nc);


        ligne:=tabc;
        Traduire_Code_Fichier(ligne,dep);
        decal:=decal+dep;
        seek(fich,decal);
        blockread(fich,dep,2,nc);
     until dep=0;
end
else existPas := true;


End; {lire bloc_fichier}

Comme vous pouvez le voir je suis bloqu&#233; d&#233;s le d&#233;but.Ainsi pour ceux qui aurait une id&#233;e il serait sympa de m'aider.Merci

ertu7 · Answer

D&#233;sol&#233; j'ai cliqu&#233; plusieurs fois comment faiton pour editer un message ou le supprimer?Merci

Lecture Fichier

7 réponses

Votre réponse

Discussions similaires