LIRE ET ÉCRIRE DANS UN .INI (FACILE)

AtomWare Messages postés 71 Date d'inscription samedi 28 décembre 2002 Statut Membre Dernière intervention 11 novembre 2004 - 5 mars 2003 à 19:40
cs_cyrilp Messages postés 140 Date d'inscription mercredi 4 octobre 2000 Statut Membre Dernière intervention 12 août 2009 - 6 mars 2003 à 21:42

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/6355-lire-et-ecrire-dans-un-ini-facile

cs_cyrilp Messages postés 140 Date d'inscription mercredi 4 octobre 2000 Statut Membre Dernière intervention 12 août 2009
6 mars 2003 à 21:42

Mouais, ça sert à rien du tout... Je vais bientot poster un vieux code source que j'avais fait... DLL/ActiveX pour écrire/lire un fichier INI... Pratique et indispensable pour des dev impec' ;)

cs_BLU Messages postés 16 Date d'inscription jeudi 11 juillet 2002 Statut Membre Dernière intervention 31 juillet 2008
6 mars 2003 à 20:52

Essaie plutôt ce code là :
'API Lecture/Ecriture dans fichier 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
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal as_Section As String, ByVal aa_Key As Any, ByVal aa_NewValue As Any, ByVal as_IniFile As String) As Long

Public Enum IO_Ini
IniRead = 1
IniWrite = 2
End Enum

Public Function fx_IOFromIni(as_Section As String, as_Key As String, Optional av_WriteValue As String, Optional as_IniFile As String, Optional as_IOIni As IO_Ini) As String
Dim ls_StringRead As String

Select Case as_IOIni

Case IniRead
'Récupérer des variables dans un fichier INI
ls_StringRead = String(255, Chr(0))
fx_IOFromIni = Left(ls_StringRead, GetPrivateProfileString(as_Section, as_Key, "", ls_StringRead, Len(ls_StringRead), as_IniFile))

Case IniWrite
'Ecriture des variables dans un fichier INI
WritePrivateProfileString as_Section, as_Key, av_WriteValue, as_IniFile

End Select

End Function

EvilGost Messages postés 235 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 mai 2011 2
6 mars 2003 à 15:02

bon bah y a rien à rajouter , tout à été dit. Quant aux fichiers .ini, il y a ce qui faut sur vbfrance :)

MangaII Messages postés 129 Date d'inscription dimanche 9 décembre 2001 Statut Membre Dernière intervention 12 janvier 2009
6 mars 2003 à 10:17

C clair que ce code ne sert pas a grand chose ! a part écrire des lignes dans un fichier qquelconque. En plus, si tu écris dans un fichier qui existe déjà, il efface sont contenu précédent.
Si tu cherche à utiliser les fichiers INI, y'a des supers fonctions dans l'API de windows (spécialement pour les ini)
GetPrivateProfileString, et WritePrivateProfilString.

AtomWare Messages postés 71 Date d'inscription samedi 28 décembre 2002 Statut Membre Dernière intervention 11 novembre 2004
5 mars 2003 à 19:40

Ton code n'est pas pour ecrire dans les ini, surtout que ca gère pas les sections, clés avec valeurs. Et a la fin, il faut metre var1 = text1.text, et var2 = text2.text, sinon, ce sont les textbox qui prennent la valeur des 2 variables. Et puis, c'est pas très clair ton exemple. Un 7 sur 10 ( Il y'a un temps ou je cherchais je genre de choses et ca m'etait utile )

Discussions similaires

Comment lire un fichier INI en c ?

Lister les sections d'un fichier ini

Lire et écrire un fichier TXT en JAVASCRIPT

Ini kestion

écrire dans un fichier

Votre réponse

Discussions similaires