Lecture d'un fichier d'enregistrement

**Treize_** · 09/05/2011, 10h22

Bonjour à tous,

Je suis actuellement en stage, qui consiste en l'interprétation de données.
Ils se trouvent que certaines de ces données sont stocker dans un fichier dit d'enregistrement.

Je pensais qu'il était possible de lire ce fichier et de relever des informations comme un fichier texte banale, seulement le fichier est illisible, alors j'ai demandé au responsable, comment recueillir ces données et il m'a donné cette explication :

"Le fichier site.dta est un fichier typé.
Pour l’ouvrir, il faut réaliser un programme, avec n’importe quel logiciel de programmation (DELPHI, VB, C++…) qui est capable d’effectuer des opérations de lecture et d’écriture sur des fichiers.

Dans ce programme, il faut décrire la structure d’un enregistrement (telle que décrite dans mon précédent mail) et lire ce fichier, enregistrement par enregistrement.

Pour chaque enregistrement (qui correspond à un site) il faut traiter chaque champ (Nom du site, affaire, position des compteurs…) "

Et j'avoue être un peu perdu car je ne vois pas comment réaliser ce programme de lecture, Auriez vous une idée ?

Merci,
Treize

**Pol63** · 09/05/2011, 10h36

google a l'air de savoir comment on ouvre un fichier .dta ...

**Treize_** · 09/05/2011, 10h48

Ah, et bien je n'en doute pas, mais je dois pas faire la bonne recherche, car je ne poste pas sans avoir un minimum cherché avant, et là je dois avouer ne pas avoir trouvé une explication claire sur comment lire ces données... A savoir que j'ai essayé tous ce qu'il proposé tel que le renommage de fichier, ou encore la lecture avec tel ou tel logiciel, et rien ne me permet d'afficher des données correct, si ce n'est des symboles qui ne représente pas grand chose.

Si ceci se fait comme avec une base de donnée type SQL à l'aide de requète ou avec des fichier de lecture type .txt ou encore excel mais qui comporte ces propres méthodes de lecture.

Si tu as un lien je suis preneur bien entendu

Merci.

**Pol63** · 09/05/2011, 11h52

je ne connais pas dta mais en tappant dta norme fichier dans google ca a l'air de donner un peu de résultat

après une extension est parfois prise au hasard et se trouve etre la même qu'une extension connue
et dans ce cas la norme de codage n'a rien à voir, il faudrait voir avec celui qui a créé le fichier ou créé le codage du fichier pour savoir si c'est bien une norme connue qu'il a utilisé

**Kropernic** · 09/05/2011, 11h58

Je me demande si...

En fait les explications que tu donnes me rappelle ce que mes profs appelaient un fichier à accès relatif. En gros c'est un bête fichier à la différence prêt qu'il est fractionné en record d'un type prédéfini (qui sont donc toujours les mêmes).

Je me souviens (c'était en delphi5 à l'époque) qu'il me fallait déclarer la structure qui correspondait à un record. Ensuite, pour déclarer mon fichier, je devais préciser à delphi qu'il s'agissait d'un fichier de la structure. Du coup, on pourrait dire que c'est un fichier typé ^^.

Ce ne serait pas le même genre de truc pour ton fichier? Qu'il soit en .dta n'est pas significatif. Après tout, on peut donner l'extension qu'on veut aux fichiers que l'on crée.

Je demanderais donc là où tu bosses la structure exact d'un record, créerait une variable y correspondant et j'essaierais de lire en fonction de cette variable. Je n'ai plus travailler avec ce type de fichier depuis l'école du coup, aucune idée du fonctionnement en .NET (je vais regarder par curiosité) mais tu devrais pouvoir trouver facilement.

**Treize_** · 09/05/2011, 12h06

Oui c'est exactement ça Griftou.

C'est un fichier crée a partir d'un prog sous delphi 6 et c'est un fichier typé (type "record" comme tu dis).

Il m'a donné les différents types, avec la structure d'un enregistrement, et tu as bien cerné ou était le problème, comment sous vb.net explorer ce fichier ?

