Parseur de fichier d'options

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 163 fois - Téléchargée 42 fois

Contenu du snippet

Ces 2 fonctions vous permettent de lire un fichier "option", c'est à dire un fichier du type :
"yes"
"no"

etc etc... moi je m'en sert avec l'extension ini . Voici un exemple de code :

etat = play_parsing_files(App.path & "\options\option.ini", 2)
If etat = "yes" Then Check1.Value = 1 Else Check1.Value = 0

Je m'en sert beaucoup, donnez moi vos avis . . .

Source / Exemple :


Public Function save_parsing_files(files As String, num As Integer, text As String)
'1 --> sauver tout le fichier dans un tableau temporaire
Dim etat() As String
Dim i As Integer
Dim fstemp
i = 0
Open files For Input As #1
Do Until EOF(1)
    ReDim Preserve etat(i)
    Line Input #1, etat(i)
    i = i + 1
Loop
Close #1
'2 --> substituer la valeur dans la ligne associée
etat(num - 1) = text
'3 --> sauver le fichier
Set fstemp = CreateObject("Scripting.FileSystemObject")
Set a = fstemp.CreateTextFile(files, True)
For i = 0 To size(etat)
    a.WriteLine etat(i)
Next
a.Close
End Function

Public Function play_parsing_files(files As String, num As Integer) As String
Dim i As Integer
Dim fstemp, temp As String

Open files For Input As #1
For i = 1 To num
     Line Input #1, temp
Next
Close #1
play_parsing_files = temp
End Function

Public Function size(tablo) As Integer
On Error GoTo er
size = UBound(tablo) - LBound(tablo)
Exit Function
er:
size = 0
End Function

A voir également

Ajouter un commentaire

Commentaire

Messages postés
365
Date d'inscription
vendredi 24 mai 2002
Statut
Membre
Dernière intervention
18 octobre 2004

Ouais, c'est une idée.
Moi j'utilise simplement un fichier INI avec sa vraie structure et me sers des apis pour lire/écrire.
8/10 parce que c'est bien colorée la source !

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.