Description :
Ce script permet de lire dans un fichier init.
Ce script au format VBS peut être utilisé comme suit.
Script :
Private Function LitIni(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
LitIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)
End Function
 Proposer un script
|
Notre avis :
Votre avis :
Réactions :
0
Votants :
4
Visites :
18671
|
Accès
direct aux définitions :