Lecture d'un fichier .INI + Utilisation des valeurs

Question

Bonsoir, j'ai d&#233;j&#224; fait plusieurs recherche sur la lecture de fichier .INI sur le site. J'ai trouv&#233; bcp de choses mais je ne comprend pas. Je sui ultra-d&#233;butant et je besoin de ceci mon programme &#224; faire pour l'&#233;cole.

Je dois lire un fichier ini dans lequel se trouveront trois valeurs (un chemin de destination (ex: c:	oto), un nom g&#233;n&#233;rique (ex : *.bmp), et un d&#233;lai (ex : 30 jours)). je dois pouvoir par la suite r&#233;cup&#233;rer ses valeurs pour les utiliser et les comparer pour la suite du programme.

Comment faut-il &#233;crire les valeurs dans le fichiers INI?
Que veut dire ce code qui permet justement de lire les fichiers INI :  

Private Function LitDansFichierIni(Section As String, Cle As String, Fichier As String, _

Optional ValeurParDefaut As String = "") As String

 
Dim strReturn As String

strReturn = String(255, 0)

GetPrivateProfileString Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier

LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)

 
End Function

Merci d'avance

cs_darunia · Answer

Salut,



Un fichier INI se structure de cette fa&#231;on



[Section]

Cl&#233;=Valeur



Pour le code :




Private Function LitDansFichierIni(Section As String, Cle As String, Fichier As String, _


Optional ValeurParDefaut As String = "") As String

 
Dim strReturn As String


strReturn = String(255, 0) 'Alloue le buuffer


GetPrivateProfileString Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier 'Recupere la valeur dans le buffer


LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1) 'Enleve les caracteres nuls


 
End Function






D@runia

Sniper_Vgaerr · Answer

Salut,

Un fichier Ini se compose comme la dit darunia comme ceci (je l'ai modifi&#233; selon mes variables &#224; moi) :

[Category]
SubCategory=Value

Pour lire et &#233;crire dans un fichier Ini, j'utilise ca :
'Les API qui permettent de lire et d'&#233;crire dans un 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 lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long


Public Function LireIni(Category As String, SubCategory As String) As String 'Fonction pour lire un fichier Ini
Dim lpReturnString$, Size%, Valid%, Path$ 'D&#233;claration des variables
lpReturnString$ = Space$(255) 'Alloue un espace dans le buffer de 255 espaces
Size% = Len(lpReturnString$) 'Stocke la taille du buffer
    
Valid% = GetPrivateProfileString(Category, SubCategory, "", lpReturnString$, Size%, App.Path & "\Config.ini") 'R&#233;cup&#232;re les valeurs du fichier Ini
Path$ = Left$(lpReturnString$, Valid%) 'R&#233;sultat de la recherche se trouve dans Path$
If Path$ = "" Then Exit Function 'Si la variable est vide on sort de la fonction
LireIni = Path$ 'Ensuite on stocke le resultat dans la variable de la fonction
End Function


Public Function EcrireIni(Category As String, SubCategory As String, Value As String) 'Fonction pour &#233;crire un fichier Ini
lRetVal = WritePrivateProfileString(Category, SubCategory, Value, App.Path & "\Config.ini") 'Ecrit dans le fichier Ini
End Function

Ensuite on appelle la focntion comme cela :

ValeurIni = LireIni("Categorie","SousCategorie")
Call EcrireIni("Categorie","SousCategorie","Valeur")

Voila en esperant que ca soit clair.
All&#233; @+ et bonne prog

thenonos · Answer

Ok, merci pour ces précisions. Mais si mon fichier ini comporte plusieurs Sections donc plusieurs clés et plusieurs valeurs, mais comment vais-je faire une fois que j'aurais lu mon fichier ini pour les garder, ce qui me permettra par la suite de les comparer à d'autres valeurs (affectectations à des variables ??????)

Merci d'avance.

Sniper_Vgaerr · Answer

Salut,

Tu fais :

ValeurIni = LireIni("Categorie","SousCategorie")
ValeurIni1 = LireIni("Categorie1","SousCategorie1")
ValeurIni2 = LireIni("Categorie2","SousCategorie2")

If ValeurIni <> ValeurIni1 Then ...

Voila
@+

thenonos · Answer

Ok j'ai compris enfin je pense j'essaye &#231;a d&#232;s ce soir et je vous tiens au courant. Merci

Lecture d'un fichier .INI + Utilisation des valeurs

5 réponses

Discussions similaires