Fichier de configuration

Soyez le premier à donner votre avis sur cette source.

Vue 7 529 fois - Téléchargée 701 fois

Description

Ce code permet de lire les paramètres dans un fichier. Exemple du fichier:

# Ligne de commentaire
Port:555
Texte:Coucou

La function ignore les commentaire et les lignes vide et garde seulement le texte.

Source / Exemple :


'Placez ceci dans un module

Function Chargement(Fichier As String)

    Dim Section, Valeur As String
    Open Fichier For Input As #1
    Do While Not EOF(1)
        Line Input #1, Data$ 'Ligne du fichier texte
        Section = LCase(Split2(Data$, ":", 1))
        Valeur = LCase(Split2(Data$, ":", 2))

        'Ignore les commentaire et ligne vide
        If Left(Data$, 1) = "#" Or Left(Data$, 1) = "" Then
        
        'Lit les paramètres
        ElseIf Section = "port" Then MsgBox "Port d'écoute: " & Valeur
        ElseIf Section = "texte" Then MsgBox "Texte: " & Valeur
        'Paramètre inconnu
        Else
            MsgBox "Paramètre inconnu: " & Section
        End If
        
        Loop
    Close #1
    
End Function

Function Split2(Texte, Delimiteur, Num)

    On Error Resume Next
    'Crée un tableau ou sera placé les paramètres
    Num = Int(Num)
    Dim Str1() As String
    Str1() = Split(Texte, Delimiteur)
    For i = 0 To UBound(Str1)
        Split2 = Str1(Num - 1)
    Next i

End Function

Conclusion :


Pour lancer cette function: Chargement "fichier.txt"

Codes Sources

A voir également

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.