diablamanshadow
Messages postés
419
Date d'inscription
lundi 30 août 2004
Statut
Membre
Dernière intervention
28 janvier 2008
28 mars 2007 à 12:41
bonjour,
moi je te propose une methode un peu plus courte et un peu plus simple que la bdr en txt :-) c'est la methode ini qui es tres simple a utiliser pour l'ecriture comme pour la lecture ^^ j'avais trouver un module pour controler cela qui est genial et que j'utilise toujours voici le code du module :
------------------------------------------------------------------------------------------------------------
Private 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
Private 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
Function LireINI(Entete As String, Variable As String) As String
Dim Retour As String
Fichier = App.Path & "" & form1.text1.text & ".ini"
Retour = String(255, Chr(0))
LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), Fichier))
End Function
Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
Fichier = App.Path & "" & form1.text1.text & ".ini"
WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function
' Pour l'executer ex :
'EcrireINI "MonEntete", "MaVariable", "MaValeur"
'LireINI("MonEntete", "MaVariable")
------------------------------------------------------------------------------------------------------------
donc voila le code :-)
maintenant dans ta form sois tu fais la methode longue mais qui te permet d'avoir un nom de controle precis par exemple si tu veux garder tes nom comme txtname.texte , txtfichier.text, txtnom.texte etc sa donneras :
Txtfichier.Text = LireINI("Infos", (fichier))
Txtname.Text = LireINI("Infos", (name))
Txtnom.Text = LireINI("Infos", (nom))
avec cette maniere l'enregistrement devras etre comme ca :
EcrireINI "Infos", "fichier", txtfichier.text
EcrireINI "Infos", "nom", txtnom.text
EcrireINI "Infos", "name", txtname.text
ce qui donneras comme fichier ini :
[Infos]
fichier=contenus de ton txtfichier.text
nom=contenu de ton txtnom.text
name=contenu de ton txtname.text
...
avec l'autre methode ses avec une indexation (ma prefereee perso)
tu fais l'enregistrement en chiffre et tu le lis avec une boucle ta tout tes controle genre
txt(0) txt(1) txt(2)
pour les enregistrer tu ferais du genre
for i = 0 to 2
EcrireINI "Infos", (i), txt(i)
next i
et pour lire :
for i = 0 to 2
txt(i).text = lireini("Infos",(i))
next i
------------------------------------------------------------------------------------------------------------
bon j'ai peut etre fais une inversion ou deux dans l'enregistrement l'ecture mais tout maniere ta l'exemple de creation et lecture de l'ini dans le code du module ci dessus ^^
(sorry vla que je me leve j'ai la tete dans le *** ^^)
en esperant t'avoir aider
Diablaman