Findstring - une dll qui vous simplifira la vie

0/5 (3 avis)

Vue 3 572 fois - Téléchargée 284 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
HadiNET
Messages postés
1
Date d'inscription
dimanche 18 janvier 2004
Statut
Membre
Dernière intervention
18 janvier 2004

18 janv. 2004 à 16:29
Pourqoi, Peut on crée un dll en vb outre que les dll active x?
Question peut etre idiote mais je suis un débutant
cs_titou2002
Messages postés
50
Date d'inscription
mardi 17 septembre 2002
Statut
Membre
Dernière intervention
25 avril 2005

18 janv. 2004 à 16:07
pourquoi veux-tu le mettre dans une DLL, c'est des fonctions mets les dans un module ca evite de devoir joindre la DLL a ton programme.
cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
16 janv. 2004 à 15:31
C'est bien mais perso je prefere ajouter 5 lignes de code
a mon prog que d'ajouter une dll tierce partie

non franchement c'est clair et net, mais bon rien ne t'empeche
de le faire, sauf la raison peut etre...

@+

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.