hyper hyper hyper hyper urgent !!!!!!!Résolu

Question

j'm'explique : j'ai cr&#233;er une application en juin ou j'&#233;cris et lit des informations dans un fichier .ini
comme je ne savais pas comment faire je sui venu poster sur le forum ...
heureusement quelqu'un m'a aid&#233;..
seulement voila, &#224; la rentr&#233;e les prof nous ont demand&#233; de faire une soutenance de stage.
et je n'arrive pas &#224; expliquer a quoi serve ces fonctions et surtout a quoi corresponde les termes apr&#232;s les ByVal (parce que je ne comprend pas les termes) ces deux fonctions qui 'mont &#233;t&#233; donn&#233;es sur le forum :

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

avec les 2 fonctions pr&#233;c&#233;dentes, j'ai les deux fonctions suivantes (celles l&#224; je comprends ce qu'elle font, c'est juste pour aid&#233; en cas de besoin pour savoir &#224; quoi corresponde les 2 premi&#232;res fonction ...)

Function LireTXT(Entete As String, Variable As String) As String
    Dim Retour As String
    Fichier = App.Path & "" & "Donnees.txt"
    Retour = String(255, Chr(0))
    LireTXT = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), Fichier))
End Function


Function EcrireTXT(Entete As String, Variable As String, Valeur As String) As String
    Fichier = App.Path & "" & "Donnees.txt"
    WriteTXT = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function

en esp&#233;rant que quelqu'un pourra me r&#233;pondre dans l'urgence....

je me rend bien compte que je sui pas tr&#232;s claire dans mes explications dc si vous avez besoin de + de renseignements : liliesma@hotmail.com

~*~ L&#238;L&#239;? ~*~

crenaud76 · Accepted Answer

En gros, voila ce que l'on peut en dire ...
GetPrivateProfileString : API permettant de lire une valeur Chaine dans un fichier INI
WritePrivateProfileString : API permettant d'écrire une valeur Chaine dans un fichier INI
Pour les paramètres : 
lpApplicationName = Nom de la section (entre [ ... ] dans le INI
lpKeyName = Nom de la clé à lire ou écrire
lpDefault = Valeur chaine retournée si GetPrivateProfileString ne trouve pas la clé cherchée
lpReturnedString = Paramètre recevant la chaine lue
lpString = Valeur à écrire pour la clé
nSize = Taille en octet de lpReturnedString
lpFileName = Chemin d'accès au fichier INI

Je ne saurais que trop te recommander d'aller voir sur MSDN (http://msdn.microsoft.com) et d'y rechercher GetPrivateProfileString et WritePrivateProfileString, comme cela tu auras toutes les explications que tu veux ....

Christophe

liliesma · Answer

je te remercie, j'&#233;tais all&#233; voir dans la librairie MSDN fournie avec vb6 mais il ne connaissait pas GetPrivateProfileString  c'est pour ca que je me suis tourn&#233;e vers CS et je te remercie vraiment !!!!

~*~ L&#238;L&#239;? ~*~

crenaud76 · Answer

A ton service .. si tu as besoin ...

Christophe

Hyper hyper hyper hyper urgent !!!!!!!

3 réponses

Discussions similaires