J'ai le fichier, les types, la structure, mais je n'ai pas les outils (méthodes, fonctions...) qui me permettent d'utiliser tous ça.. Et je suis donc bloqué.

**Kropernic** · 09/05/2011, 12h08

Après une brève recherche, je suis tombé sur ceci : http://plasserre.developpez.com/cour...ge-vb8#LV-AC-5

Un conseil, quand tu bloques sur quelque chose, réfère toi toujours vers ce cours, il est vraiment super complet et à moins d'être quelque chose de relativement complexe, tu y trouveras ton bonheur.

**Treize_** · 09/05/2011, 12h13

Merci pour le lien

Je vais regarder a tout ça, je vous tient au courant de l'évolution des choses

**Treize_** · 09/05/2011, 15h24

Bon, après de nombreuse tentative de lecture de ce fameux fichier, je reviens vers vous car rien ne fonctionne comme je le voudrais.

Voici mon type record crée sous delphi 6 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
TPegFile = record                                         //-- Record fichier 
     NomSite        : string[20]; // Nom du site 
     Affaire        : string[70]; // Affaire 
     NomAffaire     : string[70]; // Nom de l'affaire 
     Societe        : string[40]; // Nom de la société 
     Ad1            : string[40]; // Adresse 1 
     Ad2            : string[40]; // Adresse 1 
     CP             : string[10]; // Code postal 
     Ville          : string[40]; // Ville 
     Resp           : string[40]; 
     mail           : string[40]; 
     CptPos         : array[1..6] of shortint;  //  Val=0..5 
     Qth            : array[1..12] of integer; 
     Cth            : array[1..12] of integer; 
     coche          : array[1..3] of boolean;   //  1: com / 2: svr / 3: expertise 
     AllRam         : boolean;                  //  True: dwnld all Ram 
     Filaire        : boolean;                  //  True: Force en filaire 
     DebutExpertise : TDateTime; 
     FinExpertise   : TDateTime; 
   end;

Et maintenant voici ma classe vb qui devrait me permettre la lecture de ce fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Structure SiteInstallation
        <VBFixedString(20)> Public NomSite As String ' Nom du site 
        <VBFixedString(70)> Public Affaire As String ' Affaire 
        <VBFixedString(70)> Public NomAffaire As String ' Nom de l'affaire 
        <VBFixedString(40)> Public Societe As String ' Nom de la société 
        <VBFixedString(40)> Public Ad1 As String  ' Adresse 1 
        <VBFixedString(40)> Public Ad2 As String ' Adresse 1 
        <VBFixedString(10)> Public CP As String 'Code postal 
        <VBFixedString(40)> Public Ville As String ' Ville 
        <VBFixedString(40)> Public Resp As String
        <VBFixedString(40)> Public mail As String
        <VBFixedArray(1, 6)> Public CptPos As Integer ' Val=0..5 
        <VBFixedArray(1, 12)> Public Qth As Integer
        <VBFixedArray(1, 12)> Public Cth As Integer
        <VBFixedArray(1, 3)> Public coche As Boolean   '  1: com / 2: svr / 3: expertise 
        Public AllRam As Boolean ' True: dwnld all Ram 
        Public Filaire As Boolean 'True: Force en filaire 
        Public DebutExpertise As Double
        Public FinExpertise As Double
    End Structure
 
    Public position As Long
    Public lastRecord As Long
 
sub lecture()
    Dim FileNum As Integer, RecLength As Long, Installation As SiteInstallation
        ' Calculate the record length.
        RecLength = Len(Installation)
        ' Get the next available file number.
        FileNum = FreeFile()
        ' Open the new file with the FileOpen statement.
        FileOpen(FileNum, "C:\Documents and Settings\Treize\Bureau\site.dta", OpenMode.Random, , , RecLength)
 
        FileGet(FileNum, Installation, 1)
 
End Sub

Seulement lorsque j'appel ma fonction lecture dans une form et que je cherche a afficher dans un textbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    TextBox1.Text = TextBox1.Text & " ligne : " & Installation.NomSite & "   " & Installation.Ville & "  " & Installation.Societe

