EDITER UN INI TRES FACILEMENT!
Boboss99
Messages postés
54
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
30 juin 2004
-
7 avril 2003 à 09:23
TGTG Messages postés 18 Date d'inscription jeudi 5 février 2004 Statut Membre Dernière intervention 6 juin 2006 - 5 mars 2004 à 22:30
TGTG Messages postés 18 Date d'inscription jeudi 5 février 2004 Statut Membre Dernière intervention 6 juin 2006 - 5 mars 2004 à 22:30
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/6658-editer-un-ini-tres-facilement
https://codes-sources.commentcamarche.net/source/6658-editer-un-ini-tres-facilement
5 mars 2004 à 22:30
je te met 9
13 avril 2003 à 21:55
Option Explicit
#If Win16 Then
Declare Function WritePrivateProfileString Lib "Kernel" (ByVal AppName As String, ByVal KeyName As String, ByVal NewString As String, ByVal FileName As String) As Integer
Declare Function GetPrivateProfileString Lib "Kernel" Alias "GetPrivateProfilestring" (ByVal AppName As String, ByVal KeyName As Any, ByVal default As String, ByVal ReturnedString As String, ByVal MAXSIZE As Integer, ByVal FileName As String) As Integer
#Else
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lpFileName As String) As Long
#End If
Function ReadINI(Section As String, KeyName As String, FileName As String) As Variant
Dim sRet As String
sRet = String(255, Chr(0))
ReadINI = Left(sRet, GetPrivateProfileString(Section, ByVal KeyName, "", sRet, Len(sRet), FileName))
End Function
Function WriteINI(sSection As String, sKeyName As String, sNewString As Variant, sFileName) As Integer
Dim r
r = WritePrivateProfileString(sSection, sKeyName, CStr(sNewString), sFileName)
End Function
;) Dsl yoman mais c pas très utile...
8 avril 2003 à 00:47
mais ptet ke chui con.....
7 avril 2003 à 18:58
7 avril 2003 à 17:50
L'autre version est bcp mieux,il y a fonction de nouveau fichiers ,et il a un plus bo design.
7 avril 2003 à 09:23
bon fonctionnement dès le premier lancement du programme surtout avec un code de ce genre :
Private Sub Command1_Click()
Save tree, "C:program filesmircmirc.ini"
End Sub
c'est sympa de faire partager tes programmes mais bon ...
y'a encore un tit peu de boulot pour mettre tes prog sur le site
@+ ;o)