1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Divers
  5. Classe lectrice de fichiers ini sans utiliser les apis

Classe lectrice de fichiers ini sans utiliser les apis

0/5 (15 avis)

Vue 4 651 fois - Téléchargée 242 fois

Télécharger le projet
Commenter

Description

Suite à l'échec de la version précédente de cette source, j'ai changer de direction. Voici un lecteur de fichier Ini qui permet d'en énumérer les section et les clées et de lire une clée. Pour l'énumération, le principe est particulié :
le programme lit le fichier à la recherce de sections/clées
déclenche un évènement pour dire qu'une section/clée à été trouvée
Donc, plus besoins de charger le fichier en mémoire!!! Durant l'énumération, si c'est la clée que vous voullez, vous pouvez arrêter la procédure d'énumération.

Source / Exemple : 


'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'À METTRE DANS UNE CLASSE APPELLÉE cIniFile
'¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
Option Explicit

Public Enum IniErrors: IniErrUnKnown = 0: IniErrFileNotFound = 1: IniErrFileEmpty = 2: IniErrFileBusy = 3: End Enum
Public Enum IniResults: IniResOK = 0: IniResStopped = 1: IniResError = 2: IniSectionNotFound = 3: IniKeyNotFound = 4: End Enum

Public Event OnSectionFound(strSectionName As String, bContinue As Boolean)
Public Event OnKeyFound(strKeyName As String, strKeyValue As String, strSectionName As String, bContinue As Boolean)
Public Event OnFinish(intWhy As IniResults)
Public Event OnError(intErrNumber As IniErrors)

Public IniFile As String
Private m_FileHandle As Integer
Private strLine As String
Private strCurrentSection As String
Private strCurrentKey As String
Private strCurrentKeyValue As String

Private m_Busy As Boolean
Private intJobType As Integer

Private strKeyToFind As String
Private bKeyFound As Boolean
Private bSectionFound As Boolean

Private strSectionToFind As String
Private bInSection As Boolean
Private bOnlyOnce As Boolean
Private Function pLeftStr(strData As String, lngLength As Long, Optional bError As Boolean = False) As String 'Protégé contre les erreurs
If Len(strData) < lngLength Then bError = True: Exit Function
pLeftStr = Left$(strData, lngLength)
End Function

Public Property Get FileHandle() As Long
FileHandle = m_FileHandle
End Property

Public Property Get Busy() As Boolean
Busy = m_Busy
End Property

Public Sub IniEnumSections()
intJobType = 1
Core True, False
End Sub

Public Sub IniEnumAll()
intJobType = 3
Core True, True
End Sub

Public Function IniReadKey(strSection As String, strKey As String) As String
intJobType = 4
strKeyToFind = strKey
strSectionToFind = strSection
Core True, True
End Function

Public Sub IniEnumKeys(strSection As String, Optional bOnlyInTheFirst As Boolean = False)
intJobType = 2
bOnlyOnce = bOnlyInTheFirst
strSectionToFind = strSection
Core True, True
End Sub

Private Sub DoSection(bContinue As Boolean)
Select Case intJobType
Case 1 'Énumération des sections
RaiseEvent OnSectionFound(strCurrentSection, bContinue)
Case 2
bInSection = False
    If (bOnlyOnce And Not bInSection) Or (Not bOnlyOnce) Then
    If StrComp(strSectionToFind, strCurrentSection, vbTextCompare) = 0 Then bInSection = True: bSectionFound = True
    End If
Case 3 'Énumération complète
RaiseEvent OnSectionFound(strCurrentSection, bContinue)
Case 4
    If StrComp(strSectionToFind, strCurrentSection, vbTextCompare) = 0 Then bInSection = True
End Select
End Sub

Private Sub DoKey(bContinue As Boolean)
Select Case intJobType
Case 2 'Énumération des clées
If bInSection Then RaiseEvent OnKeyFound(strCurrentKey, strCurrentKeyValue, strCurrentSection, bContinue)
Case 3 'Énumération complète
RaiseEvent OnKeyFound(strCurrentKey, strCurrentKeyValue, strCurrentSection, bContinue)
Case 4
If bInSection = True Then
    If StrComp(strKeyToFind, strCurrentKey, vbTextCompare) = 0 Then
    RaiseEvent OnKeyFound(strCurrentKey, strCurrentKeyValue, strCurrentSection, bContinue)
    bKeyFound = True
    bContinue = False
    End If
End If
End Select
End Sub

Private Sub Core(Optional bCallDoSection As Boolean = True, Optional bCallDoKey As Boolean = True, Optional bKeyMustHaveValue As Boolean = False)
'On Error Resume Next
Dim lngPos As Long, bErr As Boolean, bContinue As Boolean, astrKey() As String, bOk As Boolean
If m_Busy Then
RaiseEvent OnError(IniErrFileBusy)
Exit Sub
End If
m_Busy = True
m_FileHandle = FreeFile
Open IniFile For Input As #m_FileHandle

