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