IDDN CertificationIDDN Certification
 
  Moteur de recherche
Recherche personnalisée
 
   

 
Menu Principal

 Accueil
 Programmation
    avec Cours...
 Liens (ANNUAIRE)
 Statistiques-TOP 10
 Me contacter
 

  ObjetsBois.com est spécialisé dans les stylos en bois. Beaucoup de choix d'essences de bois. Cela peut faire un beau cadeau pour un mariage, la famille, les amis et peut-être même pour distribuer à vos clients.

 

 
Partenaires

 Les Partenaires

 
 

Lire dans un fichier INI  


Paramètres en entrée : Fichier (chaîne),Entete (chaîne),Section (chaîne)
Paramètres en sortie : LireDansINI (chaîne)


Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long
Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Function LireDansINI(Fichier As String, Entete As String, Section As String)
Dim X As Long
Dim Temp As String * 50
Dim lpAppName As String, lpKeyName As String, lpDefault As String, lpFileName As String
lpAppName = Entete
lpKeyName = Section
lpDefault = no
lpFileName = Fichier
X = GetPrivateProfileString(lpAppName, lpKeyName, lpDefault, Temp, Len(Temp), lpFileName)

If X = 0 Then
MsgBox "Erreur de lecture dans le fichier INI", vbCritical
Else
LireDansINI = Trim(Temp)
End If
End Function
 


[ ObjetsBois : des stylos en bois, des bagues en bois et autres objets en bois de qualité ]
[ Création de bijoux en bois ou bagues en bois sur mesure ]
[ Turf-France ] -[ turf / pmu / paris ]

Copyright © 2000-2014 LCL2000.COM
Reproduction totale ou partielle interdite sur quelque
support que ce soit sans l'accord de l'auteur
Tous droits réservés.
La confidentialité de vos données sur ce site est préservée.
LCL2000.com est déclaré à la CNIL sous le n°1007192



PageRank Actuel