If Err.Number = 53 Then 'Fichier non trouvé
RaiseEvent OnError(IniErrFileNotFound)
Err.Clear: bErr = True
End If

If FileLen(IniFile) = 0 Then 'Fichier vide
RaiseEvent OnError(IniErrFileEmpty)
Err.Clear: bErr = True
End If
bContinue = True
Do While (Not EOF(m_FileHandle)) And (Not bErr) And bContinue
Line Input #m_FileHandle, strLine 'Lit
strLine = Trim$(strLine) 'Fait le trimage gauche et droite
    If (Not Len(strLine) = 0) And (Not pLeftStr(strLine, 1) = ";") Then
    lngPos = InStr(1, strLine, "]")
        
        If pLeftStr(strLine, 1) = "[" And (Not Len(strLine) < 3) And (Not lngPos = 0) Then 'Dans une section
        strCurrentSection = Mid$(strLine, 2, lngPos - 2)
            If bCallDoSection = True Then
            DoSection bContinue
            End If
        Else
            If (Not strCurrentSection = "") And bCallDoKey Then
            'Dans une clée valide
            astrKey = Split(strLine, "=", 2)
                If UBound(astrKey) = 1 Then
                strCurrentKey = astrKey(0)
                strCurrentKeyValue = astrKey(1)
                ElseIf Not bKeyMustHaveValue Then
                strCurrentKey = astrKey(0)
                strCurrentKeyValue = ""
                End If
            DoKey bContinue
            End If
        End If
    End If
DoEvents
Loop

If bErr Then
RaiseEvent OnFinish(2)
bOk = True
ElseIf bContinue = False And intJobType <> 4 Then
RaiseEvent OnFinish(1)
bOk = True
End If

Close #m_FileHandle
If Not bOk Then
    Select Case intJobType
    Case 1
    RaiseEvent OnFinish(0)
    Case 2
    If bSectionFound Then
    RaiseEvent OnFinish(0)
    Else
    RaiseEvent OnFinish(3)
    End If
    Case 3
    RaiseEvent OnFinish(0)
    Case 4
    If Not bInSection Then
    RaiseEvent OnFinish(3)
    ElseIf Not bKeyFound Then
    RaiseEvent OnFinish(4)
    Else
    RaiseEvent OnFinish(0)
    End If
    End Select
End If
strCurrentSection = ""
strCurrentKey = ""
strCurrentKeyValue = ""
m_Busy = False
intJobType = 0
strKeyToFind = ""
strSectionToFind = False
bInSection = False
bSectionFound = False
bOnlyOnce = False
bKeyFound = False
End Sub

'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Fonctionnement
'¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
Open "The Zip"

Conclusion :


Alors? Est-ce mieux?
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_philcam
Messages postés
132
Date d'inscription
dimanche 12 août 2001
Statut
Membre
Dernière intervention
17 octobre 2008
22 août 2004 à 03:52
j'aime bien entendre parler de rapidité d'accès.

Car celui qui arrive à chronométrer le temps d'accès à la base de registre et celui à un fichier *.ini, je dis bravo !

Vous travaillez avec des zx81 ou quoi ?

cela dit je reste qd meme du coté de la BDR !

J'entends d'ici les commentaires, oui mais quand tu as un programme hyper évolué, gnagnagna, ça ralentit ton prog sensiblement, gnagnagna, allez bonne nuit !
BruNews
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
 27
21 août 2004 à 22:00
Une autre aussi, le seul avantage du XML est la possibilite de le lire a travers differents systemes. A part cela c'est d'une lenteur affligeante car necessite le parsage de texte alors que la BDR est un modele indexe comme toute base de donnees et donc tres rapide d'acces.
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
 28
21 août 2004 à 21:47
Jucidieuse remarque Brunews, d'autant plus que "INI" la tête en bas ca donne ...... "INI" !!!
Autre avantage pour le fichier ini : Il et bien plus simple pour un tiers de le modifier via un vulgaire notepad.exe. Faire fair eune modif en registre est un peu plus complexe, et risqué
BruNews
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
 27
17 août 2004 à 10:04
VB aura cesse d'exister bien avant la base de registres, faut pas regarder les choses la tete en bas.
capuccino_fr
Messages postés
113
Date d'inscription
vendredi 5 mars 2004
Statut
Membre
Dernière intervention
11 février 2008
17 août 2004 à 09:59
car la base de registre n'existera plus d'ici quelques annees. c'est deja une bonne raison !!
et puis la base de registre c'est au moins aussi long a traiter qu'un pauvre petit fichier INI.

mais le top, c'est le XML pour conserver des donnees d'une appli, avec les classes existantes: rapide, efficace, peut etre utilisé par d'autres appli.

affaire a suivre. @+
Afficher les 15 commentaires
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 (DeadlyPredator)