Discussion :

[pikron]

Bonjour,
je voudrais lire un fichier texte en binaire, mais j'ai l'impression qu'il est trop gros (222Mo). voici mon code (que j'ai copié à je ne sais plus qui) :

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
38
39
40
41
42
43
44
45
46
47
 
Dim nomFichier As String, numFile As Integer
Dim errCode As Integer
Dim errString As String
Dim fileContent As String
Dim t() As String
 
fileContent = ReadFileToBuffer(nomFichier, errCode, errString)
If errCode = 0 Then
    ...
Else
    ' Erreur rencontrée, affichage
    MsgBox "Erreur lors de la lecture. Code : " & errCode & ". Description : " & errString
End If
 
' Cette fonction lit le contenu du fichier szFileName et retourne
' ce contenu. En cas d'erreur, elle retourne une chaîne vide et
' renseigne le code d'erreur et la description de l'erreur
'
Private Function ReadFileToBuffer(ByVal szFileName As String, _
                                 ByRef errCode As Integer, _
                                 ByRef errString As String) As String
    Dim f As Integer
    Dim Buffer As String
 
    ' trappe les erreurs
    On Error GoTo ReadFileToBuffer_ERR
 
    ' Ouverture du fichier en 'Binary'
    f = FreeFile
    Open szFileName For Binary As #f
        ' préallocation d'un buffer à la taille du fichier
        Buffer = Space$(LOF(f))
        ' lecture complète du fichier
        Get #f, , Buffer
    Close #f
    ReadFileToBuffer = Buffer
ReadFileToBuffer_END:
    Exit Function
 
ReadFileToBuffer_ERR:
    ' Gestion d'erreur
    ReadFileToBuffer = ""
    errCode = Err.Number
    errString = Err.Description
    Resume ReadFileToBuffer_END
End Function

Au décodage, à la ligne

Code :

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

 Get #f, , Buffer

, on passe directement à

Code :

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

ReadFileToBuffer_ERR:

(sans fermer le fichier du coup !!), et le message d'erreur c'est : "Erreur lors de la lecture. Code 7 Description : mémoire insuffisante"

J'ai lu que pour des gros fichier il faut faire du file mapping, mais après avoir cherché un certain temps, je n'ai rien trouvé de concret sur comment on l'utilise en vba. Est--ce que quelqu'un saurait me donner une base de code pour faire du fileMapping ?

(mon but au fait étant d'ajouter une ligne à la fin de mon fichier si la dernière ligne respecte certaines conditions)

Merci

[Marc-L]

Bonjour,

définir la variable Buffer d'une taille raisonnable permettrait de lire le fichier par blocs;
mais ce serait dommage de lire l'intégralité du fichier même par blocs dans ton cas vu que seule la fin du fichier t'intéresse !

Donc lire plutôt directement le dernier bloc du fichier depuis la position stratégique
égale à la fin de fichier plus un moins la taille du buffer grâce à l'instruction Get …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[pikron]

J'avais essayé de lire par blocs, mais je n'ai pas réussi. Je ne savais pas comment coder ça : j'avais créé deux variables Buffer1 et Buffer2 de taille la moitié du fichier, mais après je ne sais pas comment placer la première moitié du fichier dans Buffer1 et la deuxième moitié dans Buffer2.
Pareil pour ta solution, je ne sais pas comment on code la lecture du fichier à partir d'un endroit précis.

[Marc-L]

Pareil pour ta solution, je ne sais pas comment on code la lecture du fichier à partir d'un endroit précis.

Comme je l'ai indiqué pour le calcul, entre les deux virgules dans ton code de l'instruction Get,
et c'est pourtant bien expliqué dans l'aide intégrée de VBA …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Comment les huissiers préfèrent-ils leur viande ? Bien saisie évidemment ‼

[pikron]

désolé pour le temps de réponse, mais je suis sur plusieurs projets en parallèle

si tu es toujours là Marc, je n'arrive pas à trouver nulle part une explication du fonctionnement de la méthode get. L'aide intégrée de vba me donne rien du tout (à moins que ce soit moi...)

(sinon, j'ai esquivé le problème et j'ai lu le fichier en mode séquentiel)

[ESVBA]

bonsoir,

à cette adresse par exemple :

http://msdn.microsoft.com/en-us/libr...(v=vs.60).aspx

C'est le second argument qui indique le numéro du bloc. A calculer en fonction de la taille du bloc défini lors de l'utilisation de la fonction "Open"

ESVBA

[Marc-L]

je n'arrive pas à trouver nulle part une explication du fonctionnement de la méthode get. L'aide intégrée de vba me donne rien du tout (à moins que ce soit moi...)

Ben oui c'est toi car c'est bien expliqué dedans ‼

Ne pas oublier la touche …