|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : fichiers .ini [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (spectresombre)
 Informations & options pour cette discussion
|
vendredi 14 février 2003 à 18:10:40 |
fichiers .ini
spectresombre
|
Salut, Aucun souci pour écrire dans un fichier ini mais pour la lecture : IMPOSSIBLE!!! Mon module se présente comme ceci : 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 strRetour As String Fichier = App.Path & "\" & App.EXEName & ".ini" strRetour = String(255, Chr(0)) Dim Longueur As Integer Longueur = GetPrivateProfileString(Entete, Variable, "", strRetour, Len(strRetour), Fichier) LireINI = Left$(strRetour, Longueur) End Function Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String Fichier = App.Path & "\" & App.EXEName & ".ini" EcrireINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier) End Function La variable "Longueur" est reste à 0 alors ke mon fichier ini nest pas vide. La fonction LireINI reste vide. Quelqu'un saurait-il m'aider? Merci beaucoup d'avance
|
|
|
|
samedi 15 février 2003 à 16:11:07 |
Re : fichiers .ini
TheSaib
|
un exemple de ton fichier ini ? parceque la fonction marche correctement
::|The S@ib|::
-------------------------------
Réponse au message :
-------------------------------
> Salut,
>
> Aucun souci pour écrire dans un fichier ini mais pour la lecture : IMPOSSIBLE!!!
>
> Mon module se présente comme ceci :
>
> 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 strRetour As String
> Fichier = App.Path & "\" & App.EXEName & ".ini"
> strRetour = String(255, Chr(0))
> Dim Longueur As Integer
> Longueur = GetPrivateProfileString(Entete, Variable, "", strRetour, Len(strRetour), Fichier)
> LireINI = Left$(strRetour, Longueur)
> End Function
>
> Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
> Fichier = App.Path & "\" & App.EXEName & ".ini"
> EcrireINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
> End Function
>
>
> La variable "Longueur" est reste à 0 alors ke mon fichier ini nest pas vide.
> La fonction LireINI reste vide.
>
> Quelqu'un saurait-il m'aider?
> Merci beaucoup d'avance
|
|
|
|
samedi 15 février 2003 à 16:11:57 |
Re : fichiers .ini
TheSaib
|
Je l'ai testé comme çà :
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 strRetour As String
Fichier = App.Path & "\" & App.EXEName & ".ini"
strRetour = String(255, Chr(0))
Dim Longueur As Integer
Longueur = GetPrivateProfileString(Entete, Variable, "", strRetour, Len(strRetour), Fichier)
LireINI = Left$(strRetour, Longueur)
End Function
Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
Fichier = App.Path & "\" & App.EXEName & ".ini"
EcrireINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function
Private Sub Command1_Click()
Call EcrireINI("test", "ptout", "prout")
MsgBox LireINI("test", "ptout")
End Sub
::|The S@ib|::
-------------------------------
Réponse au message :
-------------------------------
> Salut,
>
> Aucun souci pour écrire dans un fichier ini mais pour la lecture : IMPOSSIBLE!!!
>
> Mon module se présente comme ceci :
>
> 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 strRetour As String
> Fichier = App.Path & "\" & App.EXEName & ".ini"
> strRetour = String(255, Chr(0))
> Dim Longueur As Integer
> Longueur = GetPrivateProfileString(Entete, Variable, "", strRetour, Len(strRetour), Fichier)
> LireINI = Left$(strRetour, Longueur)
> End Function
>
> Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
> Fichier = App.Path & "\" & App.EXEName & ".ini"
> EcrireINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
> End Function
>
>
> La variable "Longueur" est reste à 0 alors ke mon fichier ini nest pas vide.
> La fonction LireINI reste vide.
>
> Quelqu'un saurait-il m'aider?
> Merci beaucoup d'avance
|
|
|
|
samedi 15 février 2003 à 17:00:37 |
Re : fichiers .ini
spectresombre
|
mon chichier ini :
[Fadeur]
color1= 0
color2= 4227327
color3= 0
vagues=0
italique=0
gras=1
barre=0
souligne=0
il parait correct mais pourtant ça marche toujours pas
Merci pour ton aide
-------------------------------
Réponse au message :
-------------------------------
> un exemple de ton fichier ini ? parceque la fonction marche correctement
>
> ::|The S@ib|::
>
>
>
|
|
|
|
samedi 15 février 2003 à 17:06:01 |
Re : fichiers .ini
TheSaib
|
ta bien que :
App.Path & "\" & App.EXEName & ".ini"
le fichier INI doit s'appeler : lenomdetonappli.ini
moi ca marche tres bien
j'ai mis ton fichier là : c:\test.ini
et j'ai changé la fonction lireINI :
App.Path & "\" & App.EXEName & ".ini" => "c:\test.ini"
et ca roule
::|The S@ib|::
-------------------------------
Réponse au message :
-------------------------------
> mon chichier ini :
>
> [Fadeur]
> color1= 0
> color2= 4227327
> color3= 0
> vagues=0
> italique=0
> gras=1
> barre=0
> souligne=0
>
> il parait correct mais pourtant ça marche toujours pas
> Merci pour ton aide
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > un exemple de ton fichier ini ? parceque la fonction marche correctement
> >
> > ::|The S@ib|::
> >
> >
> >
>
|
|
|
|
samedi 15 février 2003 à 17:09:56 |
Re : fichiers .ini
spectresombre
|
ok bah Je vais chercher le pkoi du comment alors
De toute façon c'est encore surement kelke chose de tout bête :)
merci pour ton aide
-------------------------------
Réponse au message :
-------------------------------
> ta bien que :
> App.Path & "\" & App.EXEName & ".ini"
>
> le fichier INI doit s'appeler : lenomdetonappli.ini
> moi ca marche tres bien
>
> j'ai mis ton fichier là : c:\test.ini
> et j'ai changé la fonction lireINI :
>
> App.Path & "\" & App.EXEName & ".ini" => "c:\test.ini"
>
>
> et ca roule
>
>
> ::|The S@ib|::
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > mon chichier ini :
> >
> > [Fadeur]
> > color1= 0
> > color2= 4227327
> > color3= 0
> > vagues=0
> > italique=0
> > gras=1
> > barre=0
> > souligne=0
> >
> > il parait correct mais pourtant ça marche toujours pas
> > Merci pour ton aide
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > un exemple de ton fichier ini ? parceque la fonction marche correctement
> > >
> > > ::|The S@ib|::
> > >
> > >
> > >
> >
>
|
|
|
Cette discussion est classé dans : fichier, function, variable, string, ini
 Répondre à ce message
 Sujets en rapport avec ce message
Problème textbox et ini help please urgent [ par sef6 ]
Voila g fai un fichier ini avec des valeurs par défautEnsuite g fai une form pour les modifier avec des textboxJ'aimerai afficher les valeurs de l'ini
utiliser un string comme nom de controle [ par breizhou13 ]
voila une fonction de recuperation de fichiers (2 :dossier.ini et extensions.ini)Function ouvrir(fichier As String)'declaration de lgdataDim lgdata As
probleme INI en vb.net [ par demonn ]
bonjour a tous,voilà j'ai recuperer une source pour lire et ecrire dans un fichier INI.mais mon probleme est que mon fichier INI est sous cette forme:
Enregistrer dans un fichier INI [ par piep14 ]
Bonjour, j'aimerais écrire dans un fichier INI. Jj'ai donc trouvé dans la FAQ la méthode a appliquer mais je n'arrive pas à l'utiliser !!! J'ai fai
Cacher un Logiciel En Execution [ par DesP_Diablo ]
Bonjours j'aurai voulu savoir comment cacher un programme quelquonque qui est en execution avec VB6 si c'est possible voila merci et egalement je n'ar
Probleme de lecture avec un fichier .ini [ par comtention ]
Bonjour, j'ai un probleme avec un fichier .ini pour la lecteur d'une valeur qui est "RGB (100, 150, 200), la lecture se passe tres bien si c'est pour
Fichier INI : insérer saut de ligne ??? [ par salazar ]
Comment insérer des sauts de ligne dans un .ini ?J'utilise le code suivant pour lire/écrire :'Fonction pour lire une valeur dans un fichier INIFunctio
chemin et ini >>> probleme [ par waspy59 ]
salut voici mon probleme, je veut creer un fichier ini (init.init) de structure suivante: [chemin] FichierLS=CheminOuSeTrouveCesFichiers DossierFinal
Probleme de variable dans un ini [ par comtention ]
Bonjour,Voila j'aimerais bien écrire dans un ini en utilisant des variables pour la clé et la valeur mais sa me met tt le temp compile error: Byref ar
Couleur & variable [ par Bruno28 ]
Bonjour.(suis en VB.Net 2003) J'ai enregistré une couleur dans un fichier .INI (utilisation de ColorDialog) Je sais lire le fichier ini, mais quand je
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|