LIRE ET ÉCRIRE DANS UN FICHIER INI
Pop
-
29 juin 2001 à 10:22
cs_clad87 Messages postés 42 Date d'inscription samedi 28 décembre 2002 Statut Membre Dernière intervention 24 août 2015 - 16 avril 2004 à 00:49
cs_clad87 Messages postés 42 Date d'inscription samedi 28 décembre 2002 Statut Membre Dernière intervention 24 août 2015 - 16 avril 2004 à 00:49
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/1410-lire-et-ecrire-dans-un-fichier-ini
https://codes-sources.commentcamarche.net/source/1410-lire-et-ecrire-dans-un-fichier-ini
16 avril 2004 à 00:49
' ouvertur du fichier
a = FreeFile()
il ne peut pas ouvrir plus de 450 fichier (tu as peut etre oublier de les refermer.. ?)
8 avril 2004 à 14:09
PS : merci z980x, g trouvé dans ton code juste la petite partie qui me manquait ! (writeINI) merci tchao !
Biz à tous
4 oct. 2003 à 23:03
7 sept. 2003 à 14:30
8 déc. 2002 à 19:28
merci
et je souhaiterai egalement savoir comment le fichier ini peut etre lu (chargé) par une application.
26 avril 2002 à 01:28
Il faut remplacer la ligne :
GetIni = Trim(Mid(ligne, InStr(ligne, "=") ))
par celle-ci
GetIni = Trim(Mid(ligne, InStr(ligne, "=") + 1))
car la chaine de caracteres de la variable commence apres le '='.
F___
28 août 2001 à 12:40
par contre, je ne vois pas exactement ce que tu recherches de plus puisque le code ci dessus permet de lire ET d'écrire dans un fichier ini.
si tu veux créer un fichier ini avec plusieurs conteners et plusieurs variables, tu appelles plusieurs fois la fonction writeini avec les bons paramètres (le nom du fichier restant le même).
Si tu as besoin d'une aide précise, n'hésite pas (mais envoie-moi le mail en copie, je ne viens pas sur cette page tous les jours)
14 août 2001 à 01:08
j'ai lu ton source qui est trés interresant mais j'aurais besoin d'aide à un niveau plus basic. je doit creer un cripte qui me genere un fichier ini et dont je doit lui rempir des données. pour la lecture, ta source m'aidera beaucoup
peut tu m'aider please
j'en ai grave besoin
d'urgent.
merci beaucoup
2 juil. 2001 à 08:56
Pour ce qui est de la longueur, le but c'est de faire le programme sans API
29 juin 2001 à 12:02
29 juin 2001 à 12:00
29 juin 2001 à 10:22
Option Explicit
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 lpApplicationName$, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName$) As Long
Public Function GetIni(Section As String, Variable As String, Fichier As String) As String
Dim strRetour As String * 255
Dim Longueur As Integer
Longueur = GetPrivateProfileString(Section, Variable, "", strRetour, Len(strRetour), Fichier)
GetIni = Left$(strRetour, Longueur)
End Function
Function WriteIni(Section As String, Variable As String, Valeur As String, Fichier As String) As Integer
WritePrivateProfileString Section, Variable, Valeur, Fichier
End Function