Il ne m'affiche pas les informations que je voudrais avoir... Le plus souvent il ne m'affiche rien du tout après "ligne :"

**Kropernic** · 09/05/2011, 15h48

N'ayant jamais travaillé avec cela en vb, j'en sais autant que toi. Par contre, je vois que tu utilises le type double pour récupérer des infos temporelles. P-e le problème vient-il de là.

Si tu en as la possibilité, mets donc ton fichier en pièce jointe et je ferai quelques tests quand j'aurai 5 minutes.

**Pol63** · 09/05/2011, 15h54

il faut que les types correspondent je pense
pour le tdatetime, date devrait convenir
il faudrait que tu vérifies que array[1..6] correspond bien à array(1,6) ou array(5)
car il y a des chances que 1..6 veuille dire de 1 à 6 et je ne crois pas qu'en .net on peut choisir le numéro de départ (mais seulement le numéro de fin)
et un shortint c'est un short en vb.net

**Treize_** · 09/05/2011, 15h57

Oui c'est un type double mais c'est une information que l'on me donne :

TDateTime
TDateTime est de type DOUBLE.
Type : double (virgule flottante)
Taille : 8 octets
5.0 x 10^-324 .. 1.7 x 10^308, significant digit : 15-16.
Codage :
La partie entière d'une valeur de type TDateTime représente le nombre de jours depuis le 30/12/1899.
La partie fractionnaire d'une valeur de type TDateTime est la partie des 24 heures écoulée.

Voici quelques exemples de valeurs TDateTime avec les dates et heures correspondantes :
0 30/12/1899 12:00 am
2.75 1/1/1900 6:00 pm
-1.25 29/12/1899 6:00 am
35065 01/01/1996 12:00 am

Je vais essayé de faire ces modifications Pol63.

Merci beaucoup pour votre aide en tout cas, je met la classe en pièce jointe, ainsi que le document explicatif du fichier record, et le fichier record en question.

**Geo2A** · 09/05/2011, 16h42

Bonjour,

Je pense que votre problème vient de la transposition d'une structure non managée vers du managé (.NET).

Or dans ce cas les structures sont un peu plus difficiles à convertir.
Un exemple non testé avec la première valeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
<StructLayout(LayoutKind.Sequential)> Public Structure SiteInstallation
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=20)> Public Nomsite As String
        '..........
    End Structure

Je vous conseille la MSDN avec comme clef de recherche MarshalAs, UnmanagedType etc ...
Et une doc sur Delphi 6 indiquant comment sont gérer les chaîne de caractères. L'exemple que j'ai pris provient d'une structure C passée en VB.Net

[Edit] Un lien qui vous sera utile http://msdn.microsoft.com/fr-fr/libr...(v=vs.90).aspx [/Edit]

**Treize_** · 09/05/2011, 18h03

Bonjour Geo2A,

J'ai essayé de comprendre en quoi correspondait ce genre de "cast", en allant sur msdn. J'ai donc essayé de convertir mes données comme l'exemple que vous m'avez donné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 <StructLayout(LayoutKind.Sequential)> Public Structure SiteInstall
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=20)> Public NomSite As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=70)> Public Affaire As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=70)> Public NomAffaire As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=40)> Public Societe As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=40)> Public Ad1 As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=40)> Public Ad2 As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=10)> Public CP As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=40)> Public Ville As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=40)> Public Resp As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=40)> Public mail As String
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=5)> Public CptPos As Short
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=11)> Public Qth As Integer
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=11)> Public Cth As Integer
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=2)> Public coche As Boolean
        <MarshalAs(UnmanagedType.Bool)> Public AllRam As Boolean
        <MarshalAs(UnmanagedType.Bool)> Public Filaire As Boolean
        <MarshalAs(UnmanagedType.R8)> Public DebutExpertise As Double
        <MarshalAs(UnmanagedType.R8)> Public FinExpertise As Double
 
    End Structure

