Findstring - une dll qui vous simplifira la vie

Télécharger le projet
Commenter

Description

J'ai fait une Dll de gestion de fichier pour me simplifier la vie. Si vous avez besoin de gérer des fichiers de manières simple (Ouvrir, Savegarder, Ouvrir ligne par ligne et Ajouter), cette Dll vous simplifira la vie.

Source / Exemple : 


' la Dll est zipé mais si vous voulez le code :

' Oblige la déclaration des variables
Option Explicit
' Déclaration des variables
Public Data As String
Public FileName As String
Private AllString, CRLF As String
Public Function PutData()
' Teste des variables
    If (FileName = "") Then Exit Function
' Ouverture du fichier
    Open FileName For Output As #1
' Place les données
        Print #1, Data
' Fermeture du fichier
    Close #1
End Function
Public Function GetData()
' Teste des variables
    If (FileName = "") Then Exit Function
' Ouverture du fichier
    Open FileName For Input As #1
' Place les données
        Input #1, Data
' Fermeture du fichier
    Close #1
End Function
Public Function GetBoucleData()
' Gestion des routines d'erreur
    On Error Resume Next
    CRLF = Chr$(13) + Chr$(10)
' Teste des variables
    If (FileName = "") Then Exit Function
' Ouverture du fichier
    Open FileName For Input As #1
' Récupère les données
        Line Input #1, Data
        AllString = Data
        If Len(AllString) <> (0) Then
            While Not EOF(1)
                Line Input #1, Data
                AllString = AllString + CRLF + Data
            Wend
        End If
        Data = AllString
' Fermeture du fichier
    Close #1
End Function
Public Function AppendData()
' Teste des variables
    If (FileName = "") Then Exit Function
' Ouverture du fichier
    Open FileName For Append As #1
' Place les données
        Print #1, Data
' Fermeture du fichier
    Close #1
End Function

Conclusion :


Une option d'imprésion sera disponible dans la version 3.0
Télécharger le projet

Codes Sources

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