Gestion de fichiers texte

Commenter

Contenu du snippet

C'est une classe à inclure dans vos sources pour gerer l'ouverture et la lecture
de texte dans un fichier texte.

Source / Exemple : 


Option Explicit

Private m_sFile As String
Private m_iFileNumber As Integer

Public Property Get FileName() As String
   FileName = Right(m_sFile, Len(m_sFile) - InStrRev(m_sFile, "\"))
End Property

Public Property Let File(ByVal sFile As String)
   m_sFile = sFile
End Property

Public Property Get Path() As String
   Path = Left(m_sFile, InStrRev(m_sFile, "\"))
End Property

Public Property Get FileNumber() As Integer
   FileNumber = m_iFileNumber
End Property

Public Property Get FileExtension() As String
   FileExtension = Right(FileName(), 3)
End Property

Public Function OpenFile()
   If m_iFileNumber = 0 And m_sFile <> "" Then
      m_iFileNumber = FreeFile()
      Open m_sFile For Input As m_iFileNumber
      OpenFile = m_iFileNumber
   End If
End Function

Public Function CloseFile()
   Close m_iFileNumber
   m_iFileNumber = 0
End Function

Public Function ReadFile() As Variant

   If Not EOF(m_iFileNumber) Then
      Input #m_iFileNumber, ReadFile
   Else
      ReadFile = "EOF"
   End If
End Function

Private Sub Class_Initialize()
   m_iFileNumber = 0
   m_sFile = ""
End Sub

Private Sub Class_Terminate()
   If m_iFileNumber > 0 Then
      CloseFile
   End If
End Sub

Conclusion :


Ce n'est pas commenté mais les nom sont assez explicites.
Pour l'instant il ne gere qu'un fichier à la fois mais je compte l'ameliorer pour pouvoir en ouvrir plusieurs et pour gerer plus que du texte.

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 (uthsabbath)