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"
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.