comment enregistrer plusieurs textbox dans un même fichier "ini" ou "txt" ????

Question

omment enregistrer plusieurs textbox dans un même fichier "ini" ou "txt" de facon a obtenir ceci (exemple tiré d'un ini d'un programme):
fichier ini : (voici ce que je lis quand je l'ouvre ... )

[Config]
MinConnect=6
MaxConnect=20
HttpTimeOut=60
VerifyTimeOut=60
NbRetry=3

et je voudrais que quand j'ouvre la  feuille, je retouve automatiquement les info que j'avais enregistré (tout a l'heure en ayant cliqué sur "appliquer" )
en faite, je voudrais crer un menu options ...

et je voudrais aussi que dans ce ini, l'état des checksbox soit enregistré ( si la checkbox est coché ou non) comment faire ???????

merci

Oliver-goto · Answer

salut,

je vois bien un truc du style tes parametres sur 1 ligne avec des separateurs.
quand un checkbox est coché, la valeur est TRUE, sinon c est FALSE

POUR ECRIRE TON FICHIER

open "tonfichier.INI" for append as #1
write #1 ,textbox1.text _
,textbox2.text,textbox3.text,checkbox1.value,checkbox2.value
close

ton fichier ressemblera à 
"6","20","60",#TRUE#,#FALSE#

POUR LIRE TON FICHIER

open "tonfichier.INI" for input as #1
input #1,parm1$,parm2$,parm3$,parm4$,parm5$
close

textbox1.text=parm1$
textbox2.text=parm2$
checkbox1.value=parm4$

tu vois le principe quoi

ATTENTION : quand tu ecris dans un fichier avec "APPEND" ça te rajoute une ligne en fin de fichier, alors KILL le fichier avant d'écrire une nouvelle config

mail moi si prob

@+

cs_Arkko · Answer

Bien pour regler le probleme de Append il sufit de le remplacer par output

cs_renardeau · Answer

Voici un module




'///////////////////////////////////////////////////////////

'//

'//         Les fichiers INI

'//

'd&#233;claration de l'API d'&#233;criture dans les fichiers INI

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _

    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, _

    ByVal lpFileName As String) As Long

'd&#233;claration de l'API de lecture dans les fichiers INI

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _

    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _

    ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long





'ecrire dans un fichier ini


Public Function Ecrire_Ini(Section As String, Clef As String, Valeure As String)

    Dim C As Long

    C = WritePrivateProfileString(Section, Clef, Valeure, Adress_Ini)

End Function

'lire dans un fichier ini


Public Function Lire_Ini(Section As String, Cle As String, _

    Optional ValeurParDefaut As String = "") As String

Dim Fichier As String

Dim strReturn As String

Fichier = Adress_Ini

strReturn = String(255, 0)

GetPrivateProfileString Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier

Lire_Ini = Left(strReturn, InStr(strReturn, Chr(0)) - 1)



End Function







Une seule remarque.




tu dois mettre le lieu o&#249; se trouve le fichier ini

Adress_Ini = "C:\adresse\fichier.ini"

Comment enregistrer plusieurs textbox dans un même fichier "ini" ou "txt" ????

3 réponses

Discussions similaires