Cependant je pense que ma conversion n'est pas si bonne que ça vu qu'a l'exécution, j'ai l'erreur suivante :

L'exception IOException n'a pas été gérée
Longueur d'enregistrement incorrecte.

C'est quand même surprenant, qu'un simple fichier de donnée donne tant de problème à la lecture ...

**Geo2A** · 09/05/2011, 19h24

Bonjour,

Attention c'est pas trivial, et il faut approfondir un peu (comme je vous l'avais précisé dans mon précédent post):

http://www.techiwarehouse.com/cms/en...id=49b4d286#14

Nous indique que

Short String
Simply put, Short String is a counted array of (ANSII) characters, with up to 255 characters in the string. The first byte of this array stores the length of the string.

Ce qui en .NET nous donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 <MarshalAs(UnmanagedType.AnsiBStr)> Public Nomsite As String

....

Une autre façon de faire mais tout aussi ardue et de lire votre fichier avec un binaryreader et de convertir les séquence d'octets.

C'est quand même surprenant, qu'un simple fichier de donnée donne tant de problème à la lecture ...

Ouvrez le avec un éditeur hexa et vous verrez que c'est pas compliquer à lire. Le problème c'est de passer d'un monde à l'autre, les chaînes de caractères, les tableaux c'est simple mais ça ce code différemment selon les langages et les environnements, passer de l'un à l'autre c'est moins simple !

**Pol63** · 09/05/2011, 20h21

Envoyé par Treize_

C'est quand même surprenant, qu'un simple fichier de donnée donne tant de problème à la lecture ...

c'est surtout qu'un trucs des années 90 n'est pas automatisé dans un langage récent, et ca ne me choque pas
tu auras la norme de codage du fichier réel binairement, tu pourrais recoder un truc simple et plus propre qu'utiliser des balises de marshaling ...

**Geo2A** · 09/05/2011, 20h54

Bonjour,

J'ai beau essayer j'y arrive pas

tu auras la norme de codage du fichier réel binairement, tu pourrais recoder un truc simple et plus propre qu'utiliser des balises de marshaling ...

Il y a toute la description de ce qu'il faut dans le .rar, particulièrement dans le pdf. Le langage la structure, la description des champs etc ... Avec un binaryReader ça le fait tout seul, mais comme le sujet c'est "Record" ... En plus cela fait un bon exercice, car je crois qu'il y a encore un paquet de monde d'un autre niveau que le mien qui développe avec des langages de bas niveau, comme C ou autre ASM.

c'est surtout qu'un trucs des années 90 n'est pas automatisé dans un langage récent

Franchement, ce truc des années 90 (et c'était pas Delphi mais Turbo Pascal 6.0) faisait déjà de la POO alors que windows était à la 3.11 et que VB faisait des GOTO LABEL.

**Treize_** · 10/05/2011, 10h07

Bonjour,

Merci pour toutes vos indications, ça fait 1h que j'ai commencé à retravailler sur la conversion mais n'ayant pas de résultat, je pense me tourner vers le BinaryReader.

Je vous tiens au courant de l'évolution.

Treize.

**Treize_** · 10/05/2011, 12h56

Après des essaies avec BinaryReader, le fichier ne m'affichait toujours pas les valeurs recherchées mais toujours des symboles incohérents, voir rien du tout.

J'ai donc contacté le réalisateur du logiciel de rapatriement de données (fait en delphi), afin de lui demandé une solution alternative, et il m'a dit qu'il était possible à partir du logiciel d'exporter ce document (site.dta) en .txt

Vu la perte de temps que la conversion m'a déjà occasionnée, j'ai travaillé avec le .txt et en une petite heure, j'ai ma fonction de lecture terminée...

Même si le problème n'a pas était résolu, merci à tous pour votre aide !

Et si l'un d'entre vous trouve la solution, qu'il n'hésite pas à la poster, car ce problème de conversion entre ces deux langages m'intrigue.

Treize.

Lecture d'un fichier d'enregistrement

VB.NET

Discussions similaires

Partager

Partager