Bonjour a tous,
Je suis en trein d'étudier la structure des fichiers excel pour voir si j'arrive a acceder aux cellules sans avoir excel sur le poste. Donc pas besoin de payer de licence ...
J'ai déja mainte fois étudié des contenus binairs de fichiers tel le java ...
mais jamais je ne me suis autant pris la tête ^_^
Pour l'exemple, les fichiers excels sont "encapsulés" dans un système FAT. Oui oui dans le fichier
Donc, avant même d'atteindre le codage du fichier excel , il me faut le "dé-encapsuler".
Mon problème :
Dès le début de la lecture du fichier en mode binaire, je ne suis pas d'accord avec la spécification.
A savoir : le header.
Voici mon code :
Public Type t_HEADER
signature(1 To 8) As Byte ' magic number
clsid(1 To 16) As Byte '
minor_version As Integer '
major_version As Integer '
order As Integer '
sector_shift As Integer ' sector size = 2^sector_shift (512 if 0x0009; 4096 if 0x000C ...)
mini_sector_shift As Integer ' sector size = 2^sector_shift (512 if 0x0009; 4096 if 0x000C ...)
reserved(1 To 6) As Byte '
number_of_directory_sectors As Long '
number_of_fat_sectors As Long '
first_directory_sector_location As Long '
transaction_signature_number As Long '
mini_stream_cutoff_size As Long '
first_mini_fat_sector_location As Long ' index dans le difat ou code FAT SECTOR
number_of_mini_fat_sectors As Long '
first_mini_difat_sector_location As Long ' index dans le difat ou code FAT SECTOR
number_of_difat_sectors As Long ' nombre de secteurs de difat (si fichier > 7Mb)
DIFAT(1 To 109) As Long ' les 109 premiers etats des secteurs (
End Type
Public Const Hsignature = "D0 CF 11 E0 A1 B1 1A E1"
Public Const Hclsid = "00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" '16 zeros
Public Function Ouvrire(file As String) As String
On Error GoTo fin
'déclarer et allouer un canal de flux disponible
Ouvrire = "Alocation du canal de flux"
Dim canal As Byte
canal = FreeFile
'ouvrire le fichier en mode binaire & lecture seule
Ouvrire = "Ouverture du fichier"
Open file For Binary Access Read As #canal
'Entête
Ouvrire = "Lecture de l'entête"
Dim header As t_HEADER
Get #canal, , header
'vérification de la signature du document
If (to_hex_str(header.signature) <> Hsignature) Then
Ouvrire = "'Header Signature' non conforme."
GoTo fin
End If
'vérification du clsid du doccument
If (to_hex_str(header.clsid) <> Hclsid) Then
Ouvrire = "'Header CLSID' non conforme."
GoTo fin
End If
[...]
Dans les valeurs chargées dans le header, tout semble bon sauf les données suivantes :
header.first_directory_sector_location = 1
header.first_mini_difat_sector_location = 13951
header.first_mini_fat_sector_location = 26917
ce qui me choque c'est que j'ai nb de directory sector = 0 (donc pkoi a voir une location et que ensuite, minidifat et minifat location sont sensés être inférieurs au nombre de fat secteur soit 212 dans mon cas ...
J'ai bien conscience que c'est une question alaquelle très peu peuvent répondre. Néamoins, si quelqu'un a une piste je suis preneur
Merci d'avance et a bientôt
VB6, quand yen a plus yen a encore
Il y a tant a apprendre et seulement 24 heures dans une journée
- number_of_fat_sector n'est pas le nombre de secteur fat dans le fichier mais le nombre de secteur fat contenant la table de chainage FAT
( franchement microsoft aurrait pu choisir des termes qui induisent moins en erreur )
- DIFAT contient, dans l'ordre, la liste des index des secteurs fat contenant la table de chainage FAT
- le secteur d'indice 0 n'est pas toujours le premier secteur contenant les données de chainage FAT
- en VB6 le type long est bien sur 4 octets mais il est également signé. il faut donc utiliser une bidouille pour lire des "unsigned long" apelés DWORD par microsoft
Public Type DWORD
bytes(1 To 4) As Byte
End Type
Public Function Dbl_DWORD(DW As DWORD) As Double
Dim i As Integer
Dim tmp As String
For i = 1 To 4
Dbl_DWORD = Dbl_DWORD + CDbl(DW.bytes(i)) * (2 ^ (8 * (i - 1)))
Next
End Function
Public Function Hex_DWORD(DW As DWORD) As String
Dim i As Integer
Dim tmp As String
For i = 1 To 4
tmp = Hex(DW.bytes(i))
tmp = String(2 - Len(tmp), "0") & tmp
Hex_DWORD = tmp & Hex_DWORD
Next
End Function
Lorsque j'aurais terminé de mettre en forme tout ceci, je posterais une source (VB6)
Quelle représentation est-ce là ?
normalement les DIFAT sont des long (soit 4 octets) --> 16 digits hexa donc
en tout les cas merci de ton aide, je me sens moins seul face a ces fichiers à la noix. Si les gens savaient comment les fichiers sont faits, il ésiteraient bien plus à le utiliser je pense
VB6, quand yen a plus yen a encore
Il y a tant a apprendre et seulement 24 heures dans une journée
Oui, tu as raison, je suis allé un peu vite et j'ai loupé ce type Long
.DIFAT(1 To 109) :
(1) 00DA 00DB FFFF FFFF ...
Quant au .first_directory_sector_location, j'ai pris un autre fichier Excel (2003 avec 3 feuilles, une UserForm et des macros) pour tester, et j'obtiens :
Et il semblerait que pour microsoft, ce qui n'est pas dit est évident.
J'ai été voir du côté du directory_sector et en effet, 2nd secteur (donc d'indice 1) contient des données exploitables.
voici ce que j'y ai trouvé :
'Le Directory Entry
Public Type t_DENTRY
Directory_Entry_Name(1 To 32) As Integer ' nul terminated string UTF-16 (2 octets par caractère)
Directory_Entry_Name_Length As Integer ' longueur de la chaine de caractère (comprenant le '\n')
Object_Type As Byte ' type d'objet
Color_Flag As Byte '
Left_Sibling_ID As Long '
Right_Sibling_ID As Long '
Child_ID As Long '
clsid(1 To 16) As Byte ' doivent être 0
State_Bits As Long ' doit être 0
Creation_Time As Date
Modified_Time As Date
Starting_Sector_Location As Long
Stream_Size As Double
End Type
'Les types d'objets
Public Const to_Unknown_or_unallocated = 0
Public Const to_Storage_Object = 1
Public Const to_Stream_Object = 2
Public Const to_Root_Storage_Object = 5
'les color flags
Public Const cf_red = 0
Public Const cf_black = 1
Avec le code (a la suite du code présenté dans le post de début) :
'Directory Entry
Ouvrire = "Lecture du Directory Entry"
Dim directory_entry() As t_DENTRY
ReDim directory_entry(1 To (2 ^ header.sector_shift) / 128)
Dim i As Integer
For i = 1 To UBound(directory_entry)
Get #canal, _
(header.first_directory_sector_location + 1) * (2 ^ header.sector_shift) + 1 + ((i - 1) * 128), _
directory_entry(i)
Debug.Print "entry name " & i & " = '" & UTF_16(directory_entry(i).Directory_Entry_Name, directory_entry(i).Directory_Entry_Name_Length) & "'"
Next
j'obtient des noms tout a fait plausibles :
entry name 1 = 'Root Entry'
entry name 2 = 'Workbook'
entry name 3 = '_VBA_PROJECT_CUR'
entry name 4 = 'Ctls'
Il est à noter que j'ai sauté le secteur FAT d'indice 0 qui se trouve entre le header et le directory entry (je ne sais pas encore ce qu'on y trouve pour le momment ...)
VB6, quand yen a plus yen a encore
Il y a tant a apprendre et seulement 24 heures dans une journée
Le secteur 0 contient le premier secteur FAT.
Ce n'est pas marqué clairement dans la doc sauf dans l'exemple en fin de spécif. C'est vrai que c'est presque pas indispensable de le savoir
je patauge toujours autant... c'est la première fois que ca m'arrive sur ce genre de code...
Si une personne au fait du codage FAT pouvait m'éclairer sut le comment décoder le FAT (ou au moins celui de microsoft) à l'aide des deux tables
FAT et DIFAT (que je n'arrive tjs pas à reconstituer d'ailleurs ...) je lui en serrait bien reconnaissant
