Intéraction avec les fichiers (lecture ascii & binaire) (n°1 / x)

Commenter

Contenu du snippet

Ceci est une suite de fonctions pour constituer un module de gestion de fichiers et dossiers, dont voici le premier numéro. La procédure Lire permet de lire un fichier et de le placer dans un TextBox. Deux méthodes de lecture : ASCII et Binaire.

Source / Exemple : 


Public Const OPEN_ASCII = 0 ' Ouverture en lecture.
Public Const OPEN_BINARY = 1 ' Ouverture en lecture binaire.

Public Sub Lire(ByVal FilePath As String, Zone As TextBox, Optional Methode As Long = OPEN_ASCII)
    Dim fso As New FileSystemObject
    'Vérifit si le fichier existe
    If fso.FileExists(FilePath) = False Then
        Debug.Print "ERREUR : Fichier non trouvé"
        Exit Sub
    End If
    'Vérifit qu'un TextBox a bien été associé à la variable 'Zone'
    If Zone = Null Then
        Debug.Print "ERREUR : Aucun objet n'a été associé à 'Zone'"
        Exit Sub
    End If
    'Déclaration des variables
    Dim Buffer As String
    Dim BinaryBuffer As String * 60000
    Dim BinaryPosition As Long
    'Suppression du contenu du TextBox 'Zone'
    Zone.Text = ""
    'Lecture du fichier
    Select Case Methode
    Case OPEN_ASCII
        Open FilePath For Input As #1
        While Not EOF(1)
            DoEvents
            Input #1, Buffer
            Zone.Text = Zone.Text & Buffer & vbNewLine
        Wend
        Close #1
        Exit Sub
    Case OPEN_BINARY
        Open FilePath For Binary As #1
        BinaryPosition = 1
        Seek #1, BinaryPosition
        While Not EOF(1)
            DoEvents
            Get #1, BinaryPosition, BinaryBuffer
            Zone.Text = Zone.Text & BinaryBuffer
            BinaryPosition = BinaryPosition + 60000
        Wend
        Close #1
        Exit Sub
    Case Else ' Methode inconnue
        Debug.Print "ERREUR : Methode spécifiée inconnue"
    End Select
    Buffer = ""
    BinaryBuffer = ""
    BinaryPosition = 0
End Sub

Conclusion :


La suite dans pas longtemps :o)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (psykocrash)